Fix some tests

Author: phischu

effekt/js/src/main/scala/effekt/EffektConfig.scala

@@ -20,11 +20,13 @@ trait EffektConfig {
   def prelude(): List[String] = List(
     "effekt",
     "option",
+    "stream",
     "list",
     "result",
     "exception",
     "array",
     "char",
+    "bytearray",
     "string",
     "ref"
   )

effekt/jvm/src/test/scala/effekt/LSPTests.scala

@@ -1380,7 +1380,7 @@ class LSPTests extends FunSuite {
       val expectedIRContents =
         raw"""ModuleDecl(
              |  test,
-             |  List(effekt, option, list, result, exception, array, char, string, ref),
+             |  List(effekt, option, stream, list, result, exception, array, char, bytearray, string, ref),
              |  Nil,
              |  Nil,
              |  List(

examples/stdlib/array/map.effekt

@@ -3,7 +3,7 @@ def main() = {
   arr.map { x => x * 2 }
   println(arr)
 
-  val arr1 = allocate(0)
+  val arr1 = array::allocate(0)
   arr1.map { x => x * 2 }
   println(arr1)
 }

examples/stdlib/stream/fibonacci.effekt

@@ -1,9 +1,8 @@
-import stream
 
 def main() = {
   val max = 10
 
-  val fibs = collectList[Int] {
+  val fibs = list::collect[Int] {
     var a = 0
     var b = 1
 

libraries/common/json.effekt

@@ -179,7 +179,7 @@ def decodeJsonObject(): Unit / {Scan[Char], JsonObjectBuilder, Exception[WrongFo
   skipWhitespace()
   while(do peek[Char]() is c and (c != '}')) {
     if (not(first)) { expectString(",") }
-    val k: String = collect { readQuotedString() }
+    val k = string::collect { readQuotedString() }
     skipWhitespace()
     expectString(":")
     do field(k){
@@ -277,7 +277,7 @@ def build[R](){ body: => R / JsonBuilder }: (R, JsonValue) = {
   }
   (x, r)
 }
-def buildList[R](){ body: => R / JsonBuilder }: (R, List[JsonValue]) = returning::collectList[JsonValue, R] {
+def buildList[R](){ body: => R / JsonBuilder }: (R, List[JsonValue]) = list::returning::collect[JsonValue, R] {
   try body() with JsonBuilder {
     def number(n) = { do emit(Number(n)); resume(()) }
     def bool(b) = { do emit(Bool(b)); resume(()) }
@@ -295,7 +295,7 @@ def buildList[R](){ body: => R / JsonBuilder }: (R, List[JsonValue]) = returning
     }
   }
 }
-def buildDict[R](){ body: => R / JsonObjectBuilder }: (R, List[(String, JsonValue)]) = returning::collectList[(String, JsonValue), R] {
+def buildDict[R](){ body: => R / JsonObjectBuilder }: (R, List[(String, JsonValue)]) = list::returning::collect[(String, JsonValue), R] {
   try body() with JsonObjectBuilder {
     def field(k) = resume { {v} =>
       val x = build{v}
@@ -315,7 +315,7 @@ namespace test {
     // Read quoted string
     feed("\"\ta\n\ra\"") {
       with scanner[Char]
-      println(collect { readQuotedString() })
+      println(string::collect { readQuotedString() })
     }
 
     println("")

libraries/common/random.effekt

@@ -1,7 +1,7 @@
 module random
 
 import stream
-ipmort io/filesystem
+import io/filesystem
 import io/error
 
 /// Infinite pull stream of random bytes.

libraries/common/set.effekt

@@ -249,7 +249,7 @@ def collect[A](compare: (A, A) => Ordering at {}) { stream: () => Unit / emit[A]
 namespace returning {
   def collect[A, R](compare: (A, A) => Ordering at {}) { stream: () => R / emit[A] }: (R, Set[A]) =
     try {
-      (stream(), set::empty(compare))
+      (stream(), empty(compare))
     } with emit[A] { (v) =>
       val (r, set) = resume(());
       (r, set.insert(v))