- Improved "let>"'s design.

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^)]