diff --git a/private/pre.rkt b/private/pre.rkt index c40237b..565ef2f 100644 --- a/private/pre.rkt +++ b/private/pre.rkt @@ -73,6 +73,8 @@ (expand-all-eh-mixin-expanders #'(pat …))) (eh-first-accumulate! '~maybe/empty #'(~parse (expanded-pat …) - #'(clause (... ...)))) + (if (attribute clause) + #'(clause (... ...)) + #'()))) #'{~optional {~and {~bind [clause-present #t]} {~seq clause (... ...)}}})]))) \ No newline at end of file