www

commit 6803336145db87d18fc9a18877cb0d209a7b0f67
parent 028e3fc1b7cadb422867da502425c7ba0340811d
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Tue, 27 Sep 2016 00:46:01 +0200

Bugfix

Diffstat:
M
private/pre.rkt
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git 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