better error message if there aren't any parens the superclass position of class*
This commit is contained in:
parent
022066530e
commit
a6ada06ae2
|
@ -1720,7 +1720,14 @@
|
||||||
#'super-expression
|
#'super-expression
|
||||||
#f #f
|
#f #f
|
||||||
(syntax->list #'(interface-expr ...))
|
(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
|
;; class
|
||||||
(lambda (stx)
|
(lambda (stx)
|
||||||
(syntax-case stx ()
|
(syntax-case stx ()
|
||||||
|
|
Loading…
Reference in New Issue
Block a user