diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/math/infix.lux | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/lux/math/infix.lux b/stdlib/source/lux/math/infix.lux index 3b4b89da2..e2cfc455c 100644 --- a/stdlib/source/lux/math/infix.lux +++ b/stdlib/source/lux/math/infix.lux @@ -2,11 +2,11 @@ [lux #* [control monad - ["p" parser ("#/." functor)]] + ["p" parser ("#;." functor)]] [data ["." product] [collection - ["." list ("#/." fold)]]] + ["." list ("#;." fold)]]] [macro ["s" syntax (#+ syntax: Syntax)] ["." code]]]) @@ -22,14 +22,14 @@ (<| p.rec (function (_ infix^)) ($_ p.or ($_ p.either - (p/map code.bit s.bit) - (p/map code.nat s.nat) - (p/map code.int s.int) - (p/map code.rev s.rev) - (p/map code.frac s.frac) - (p/map code.text s.text) - (p/map code.identifier s.identifier) - (p/map code.tag s.tag)) + (p;map code.bit s.bit) + (p;map code.nat s.nat) + (p;map code.int s.int) + (p;map code.rev s.rev) + (p;map code.frac s.frac) + (p;map code.text s.text) + (p;map code.identifier s.identifier) + (p;map code.tag s.tag)) (s.form (p.many s.any)) (s.tuple (p.and s.any infix^)) (s.tuple ($_ p.either @@ -39,7 +39,7 @@ init-op s.any init-param infix^ steps (p.some (p.and s.any infix^))] - (wrap (product.right (list/fold (function (_ [op param] [subject [_subject _op _param]]) + (wrap (product.right (list;fold (function (_ [op param] [subject [_subject _op _param]]) [param [(#Binary _subject _op _param) (` and) (#Binary subject op param)]]) @@ -50,7 +50,7 @@ init-op s.any init-param infix^ steps (p.some (p.and s.any infix^))] - (wrap (list/fold (function (_ [op param] [_subject _op _param]) + (wrap (list;fold (function (_ [op param] [_subject _op _param]) [(#Binary _subject _op _param) op param]) [init-subject init-op init-param] steps))) |