diff options
| -rw-r--r-- | stdlib/source/lux/control/pipe.lux | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/stdlib/source/lux/control/pipe.lux b/stdlib/source/lux/control/pipe.lux index 6f7721cf6..f2a6950fb 100644 --- a/stdlib/source/lux/control/pipe.lux +++ b/stdlib/source/lux/control/pipe.lux @@ -26,15 +26,12 @@ _ (undefined))) -(syntax: #export (let> lhs [body body^] prev) +(syntax: #export (let> binding body prev) {#;doc (doc "Gives a name to the piped-argument, within the given expression." (|> 5 - (let> X [(i.+ X X)])))} - (wrap (list (L/fold (function [next prev] - (` (let [(~ lhs) (~ prev)] - (~ next)))) - prev - body)))) + (let> X (i.+ X X))))} + (wrap (list (` (let [(~ binding) (~ prev)] + (~ body)))))) (syntax: #export (cond> [branches (p;many (p;seq body^ body^))] [?else (p;maybe body^)] |