/[gcl]/gcl/o/eval.c
ViewVC logotype

Diff of /gcl/o/eval.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by mjthomas, Tue Nov 2 00:57:44 2004 UTC revision 1.19 by camm, Tue Nov 2 17:32:48 2004 UTC
# Line 1343  void Line 1343  void
1343  funcall_with_catcher(object fname, object fun)  funcall_with_catcher(object fname, object fun)
1344  {  {
1345          int n = vs_top - vs_base;          int n = vs_top - vs_base;
1346          if (n > 64) n = 64;          if (n > MAX_ARGS+1)
1347              FEerror("Call argument linit exceeded",0);
1348          frs_push(FRS_CATCH, make_cons(fname, make_fixnum(n)));          frs_push(FRS_CATCH, make_cons(fname, make_fixnum(n)));
1349          if (nlj_active)          if (nlj_active)
1350                  nlj_active = FALSE;                  nlj_active = FALSE;

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26