From a6ada06ae21f8fd1ab866ec6f41c50f7f7ddab4a Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 21 May 2021 10:49:26 -0500
Subject: [PATCH] better error message if there aren't any parens the
superclass position of class*
---
racket/collects/racket/private/class-internal.rkt | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/racket/collects/racket/private/class-internal.rkt b/racket/collects/racket/private/class-internal.rkt
index 86c372084e..8e21efa454 100644
--- a/racket/collects/racket/private/class-internal.rkt
+++ b/racket/collects/racket/private/class-internal.rkt
@@ -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 ()