Changeset 12091

Timestamp:

08/11/09 11:35:39 (14 years ago)

Author:

ehuelsmann

Message:

Remove condition from another era

(when TAGBODY-s used to store a environment themselves).

File:

• trunk/abcl/src/org/armedbear/lisp/jvm.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/jvm.lisp

@@ -450 +450 @@
     (when (eq enclosing-block outermost-block)
       (return nil))
-    (when (and (block-environment-register enclosing-block)
-               (not (block-needs-environment-restoration enclosing-block)))
+    (when (and (block-environment-register enclosing-block))
       (return t))))