[armedbear-cvs] r12108 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Wed Aug 19 18:09:11 2009
New Revision: 12108

Log:
r12104 followup: forgotten M-V-B-NODE accessor.

Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Wed Aug 19 18:09:11 2009
@@ -4067,7 +4067,7 @@
     (let ((*blocks* (cons block *blocks*)))
       (compile-progn-body (cdddr form) target))
     (when bind-special-p
-      (restore-environment-and-make-handler (block-environment-register block)
+      (restore-environment-and-make-handler (m-v-b-environment-register block)
 					    label-START))))
 
 (defun propagate-vars (block)