diff options
| author | Eduardo Julian | 2018-04-05 07:48:25 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-04-05 07:48:25 -0400 |
| commit | 435771d3c4d4ffa791805e7006ee3bde488a4090 (patch) | |
| tree | 693b9e2a6d8c6ddf4e439336e5bfcd665c9955cd /stdlib/source/lux/math.lux | |
| parent | 3de94c8a341ef3f19fd75eeeb98e5333d2fe89d0 (diff) | |
- Improved the syntax for the "lux.function" macro.
Diffstat (limited to 'stdlib/source/lux/math.lux')
| -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))) |