Welcome to the CHICKEN Scheme pasting service

finalizer test struggles added by sjamaan 1 days ago

(import (chicken gc))
(##sys#eval-debug-level 0)

(define foo-f #f)

(let* ((foo (vector 1 2 3))
       (x (lambda (_) (set! foo-f #t))))
  (set-finalizer! foo x)
  #t)

(gc #t)
;; Prints #t when compiled or changing let* to let
(print foo-f)
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Name of the egg which implements this service: