On Sat, Dec 20, 2008 at 4:04 PM, Alejandro Forero Cuervo <[email protected]> wrote: > >> Please try attached patch. I have added it to trunk and the chicken-3 >> branch, and did some tests, but testing finalization is always somewhat >> difficult. > > I tried the patch (on 3.4.0) and it did not work. > > Running in csi the original code in my report, > > (define x (list 1 2 3)) > (begin (set-finalizer! x (lambda (o) (format #t "Delete: ~A~%" o))) #t) > (define y (list 4 5 6)) > (begin (set-finalizer! y (let ((p x)) (lambda (o) (format #t "Delete: ~A: > ~A~%" o p)))) #t) > (gc #t) > (set! x #f) > (gc #t) > > , still produces the "Delete (1 2 3)" message, which it shouldn't. >
I'm pretty sure it works. Is it possible that you mixed up two different installations? cheers, felix _______________________________________________ Chicken-users mailing list [email protected] http://lists.nongnu.org/mailman/listinfo/chicken-users
