mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-18 21:29:18 +02:00
18 lines
300 B
Scheme
18 lines
300 B
Scheme
;; From:
|
|
;; https://github.com/ashinn/chibi-scheme/issues/298
|
|
(import (scheme base) (scheme write))
|
|
|
|
(define-syntax bar
|
|
(syntax-rules ()
|
|
((_)
|
|
(let-syntax ((foo (syntax-rules () ((_) 'ok))))
|
|
(foo)))))
|
|
|
|
(define-syntax foo (syntax-rules () ((_) 'foo)))
|
|
|
|
(write
|
|
(bar)
|
|
)
|
|
(write
|
|
(foo)
|
|
)
|