さっきの続きで
(define-macro (test ls)
(map (^x `(define ,(string->symbol (string-append "a" (symbol->string x))) 0))
ls))

(test (hoge fuga))
こんな感じにしたら
((define ahoge 0) (define afuga 0))
と展開されてしまってダメだったんですけど何か解決方法はありませんか？