Ignore:
Timestamp:
03/04/13 23:05:12 (8 years ago)
Author:
ehuelsmann
Message:

Fix #308: Compiled FLET exhausts the stack.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r14176 r14420  
    21232123      (when (or (<= *speed* *debug*) *require-stack-frame*)
    21242124        (emit-push-current-thread))
    2125       (cond ((eq op (compiland-name *current-compiland*)) ; recursive call
     2125      (cond ((and (eq op (compiland-name *current-compiland*))
     2126                  (null (compiland-parent *current-compiland*)))
     2127                                        ; recursive call
    21262128             (if (notinline-p op)
    21272129                 (emit-load-externalized-object op)
Note: See TracChangeset for help on using the changeset viewer.