(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)