Mercurial > hg > xemacs-beta
comparison src/eval.c @ 1737:68ed93de81b7
[xemacs-hg @ 2003-10-10 11:50:56 by stephent]
E Benson bytecomp patch <87oewpmi1m.fsf_-_@tleepslib.sk.tsukuba.ac.jp>
| author | stephent |
|---|---|
| date | Fri, 10 Oct 2003 11:51:05 +0000 |
| parents | a8d8f419b459 |
| children | 21549d437f09 |
comparison
equal
deleted
inserted
replaced
| 1736:92dd8587c485 | 1737:68ed93de81b7 |
|---|---|
| 3964 } | 3964 } |
| 3965 else if (COMPILED_FUNCTIONP (function)) | 3965 else if (COMPILED_FUNCTIONP (function)) |
| 3966 { | 3966 { |
| 3967 Lisp_Compiled_Function *f = XCOMPILED_FUNCTION (function); | 3967 Lisp_Compiled_Function *f = XCOMPILED_FUNCTION (function); |
| 3968 | 3968 |
| 3969 if (!OPAQUEP (f->instructions)) | |
| 3970 /* Lazily munge the instructions into a more efficient form */ | |
| 3971 /* Needed to set max_args */ | |
| 3972 optimize_compiled_function (function); | |
| 3973 | |
| 3969 if (function_min_args_p) | 3974 if (function_min_args_p) |
| 3970 return make_int (f->min_args); | 3975 return make_int (f->min_args); |
| 3971 else if (f->max_args == MANY) | 3976 else if (f->max_args == MANY) |
| 3972 return Qnil; | 3977 return Qnil; |
| 3973 else | 3978 else |