better error message if there aren't any parens the superclass position of class*

This commit is contained in:
Robby Findler 2021-05-21 10:49:26 -05:00
parent 022066530e
commit a6ada06ae2

View File

@ -1720,7 +1720,14 @@
#'super-expression
#f #f
(syntax->list #'(interface-expr ...))
(syntax->list #'(defn-or-expr ...)))]))
(syntax->list #'(defn-or-expr ...)))]
[(_ super-expression no-parens-interface-expr
defn-or-expr
...)
(raise-syntax-error 'class*
"expected a sequence of interfaces"
stx
#'no-parens-interface-expr)]))
;; class
(lambda (stx)
(syntax-case stx ()