Fixed ~maybe/empty

private/pre.rkt

@@ -63,9 +63,9 @@
 
 ;; TODO: fixme: should happen before the other pre operations
 (define-eh-mixin-expander ~maybe/empty
-  (λ (stx)
-    (syntax-case stx ()
-      [(_ pat …)
+  (syntax-parser
+    [(_ {~and pat {~not #:name}} …
+        {~optional {~seq #:name name}})
      (let ()
        (define/with-syntax clause-present (get-new-clause!))
        (define/with-syntax (expanded-pat …)
@@ -76,5 +76,6 @@
                                        (if (attribute clause)
                                            #'(clause (... ...))
                                            #'())))
-         #'{~optional {~and {~bind [clause-present #t]}
-                            {~seq clause (... ...)}}})])))
+       #`{~optional {~and {~bind [clause-present #t]}
+                          {~seq clause (... ...)}}
+                    #,@(when-attr name #'(#:name name))})]))