diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/regex.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/lux/regex.lux b/stdlib/source/lux/regex.lux index 1d98d6bf5..3bcf95106 100644 --- a/stdlib/source/lux/regex.lux +++ b/stdlib/source/lux/regex.lux @@ -311,8 +311,8 @@ [idx (ast;symbol ["" _name])] #;None - [(inc idx) (ast;symbol ["" (Int/encode idx)])]) - access (if (>+ +0 num-captures) + [(i.inc idx) (ast;symbol ["" (Int/encode idx)])]) + access (if (n.> +0 num-captures) (` (product;left (~ name!))) name!)] [idx! @@ -370,7 +370,7 @@ (def: (prep-alternative [num-captures alt]) (-> [Nat AST] AST) - (if (>+ +0 num-captures) + (if (n.> +0 num-captures) alt (` (unflatten^ (~ alt))))) @@ -388,7 +388,7 @@ (` |||_^))]] (if (list;empty? tail) (wrap head) - (wrap [(fold max+ (product;left head) (List/map product;left tail)) + (wrap [(fold n.max (product;left head) (List/map product;left tail)) (` ($_ (~ g!op) (~ (prep-alternative head)) (~@ (List/map prep-alternative tail))))])))) (def: (re-scoped^ current-module) |