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))))