* Thunks, which did not allocate, now do not cause a heap-overflow

check. Reduces code size by around 30k.
2006-12-04 11:56:54 -05:00 · 2006-12-04 11:56:54 -05:00 · d6a0ffa3ea
parent ff9439d3c1
commit d6a0ffa3ea
2 changed files with 3 additions and 2 deletions
--- a/lib/ikarus.boot
+++ b/lib/ikarus.boot
--- a/lib/libcompile.ss
+++ b/lib/libcompile.ss
@ -1618,10 +1618,11 @@
           (make-primcall 'void '()))
         body)]))
  (define (closure-size x)
-    #|FIXME: closures with free vars should not alloc|#
    (record-case x 
      [(closure code free*)
-       (align (fx+ disp-closure-data (fx* (length free*) wordsize)))]
+       (if (null? free*)
+           0
+           (align (fx+ disp-closure-data (fx* (length free*) wordsize))))]
      [else (error 'closure-size "~s is not a closure" x)]))
  (define (sum ac ls)
    (cond