From eacf9d50d06a474bde2dde15dec96e04d9a100cc Mon Sep 17 00:00:00 2001
From: AlexKnauth <alexander@knauth.org>
Date: Thu, 18 Aug 2016 17:04:48 -0400
Subject: [PATCH] support #:do and #:fail-when syntax-parse options

---
 turnstile/turnstile.rkt | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/turnstile/turnstile.rkt b/turnstile/turnstile.rkt
index 3d537c0..1934f30 100644
--- 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))]