gauche.test の test*

gauche.test の test* を良く使うのだけど。

(test* "closure-body" '(a b) (closure-body c))

第1引数の name を考えるのが苦痛なので

(define-syntax eqt
  (syntax-rules ()
    ((_ a b)
     (test* (quote b) a b))))

こういうマクロを作ったら楽に。*1
Gauche 的定石があったりするのだろうか。

*1:optinalの引数はとりあえず無視