aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/data/collection/list.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/lux/data/collection/list.lux')
-rw-r--r--stdlib/source/lux/data/collection/list.lux13
1 files changed, 8 insertions, 5 deletions
diff --git a/stdlib/source/lux/data/collection/list.lux b/stdlib/source/lux/data/collection/list.lux
index bf4661ad4..fa18cfd19 100644
--- a/stdlib/source/lux/data/collection/list.lux
+++ b/stdlib/source/lux/data/collection/list.lux
@@ -10,7 +10,10 @@
[predicate (#+ Predicate)]]
[data
["." bit]
- ["." product]]])
+ ["." product]]
+ [tool
+ [compiler
+ ["." host]]]])
## (type: (List a)
## #Nil
@@ -551,10 +554,10 @@
(do monad
[lMla MlMla
## TODO: Remove this version ASAP and use one below.
- lla (: (($ 0) (List (List ($ 1))))
- (monad.seq @ lMla))
- ## lla (monad.seq @ lMla)
- ]
+ lla (`` (for {(~~ (static host.old))
+ (: (($ 0) (List (List ($ 1))))
+ (monad.seq @ lMla))}
+ (monad.seq @ lMla)))]
(wrap (concat lla)))))
(def: #export (lift monad)