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

* eval.c (SCM_CEVAL): Added ENTER_APPLY in code for SCM_IM_APPLY.

Browse source
This commit is contained in:
Mikael Djurfeldt 1999-01-22 06:40:39 +00:00
parent 7f14609425
commit c79450dd07
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/eval.c
View file

@ -1937,6 +1937,7 @@ dispatch:
if (scm_badargsp (SCM_CAR (SCM_CODE (proc)), t.arg1)) if (scm_badargsp (SCM_CAR (SCM_CODE (proc)), t.arg1))
goto wrongnumargs; goto wrongnumargs;
#endif #endif
ENTER_APPLY;
/* Copy argument list */ /* Copy argument list */
if (SCM_IMP (t.arg1)) if (SCM_IMP (t.arg1))
argl = t.arg1; argl = t.arg1;