| (define-syntax foo
|
| (identifier-syntax
|
| (_
|
| (format #f "exp1\n"))
|
| ((set! _ x)
|
| (format #f "expt2 ~s\n" x))))
|
|
|
| foo
|
| ;; => "exp1\n"
|
|
|
| (set! foo "hello")
|
| ;; => "expt2 \"hello\"\n"
|
| (define-syntax foo
|
| (identifier-syntax
|
| (_
|
| (format #f "exp1\n"))
|
| ((set! _ x)
|
| (format #f "expt2 ~s\n" x))))
|
|
|
| foo
|
| ;; => "exp1\n"
|
|
|
| (set! foo "hello")
|
| ;; => "expt2 \"hello\"\n"
|