diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/data/text/regex.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/lux/data/text/regex.lux b/stdlib/source/lux/data/text/regex.lux index 98d33258b..a71498055 100644 --- a/stdlib/source/lux/data/text/regex.lux +++ b/stdlib/source/lux/data/text/regex.lux @@ -83,10 +83,10 @@ (def: re-range^ (Parser Code) - (do {@ <>.monad} - [from (|> regex-char^ (:: @ map (|>> (//.nth 0) maybe.assume))) + (do {! <>.monad} + [from (|> regex-char^ (:: ! map (|>> (//.nth 0) maybe.assume))) _ (<t>.this "-") - to (|> regex-char^ (:: @ map (|>> (//.nth 0) maybe.assume)))] + to (|> regex-char^ (:: ! map (|>> (//.nth 0) maybe.assume)))] (wrap (` (<t>.range (~ (code.nat from)) (~ (code.nat to))))))) (def: re-char^ @@ -229,22 +229,22 @@ (def: (re-counted-quantified^ current-module) (-> Text (Parser Code)) - (do {@ <>.monad} + (do {! <>.monad} [base (re-simple^ current-module)] (<t>.enclosed ["{" "}"] ($_ <>.either - (do @ + (do ! [[from to] (<>.and number^ (<>.after (<t>.this ",") number^))] (wrap (` ((~! join-text^) (<>.between (~ (code.nat from)) (~ (code.nat to)) (~ base)))))) - (do @ + (do ! [limit (<>.after (<t>.this ",") number^)] (wrap (` ((~! join-text^) (<>.at-most (~ (code.nat limit)) (~ base)))))) - (do @ + (do ! [limit (<>.before (<t>.this ",") number^)] (wrap (` ((~! join-text^) (<>.at-least (~ (code.nat limit)) (~ base)))))) - (do @ + (do ! [limit number^] (wrap (` ((~! join-text^) (<>.exactly (~ (code.nat limit)) (~ base)))))))))) |