scheme/experimental/defines.sls


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#!r6rs
(library (experimental defines)
(export a b visit-defines)
(import (rnrs) (experimental define+))

(define-syntax visit-defines
  (lambda (x) "visited"))

(define+ a 1)
(define+ b 2)

(display "defines instantiated\n")
)