diff --git a/collects/honu/main.rkt b/collects/honu/main.rkt index 0022b01695..f8152e879c 100644 --- a/collects/honu/main.rkt +++ b/collects/honu/main.rkt @@ -46,6 +46,7 @@ (honu-macro-item macroItem) (honu-macro macro) (honu-syntax syntax) + (scheme-syntax schemeSyntax) )) #; diff --git a/collects/honu/private/parse.rkt b/collects/honu/private/parse.rkt index 583663c5b9..ef68295dfb 100644 --- a/collects/honu/private/parse.rkt +++ b/collects/honu/private/parse.rkt @@ -225,7 +225,7 @@ (when (and (stx-pair? stx) (equal? 'syntax (syntax->datum (stx-car stx)))) (printf "syntax == honu-syntax? ~a\n" (free-identifier=? (stx-car stx) #'honu-syntax))) |# - (syntax-parse stx #:literals (honu-syntax #%parens syntax) + (syntax-parse stx #:literals (honu-syntax #%parens scheme-syntax) [((honu-syntax (#%parens x ...) y ...) rest ...) (with-syntax ([(y* ...) (fix-output #'(y ... rest ...))]) (syntax/loc stx