#lang racket/base

(define *executor* (make-will-executor))

(define *executor-thread*
   (thread (λ () (let loop () (will-execute *executor*) (loop)))))

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

(provide register)