From 4e932a33ac56bb3cb1d7b49771e770e8c373bf8e Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 6 Nov 2017 18:33:32 -0400
Subject: - Improved "let>"'s design.

---
 stdlib/source/lux/control/pipe.lux | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

(limited to 'stdlib/source')

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^)]
-- 
cgit v1.2.3