diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/math.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/math.lux b/stdlib/source/lux/math.lux index 64ee13480..eea41c040 100644 --- a/stdlib/source/lux/math.lux +++ b/stdlib/source/lux/math.lux @@ -187,7 +187,7 @@ (def: infix^ (Syntax Infix) - (<| p.rec (function [infix^]) + (<| p.rec (function (_ infix^)) ($_ p.alt ($_ p.either (p/map code.bool s.bool) @@ -207,7 +207,7 @@ 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]]] + (wrap (product.right (L/fold (function (_ [op param] [subject [_subject _op _param]]) [param [(#Binary _subject _op _param) (` and) (#Binary subject op param)]]) @@ -218,7 +218,7 @@ init-op s.any init-param infix^ steps (p.some (p.seq s.any infix^))] - (wrap (L/fold (function [[op param] [_subject _op _param]] + (wrap (L/fold (function (_ [op param] [_subject _op _param]) [(#Binary _subject _op _param) op param]) [init-subject init-op init-param] steps))) |