www

commit 6f22dcf4658af09e1e84bb16050c48558618b3a3
parent 7a6ff03b067fa2dc0174d420f20d02298065f533
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Sat, 27 Aug 2016 01:19:52 +0200

Added ~no-order wrapper

Diffstat:
M
README.md
 | 
1
+
M
main.rkt
 | 
5
+++++

2 files changed, 6 insertions(+), 0 deletions(-)
diff --git 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
@@ -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))))