suzanne.soy/extensible-parser-specifications
1
0
Fork 0
Code Issues 2 Pull Requests Actions Packages Projects Releases Wiki Activity

Added ~no-order wrapper

Browse Source
This commit is contained in:
Georges Dupéron 2016-08-27 01:19:52 +02:00
parent 7a6ff03b06
commit 6f22dcf465
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
README.md
View File

@ -14,6 +14,7 @@ stable enough, it may be merged into [Alex Knauth's
implementation](https://github.com/AlexKnauth/seq-no-order). implementation](https://github.com/AlexKnauth/seq-no-order).
The following pattern expanders for `syntax/parse` are defined: The following pattern expanders for `syntax/parse` are defined:
* ~seq-no-order
* ~no-order * ~no-order
* ~post-check * ~post-check
* ~post-fail * ~post-fail

5
main.rkt
View File

@ -120,6 +120,11 @@
(~bind #,@post-group-bindings) (~bind #,@post-group-bindings)
#,@post-acc))))])))) #,@post-acc))))]))))
(define-syntax ~no-order
(pattern-expander
(λ/syntax-case (_ . rest) ()
#'({~seq-no-order . rest}))))
(define-syntax ~nop (define-syntax ~nop
(pattern-expander (pattern-expander
(λ/syntax-case (_) () #'(~do)))) (λ/syntax-case (_) () #'(~do))))