argyle/arguile/tests/tssyntax.scm

(module (arguile tests tssyntax))
(use (arguile ssyntax)
     (arguile core))

(mac test0
  ((_ a) #'#t))

(mac test1 x
  ((_ a)
   (with-syntax ((t (datum->syntax x 't)))
     #'(let t #t t))))