diff options
Diffstat (limited to 'scheme/experimental/registry.sls')
-rw-r--r-- | scheme/experimental/registry.sls | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scheme/experimental/registry.sls b/scheme/experimental/registry.sls index e34c027..c2a0226 100644 --- a/scheme/experimental/registry.sls +++ b/scheme/experimental/registry.sls @@ -1,7 +1,7 @@ #!r6rs (library (experimental registry) (export registry register) -(import (rnrs) (aps compat)) +(import (rnrs)) (define _registry '()) @@ -9,7 +9,7 @@ _registry) (define (register id) - (printf "registering ~a\n" id) + (display "registering ") (display id) (newline) (set! _registry (append _registry (list id))) _registry) |