Mercurial > hg > xemacs-beta

diff src/eval.c @ 1737:68ed93de81b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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
line wrap: on
line diff
--- a/src/eval.c	Fri Oct 10 10:51:11 2003 +0000
+++ b/src/eval.c	Fri Oct 10 11:51:05 2003 +0000
@@ -3966,6 +3966,11 @@
     {
       Lisp_Compiled_Function *f = XCOMPILED_FUNCTION (function);
       
+      if (!OPAQUEP (f->instructions))
+	      /* Lazily munge the instructions into a more efficient form */
+	      /* Needed to set max_args */
+	      optimize_compiled_function (function);
+
       if (function_min_args_p)
 	return make_int (f->min_args);
       else if (f->max_args == MANY)