From 6803336145db87d18fc9a18877cb0d209a7b0f67 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@gmail.com>
Date: Tue, 27 Sep 2016 00:46:01 +0200
Subject: [PATCH] Bugfix

---
 private/pre.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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