Mercurial > emacs
diff lisp/emacs-lisp/byte-opt.el @ 58210:2d6fd1fbee2e
(byte-optimize-inline-handler): Simplify.
(byte-decompile-bytecode-1): Remove unused vars `tag' and `retcount'.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Sun, 14 Nov 2004 06:19:52 +0000 |
parents | cc9f1e89279b |
children | 2176686c8a19 b637c617432f |
line wrap: on
line diff
--- a/lisp/emacs-lisp/byte-opt.el Sun Nov 14 05:24:59 2004 +0000 +++ b/lisp/emacs-lisp/byte-opt.el Sun Nov 14 06:19:52 2004 +0000 @@ -231,16 +231,16 @@ (cons 'progn (mapcar (lambda (sexp) - (let ((fn (car-safe sexp))) - (if (and (symbolp fn) - (or (cdr (assq fn byte-compile-function-environment)) - (and (fboundp fn) - (not (or (cdr (assq fn byte-compile-macro-environment)) - (and (consp (setq fn (symbol-function fn))) - (eq (car fn) 'macro)) - (subrp fn)))))) - (byte-compile-inline-expand sexp) - sexp))) + (let ((f (car-safe sexp))) + (if (and (symbolp f) + (or (cdr (assq f byte-compile-function-environment)) + (not (or (not (fboundp f)) + (cdr (assq f byte-compile-macro-environment)) + (and (consp (setq f (symbol-function f))) + (eq (car f) 'macro)) + (subrp f))))) + (byte-compile-inline-expand sexp) + sexp))) (cdr form)))) @@ -1365,10 +1365,9 @@ ;; before each insn (or its label). (defun byte-decompile-bytecode-1 (bytes constvec &optional make-spliceable) (let ((length (length bytes)) - (ptr 0) optr tag tags op offset + (ptr 0) optr tags op offset lap tmp - endtag - (retcount 0)) + endtag) (while (not (= ptr length)) (or make-spliceable (setq lap (cons ptr lap)))