Added ~no-order wrapper

2016-08-27 01:19:52 +02:00 · 2016-08-27 01:19:52 +02:00 · 6f22dcf465
commit 6f22dcf465
parent 7a6ff03b06
2 changed files with 6 additions and 0 deletions
--- 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
--- 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))))