klm@kth ~  ➤ csi -R chicken.gc -e '(let ((v (set-finalizer! (vector) (lambda (x)(print "finalizer"))))) #f)'
finalizer
klm@kth ~  ➤ csi -R chicken.gc -e '(let ((v (set-finalizer! (vector) (lambda (x)(print "finalizer"))))) 100)'
finalizer
klm@kth ~  ➤ csi -R chicken.gc -e '(let ((v (set-finalizer! (vector) (lambda (x)(print "finalizer"))))) #f #f)'
finalizer
klm@kth ~  ➤ csi -R chicken.gc -e '(let ((v (set-finalizer! (vector) (lambda (x)(print "finalizer"))))) #f #f 100)'
finalizer
klm@kth ~  ➤ csi -R chicken.gc -e '(let ((v (set-finalizer! (vector) (lambda (x)(print "finalizer"))))) #f #f (+ 100))'

klm@kth ~  ➤ csi -R chicken.gc -e '(let ((v (set-finalizer! (vector) (lambda (x)(print "finalizer"))))) #f #f (+ 1))'
klm@kth ~  ➤ csi -R chicken.gc -e '(let ((v (set-finalizer! (vector) (lambda (x)(print "finalizer"))))) #f #f (+ 12))'
klm@kth ~  ➤