diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-08-12 12:50:10 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-08-12 12:50:10 +0000 |
| commit | 7e1dae733a5eda79d5681349ca39bfc36ca27871 (patch) | |
| tree | ac88eef920fb50a8ece8593ee46a8f46160e6311 /lisp/emacs-lisp/byte-opt.el | |
| parent | 9f34a2a0c82e7323e825471b10b54fa60ea8859f (diff) | |
| download | emacs-7e1dae733a5eda79d5681349ca39bfc36ca27871.tar.gz emacs-7e1dae733a5eda79d5681349ca39bfc36ca27871.tar.bz2 emacs-7e1dae733a5eda79d5681349ca39bfc36ca27871.zip | |
entered into RCS
Diffstat (limited to 'lisp/emacs-lisp/byte-opt.el')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 008a9967322..d4789564f5f 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -234,9 +234,9 @@ (let ((lambda (car form)) (values (cdr form))) (if (compiled-function-p lambda) - (setq lambda (list 'lambda (nth 0 form) - (list 'byte-code - (nth 1 form) (nth 2 form) (nth 3 form))))) + (setq lambda (list 'lambda (aref lambda 0) + (list 'byte-code (aref lambda 1) + (aref lambda 2) (aref lambda 3))))) (let ((arglist (nth 1 lambda)) (body (cdr (cdr lambda))) optionalp restp @@ -913,7 +913,8 @@ (eq (car-safe last) 'quote)) (if (listp (nth 1 last)) (let ((butlast (nreverse (cdr (reverse (cdr (cdr form))))))) - (nconc (list 'funcall fn) butlast (nth 1 last))) + (nconc (list 'funcall fn) butlast + (mapcar '(lambda (x) (list 'quote x)) (nth 1 last)))) (byte-compile-warn "last arg to apply can't be a literal atom: %s" (prin1-to-string last)) |