Ignore:
Timestamp:
02/18/09 19:03:51 (11 years ago)
Author:
felix winkelmann
Message:

reverted fix for separately marked finalizer procedures reported by Alejandro to re-enable finalization in the interpreter

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/tests/test-finalizers.scm

    r12869 r13339  
    2323(gc #t)
    2424(assert (not x-f))
     25
     26#|
     27
     28This ought to work, see patches/finalizer.closures.diff for
     29a fix that unfortunately disables finalizers in the interpreter
     30(probably due to the different closure representation).
     31
    2532(assert (not y-f))
    2633(set! x #f)
     
    3239(assert y-f)
    3340(assert x-f)
     41|#
     42
     43(define foo-f #f)
     44
     45(let ((foo (vector 1 2 3)))
     46  (set-finalizer! foo (lambda _ (set! foo-f #t)))
     47  #t)
     48
     49(gc #t)
     50(assert foo-f)
Note: See TracChangeset for help on using the changeset viewer.