finalize.ss
#lang scheme/base

(define *executor* (make-will-executor))
(define *executor-thread*
  (thread
   (λ ()
     (let loop ()
       (will-execute *executor*)
;       (display "executed\n")
       (loop)))))

(define (register v proc)
  (will-register *executor* v proc)
  v)

(provide register)