commit/XEmacs: kehoea: Fetch its bytecode before unfolding a compiled function, byte-optimize.el

1 new commit in XEmacs: https://bitbucket.org/xemacs/xemacs/changeset/0df4d95bd98a/ changeset: 0df4d95bd98a user: kehoea date: 2012-05-12 16:03:24 summary: Fetch its bytecode before unfolding a compiled function, byte-optimize.el lisp/ChangeLog addition: 2012-05-12 Aidan Kehoe <kehoea(a)parhasard.net&gt; * byte-optimize.el (byte-compile-unfold-lambda): Fetch the bytecode before unfolding a compiled function, its body may have been compiled lazily thanks to byte-compile-dynamic. Thank you Mats Lidell and the package smoketest! affected #: 2 files diff -r bed39edf91ba137860fa91f24628ff7bdecb43a1 -r 0df4d95bd98a41c9a7826a307427e6f6dbcb9842 lisp/ChangeLog --- a/lisp/ChangeLog +++ b/lisp/ChangeLog ＠＠ -1,3 +1,11 ＠＠ +2012-05-12 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * byte-optimize.el (byte-compile-unfold-lambda): + Fetch the bytecode before unfolding a compiled function, its body + may have been compiled lazily thanks to + byte-compile-dynamic. Thank you Mats Lidell and the package + smoketest! + 2012-05-10 Aidan Kehoe <kehoea(a)parhasard.net&gt; * mule/mule-category.el (word-combining-categories): diff -r bed39edf91ba137860fa91f24628ff7bdecb43a1 -r 0df4d95bd98a41c9a7826a307427e6f6dbcb9842 lisp/byte-optimize.el --- a/lisp/byte-optimize.el +++ b/lisp/byte-optimize.el ＠＠ -296,11 +296,12 ＠＠ (let ((lambda (car form)) (values (cdr form))) (if (compiled-function-p lambda) - (setq lambda (list 'lambda (compiled-function-arglist lambda) - (list 'byte-code - (compiled-function-instructions lambda) - (compiled-function-constants lambda) - (compiled-function-stack-depth lambda))))) + (setq lambda (fetch-bytecode lambda) + lambda (list 'lambda (compiled-function-arglist lambda) + (list 'byte-code + (compiled-function-instructions lambda) + (compiled-function-constants lambda) + (compiled-function-stack-depth lambda))))) (let ((arglist (nth 1 lambda)) (body (cdr (cdr lambda))) optionalp restp Repository URL: https://bitbucket.org/xemacs/xemacs/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email. _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches