suzanne.soy/macrotypes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

support #:do and #:fail-when syntax-parse options

Browse Source
This commit is contained in:
AlexKnauth 2016-08-18 17:04:48 -04:00
parent ebecdb663c
commit eacf9d50d0
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
turnstile/turnstile.rkt
View File

@ -256,6 +256,12 @@
[pattern (~seq #:with pat*:expr expr:expr)
#:with pat
#'(~post (~parse pat* expr))]
[pattern (~seq #:do [stuff ...])
#:with pat
#'(~do stuff ...)]
[pattern (~seq #:fail-when condition:expr message:expr)
#:with pat
#'(~post (~fail #:when condition message))]
[pattern (~seq #:fail-unless condition:expr message:expr)
#:with pat
#'(~post (~fail #:unless condition message))]