Re: [Chicken-users] newbie: questions about set-finalizer!

[Alejandro Forero Cuervo]

> 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/