1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
#!r6rs (library (experimental registry) (export registry register) (import (rnrs) (aps compat)) (define _registry '()) (define (registry) _registry) (define (register id) (printf "registering ~a\n" id) (set! _registry (append _registry (list id))) _registry) )