Ignore:
Timestamp:
08/11/09 11:35:39 (12 years ago)
Author:
ehuelsmann
Message:

Remove condition from another era

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/jvm.lisp

    r12088 r12091  
    450450    (when (eq enclosing-block outermost-block)
    451451      (return nil))
    452     (when (and (block-environment-register enclosing-block)
    453                (not (block-needs-environment-restoration enclosing-block)))
     452    (when (and (block-environment-register enclosing-block))
    454453      (return t))))
    455454
Note: See TracChangeset for help on using the changeset viewer.