/[emacs]/emacs/lisp/emacs-lisp/byte-lexbind.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/byte-lexbind.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.2.7 by miles, Sat Aug 17 14:46:28 2002 UTC revision 1.1.2.8 by miles, Sun Aug 25 21:42:11 2002 UTC
# Line 657  slots, is preserved, so it will be on th Line 657  slots, is preserved, so it will be on th
657  binding slots have been popped."  binding slots have been popped."
658    ;; Unbind dynamic variables    ;; Unbind dynamic variables
659    (let ((num-dynamic-bindings 0))    (let ((num-dynamic-bindings 0))
660      (dolist (clause clauses)      (if lforminfo
661        (unless (assq (if (consp clause) (car clause) clause)          (dolist (clause clauses)
662                      (byte-compile-lforminfo-vars lforminfo))            (unless (assq (if (consp clause) (car clause) clause)
663          (setq num-dynamic-bindings (1+ num-dynamic-bindings))))                          (byte-compile-lforminfo-vars lforminfo))
664                (setq num-dynamic-bindings (1+ num-dynamic-bindings))))
665          (setq num-dynamic-bindings (length clauses)))
666      (unless (zerop num-dynamic-bindings)      (unless (zerop num-dynamic-bindings)
667        (byte-compile-out 'byte-unbind num-dynamic-bindings)))        (byte-compile-out 'byte-unbind num-dynamic-bindings)))
668    ;; Pop lexical variables off the stack, possibly preserving the    ;; Pop lexical variables off the stack, possibly preserving the

Legend:
Removed from v.1.1.2.7  
changed lines
  Added in v.1.1.2.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26