#https://github.com/torus/Gauche なんとなく色付きでソースが見たくなったので、SourceForge のリポジトリのクローンを GitHub に置いてみました。気が向いたときに git pull origin && git push github とかやってます。 #gosh> (define-syntax foo (syntax-rules () [(_) (^x x)]))
#<undef>
gosh> (foo)
#<closure #f>
gosh> ((foo) 1)
*** ERROR: unbound variable: x
#すぐに顕在化するので致命的ではないですが、組み合わせに制約があるのは勝手が悪くはありますね。
#そう、これもずっと気になってるんですよねー。我慢の限界を越えたら一気に書き直すかも。
#そういやちょっと違うパターンでこんなのもあったんだった。
#gosh> (define-syntax foo
(syntax-rules ()
((_)
(letrec-syntax ((bar (syntax-rules ()((_)(baz))))
(baz (syntax-rules ()((_)'baz))))
(bar)))))
#<undef>
gosh> (foo)
*** ERROR: unbound variable: baz