From 6f22dcf4658af09e1e84bb16050c48558618b3a3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@gmail.com>
Date: Sat, 27 Aug 2016 01:19:52 +0200
Subject: [PATCH] Added ~no-order wrapper

---
 README.md | 1 +
 main.rkt  | 5 +++++
 2 files changed, 6 insertions(+)

diff --git a/README.md b/README.md
index 123ec1e..88972a0 100644
--- a/README.md
+++ b/README.md
@@ -14,6 +14,7 @@ stable enough, it may be merged into [Alex Knauth's
 implementation](https://github.com/AlexKnauth/seq-no-order).
 
 The following pattern expanders for `syntax/parse` are defined:
+* ~seq-no-order
 * ~no-order
 * ~post-check
 * ~post-fail
diff --git a/main.rkt b/main.rkt
index 9921005..000616e 100644
--- a/main.rkt
+++ b/main.rkt
@@ -120,6 +120,11 @@
                     (~bind #,@post-group-bindings)
                     #,@post-acc))))]))))
 
+(define-syntax ~no-order
+  (pattern-expander
+   (λ/syntax-case (_ . rest) ()
+     #'({~seq-no-order . rest}))))
+
 (define-syntax ~nop
   (pattern-expander
    (λ/syntax-case (_) () #'(~do))))