Use define-syntax-parse-rule in table macro

jackfirth · Oct 10, 2024 · f1852a3 · f1852a3
1 parent f77e9df
commit f1852a3
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/collection/table.rkt b/collection/table.rkt
@@ -88,9 +88,8 @@
   (define msg "cannot be used outside a table expression")
   (raise-syntax-error 'row msg stx))
 
-(define-simple-macro
-  (table ((~literal columns) column:keyword ...)
-         (~and full-row ((~literal row) row-value:expr ...)) ...)
+(define-syntax-parse-rule (table ((~literal columns) column:keyword ...)
+                                 (~and full-row ((~literal row) row-value:expr ...)) ...)
   #:do [(define column-keywords
           (sort (map syntax-e (syntax->list #'(column ...))) keyword<?))
         (define num-columns (length column-keywords))