Help: equivalent syntax-case to defmacro

[Dale Mellor]

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