Been struggling with this for a while, and nothing I try works. In test-suite/tests/getopt-long there is
(defmacro deferr (name-frag re)
(let ((name (symbol-append 'exception: name-frag)))
`(define ,name (cons 'quit ,re))))
(deferr no-such-option "no such option")
(display exception:no-such-option)
and I would like to know how the equivalent with define-syntax... syntax-case
would look.
Thanks,
Dale
