Add class* support (sorawee#74)

jackfirth · Sep 26, 2024 · 16bcd99 · 16bcd99
1 parent 4abb2bc
commit 16bcd99
Show file tree

Hide file tree

Showing 2 changed files with 534 additions and 482 deletions.
diff --git a/conventions.rkt b/conventions.rkt
@@ -493,9 +493,8 @@
   [("module+") (format-uniform-body/helper 1)]
   [("test-case" "test-suite") (format-uniform-body/helper 1)]
   [("define-syntax-class" "define-match-expander") (format-uniform-body/helper 1)]
-  [("class") (format-uniform-body/helper 1 #:require-body? #f)]
-  [("interface") (format-uniform-body/helper 1 #:require-body? #f)]
-  [("interface*") (format-uniform-body/helper 2 #:require-body? #f)]
+  [("class" "interface") (format-uniform-body/helper 1 #:require-body? #f)]
+  [("class*" "interface*") (format-uniform-body/helper 2 #:require-body? #f)]
   [("module" "module*") (format-uniform-body/helper 2)]
 
   [("cond" "case-lambda" "match-lambda" "match-lambda*" "match-lambda**")