www

commit eacf9d50d06a474bde2dde15dec96e04d9a100cc
parent ebecdb663c725d39b30b1a63b97a1e27db8cf16a
Author: AlexKnauth <alexander@knauth.org>
Date:   Thu, 18 Aug 2016 17:04:48 -0400

support #:do and #:fail-when syntax-parse options

Diffstat:
M
turnstile/turnstile.rkt
 | 
6
++++++

1 file changed, 6 insertions(+), 0 deletions(-)
diff --git a/turnstile/turnstile.rkt b/turnstile/turnstile.rkt
@@ -256,6 +256,12 @@
     [pattern (~seq #:with pat*:expr expr:expr)
              #:with pat
              #'(~post (~parse pat* expr))]
+    [pattern (~seq #:do [stuff ...])
+             #:with pat
+             #'(~do stuff ...)]
+    [pattern (~seq #:fail-when condition:expr message:expr)
+             #:with pat
+             #'(~post (~fail #:when condition message))]
     [pattern (~seq #:fail-unless condition:expr message:expr)
              #:with pat
              #'(~post (~fail #:unless condition message))]