aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/lux/control/pipe.lux11
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^)]