|
|
|
@ -252,7 +252,7 @@
|
|
|
|
#'(define-syntax (_id stx)
|
|
|
|
#'(define-syntax (_id stx)
|
|
|
|
(syntax-case stx ()
|
|
|
|
(syntax-case stx ()
|
|
|
|
[(_id . rest)
|
|
|
|
[(_id . rest)
|
|
|
|
(let* ([expanded-stx (with-syntax ([expanded-macros (map expand-macro (syntax->list #'rest))])
|
|
|
|
(let ([expanded-stx (with-syntax ([expanded-macros (map expand-macro (syntax->list #'rest))])
|
|
|
|
#'(_id . expanded-macros))])
|
|
|
|
#'(_id . expanded-macros))])
|
|
|
|
(define result
|
|
|
|
(define result
|
|
|
|
(syntax-case expanded-stx LITERALS
|
|
|
|
(syntax-case expanded-stx LITERALS
|
|
|
|
|
