procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(byte-optimize-inline-handler): Simplify.

Browse source 
(byte-decompile-bytecode-1): Remove unused vars `tag' and `retcount'.
This commit is contained in:
Stefan Monnier 2004-11-14 06:19:52 +00:00
parent 3cffaddf34
commit 08d72d137c
1 changed files with 12 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

25
lisp/emacs-lisp/byte-opt.el
View file

@ -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 @@ of FORM by signalling the error at compile-time."
;; 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)))