> 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. Alejo. http://azul.freaks-unidos.net/ _______________________________________________ Chicken-users mailing list [email protected] http://lists.nongnu.org/mailman/listinfo/chicken-users
