マクロ難しい

syntax-case を利用し my-define というマクロを定義。

(my-define a 3)

以下のように展開されて欲しい。（つまり a の先頭に $ をくっつけたい）

(define $a 3)

syntax->datum を使えば出来そうな気がするのだけど。うむむ。