scheme/experimental/registry.sls


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)
)