aboutsummaryrefslogtreecommitdiff
path: root/source
diff options
context:
space:
mode:
authorEduardo Julian2015-09-16 00:17:55 -0400
committerEduardo Julian2015-09-16 00:17:55 -0400
commitd531cab599d269eecd95f6a83285e933535e9c86 (patch)
treebee1284ee4e1c8a904291725fa884ac99ec4987c /source
parent0f358c4052cf766a74b0354124736cb3652cda1d (diff)
- Changed the name of the \stream macro to \stream&
Diffstat (limited to '')
-rw-r--r--source/lux/codata/stream.lux14
1 files changed, 7 insertions, 7 deletions
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&")))