From d531cab599d269eecd95f6a83285e933535e9c86 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 16 Sep 2015 00:17:55 -0400
Subject: - Changed the name of the \stream macro to \stream&

---
 source/lux/codata/stream.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'source')

diff --git a/source/lux/codata/stream.lux b/source/lux/codata/stream.lux
index 1306e3d8b..86ce99761 100644
--- a/source/lux/codata/stream.lux
+++ b/source/lux/codata/stream.lux
@@ -123,18 +123,18 @@
       (... [wa (split tail)]))))
 
 ## [Pattern-matching]
-(defsyntax #export (\stream body [patterns (+^ id^)])
+(defsyntax #export (\stream& body [patterns (+^ id^)])
   (case (l;reverse patterns)
     (\ (@list& last prevs))
     (do Lux/Monad
       [prevs (map% Lux/Monad macro-expand-1 prevs)
        g!s (gensym "s")
-       body+ (foldL (lambda [inner outer]
-                      (` (let [[(~ outer) (~ g!s)] (! (~ g!s))]
-                           (~ inner))))
-                    (` (let [(~ last) (~ g!s)] (~ body)))
-                    prevs)]
+       #let [body+ (foldL (lambda [inner outer]
+                            (` (let [[(~ outer) (~ g!s)] (! (~ g!s))]
+                                 (~ inner))))
+                          (` (let [(~ last) (~ g!s)] (~ body)))
+                          prevs)]]
       (wrap (@list g!s body+)))
 
     _
-    (fail "Wrong syntax for \\stream")))
+    (fail "Wrong syntax for \\stream&")))
-- 
cgit v1.2.3