Parent Directory | Revision Log | 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; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |