mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 09:40:25 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Rob Browning 2003-04-12 16:48:47 +00:00
parent 99290b905d
commit e21bdaf4a4
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/eval.c
View file

@ -2310,8 +2310,10 @@ dispatch:
if (first) if (first)
t.arg1 = val; t.arg1 = val;
else else
{
RETURN (val); RETURN (val);
} }
}
proc = SCM_CDR (x); proc = SCM_CDR (x);
proc = evalcar (proc, env); proc = evalcar (proc, env);
SCM_ASRTGO (SCM_NIMP (proc), badfun); SCM_ASRTGO (SCM_NIMP (proc), badfun);