diff options
Diffstat (limited to 'stdlib/source/lux/math.lux')
| -rw-r--r-- | stdlib/source/lux/math.lux | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/stdlib/source/lux/math.lux b/stdlib/source/lux/math.lux index d0e07f051..ca2b30a85 100644 --- a/stdlib/source/lux/math.lux +++ b/stdlib/source/lux/math.lux @@ -1,10 +1,10 @@ (.module: {#.doc "Common mathematical constants and functions."} lux (lux (control monad - ["p" parser "p/" Functor<Parser>]) + ["p" parser ("parser/" Functor<Parser>)]) (data [product] [number] - (collection [list "L/" Fold<List>])) + (collection [list ("list/" Fold<List>)])) [macro] (macro ["s" syntax (#+ syntax: Syntax)] [code]))) @@ -190,14 +190,14 @@ (<| p.rec (function (_ infix^)) ($_ p.alt ($_ p.either - (p/map code.bool s.bool) - (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.symbol s.symbol) - (p/map code.tag s.tag)) + (parser/map code.bool s.bool) + (parser/map code.nat s.nat) + (parser/map code.int s.int) + (parser/map code.rev s.rev) + (parser/map code.frac s.frac) + (parser/map code.text s.text) + (parser/map code.symbol s.symbol) + (parser/map code.tag s.tag)) (s.form (p.many s.any)) (s.tuple (p.seq s.any infix^)) (s.tuple ($_ p.either @@ -207,21 +207,21 @@ init-op s.any init-param infix^ steps (p.some (p.seq s.any infix^))] - (wrap (product.right (L/fold (function (_ [op param] [subject [_subject _op _param]]) - [param [(#Binary _subject _op _param) - (` and) - (#Binary subject op param)]]) - [init-param [init-subject init-op init-param]] - steps)))) + (wrap (product.right (list/fold (function (_ [op param] [subject [_subject _op _param]]) + [param [(#Binary _subject _op _param) + (` and) + (#Binary subject op param)]]) + [init-param [init-subject init-op init-param]] + steps)))) (do p.Monad<Parser> [init-subject infix^ init-op s.any init-param infix^ steps (p.some (p.seq s.any infix^))] - (wrap (L/fold (function (_ [op param] [_subject _op _param]) - [(#Binary _subject _op _param) op param]) - [init-subject init-op init-param] - steps))) + (wrap (list/fold (function (_ [op param] [_subject _op _param]) + [(#Binary _subject _op _param) op param]) + [init-subject init-op init-param] + steps))) )) ))) |