diff options
| author | Eduardo Julian | 2021-08-02 20:26:21 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-08-02 20:26:21 -0400 |
| commit | eff4c59794868b89d60fdc411f9b544a270b817e (patch) | |
| tree | e88c4dd09acdf1e83c8683940c0496a844096dfe /stdlib/source/test/lux/world | |
| parent | bcd70df3568d71f14763959f454c15d8164e2d15 (diff) | |
Fixed a bug in the new compiler which allowed the same module to be imported more than once.
Diffstat (limited to 'stdlib/source/test/lux/world')
| -rw-r--r-- | stdlib/source/test/lux/world/console.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/test/lux/world/input/keyboard.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/test/lux/world/output/video/resolution.lux | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/test/lux/world/console.lux b/stdlib/source/test/lux/world/console.lux index 5a815c294..003c20c34 100644 --- a/stdlib/source/test/lux/world/console.lux +++ b/stdlib/source/test/lux/world/console.lux @@ -25,7 +25,7 @@ (implementation (def: (on_read [dead? content]) (do try.monad - [char (try.of_maybe (text.nth 0 content)) + [char (try.of_maybe (text.char 0 content)) [_ content] (try.of_maybe (text.split 1 content))] (if dead? (exception.except ..dead []) diff --git a/stdlib/source/test/lux/world/input/keyboard.lux b/stdlib/source/test/lux/world/input/keyboard.lux index 24b657f0d..e0064f29b 100644 --- a/stdlib/source/test/lux/world/input/keyboard.lux +++ b/stdlib/source/test/lux/world/input/keyboard.lux @@ -140,7 +140,7 @@ (let [count (list.size ..listing)] (do {! random.monad} [choice (\ ! map (n.% count) random.nat)] - (in (maybe.assume (list.nth choice ..listing)))))) + (in (maybe.assume (list.item choice ..listing)))))) (def: #export test Test diff --git a/stdlib/source/test/lux/world/output/video/resolution.lux b/stdlib/source/test/lux/world/output/video/resolution.lux index 411ae288d..378352c57 100644 --- a/stdlib/source/test/lux/world/output/video/resolution.lux +++ b/stdlib/source/test/lux/world/output/video/resolution.lux @@ -47,7 +47,7 @@ (let [count (list.size ..listing)] (do {! random.monad} [choice (\ ! map (n.% count) random.nat)] - (in (maybe.assume (list.nth choice ..listing)))))) + (in (maybe.assume (list.item choice ..listing)))))) (def: #export test Test |