firefly-compiler 0.4.18 → 0.4.20

package/output/js/ff/core/AssetSystem.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"
@@ -100,11 +98,11 @@ return {files_};
 
 
 export function create_() {
-return ff_core_AssetSystem.AssetSystem(ff_core_List.List_toMap(ff_core_List.Empty(), ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String))
+return ff_core_AssetSystem.AssetSystem(ff_core_List.List_toMap([], ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String))
 }
 
 export async function create_$($task) {
-return ff_core_AssetSystem.AssetSystem(ff_core_List.List_toMap(ff_core_List.Empty(), ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String))
+return ff_core_AssetSystem.AssetSystem(ff_core_List.List_toMap([], ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String))
 }
 
 export function AssetSystem_addAssets(self_, path_, assets_) {

package/output/js/ff/core/Atomic.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"

package/output/js/ff/core/Bool.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"

package/output/js/ff/core/Box.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"

package/output/js/ff/core/BrowserSystem.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"

package/output/js/ff/core/Buffer.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"

package/output/js/ff/core/BuildSystem.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"
@@ -121,7 +119,7 @@ return ff_core_Stream.Stream_flatMap(ff_core_Path.Path_entries(currentPath_), ((
 if(ff_core_Path.PathEntry_isDirectory(file_)) {
 return go_(ff_core_Path.PathEntry_path(file_))
 } else {
-return ff_core_List.List_toStream(ff_core_List.Link(ff_core_Path.PathEntry_path(file_), ff_core_List.Empty()), false)
+return ff_core_List.List_toStream([ff_core_Path.PathEntry_path(file_)], false)
 }
 }))
 }
@@ -182,7 +180,7 @@ return (await ff_core_Stream.Stream_flatMap$((await ff_core_Path.Path_entries$(c
 if((await ff_core_Path.PathEntry_isDirectory$(file_, $task))) {
 return (await go_$((await ff_core_Path.PathEntry_path$(file_, $task)), $task))
 } else {
-return (await ff_core_List.List_toStream$(ff_core_List.Link((await ff_core_Path.PathEntry_path$(file_, $task)), ff_core_List.Empty()), false, $task))
+return (await ff_core_List.List_toStream$([(await ff_core_Path.PathEntry_path$(file_, $task))], false, $task))
 }
 }), $task))
 }
@@ -286,13 +284,13 @@ const mainJsFile_ = ((((((prefix_ + "/") + self_.packageGroup_) + "/") + self_.p
 const mainDirectory_ = ff_core_Option.Option_grab(ff_core_Path.Path_parent(self_.mainFile_));
 const file_ = (prefix_ + "/Main.bundle.js");
 ff_core_BuildSystem.internalCallEsBuild_(self_, mainJsFile_, file_, minify_, sourceMap_);
-const assets_ = ff_core_AssetSystem.AssetSystem(ff_core_List.List_toMap(ff_core_List.Link(ff_core_Pair.Pair(ff_core_String.String_dropFirst(file_, ff_core_String.String_size(prefix_)), (() => {
+const assets_ = ff_core_AssetSystem.AssetSystem(ff_core_List.List_toMap([ff_core_Pair.Pair(ff_core_String.String_dropFirst(file_, ff_core_String.String_size(prefix_)), (() => {
 return ff_core_Path.Path_readStream(ff_core_Path.Path_path(mainDirectory_, file_))
-})), (sourceMap_
-? ff_core_List.Link(ff_core_Pair.Pair((ff_core_String.String_dropFirst(file_, ff_core_String.String_size(prefix_)) + ".map"), (() => {
+})), ...(sourceMap_
+? [ff_core_Pair.Pair((ff_core_String.String_dropFirst(file_, ff_core_String.String_size(prefix_)) + ".map"), (() => {
 return ff_core_Path.Path_readStream(ff_core_Path.Path_path(mainDirectory_, (file_ + ".map")))
-})), ff_core_List.Empty())
-: ff_core_List.Empty())), ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String));
+}))]
+: [])], ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String));
 return ff_core_BuildSystem.BrowserBundle(assets_)
 }
 
@@ -307,13 +305,13 @@ const mainJsFile_ = ((((((prefix_ + "/") + self_.packageGroup_) + "/") + self_.p
 const mainDirectory_ = ff_core_Option.Option_grab((await ff_core_Path.Path_parent$(self_.mainFile_, $task)));
 const file_ = (prefix_ + "/Main.bundle.js");
 (await ff_core_BuildSystem.internalCallEsBuild_$(self_, mainJsFile_, file_, minify_, sourceMap_, $task));
-const assets_ = ff_core_AssetSystem.AssetSystem(ff_core_List.List_toMap(ff_core_List.Link(ff_core_Pair.Pair(ff_core_String.String_dropFirst(file_, ff_core_String.String_size(prefix_)), (async ($task) => {
+const assets_ = ff_core_AssetSystem.AssetSystem(ff_core_List.List_toMap([ff_core_Pair.Pair(ff_core_String.String_dropFirst(file_, ff_core_String.String_size(prefix_)), (async ($task) => {
 return (await ff_core_Path.Path_readStream$((await ff_core_Path.Path_path$(mainDirectory_, file_, $task)), $task))
-})), (sourceMap_
-? ff_core_List.Link(ff_core_Pair.Pair((ff_core_String.String_dropFirst(file_, ff_core_String.String_size(prefix_)) + ".map"), (async ($task) => {
+})), ...(sourceMap_
+? [ff_core_Pair.Pair((ff_core_String.String_dropFirst(file_, ff_core_String.String_size(prefix_)) + ".map"), (async ($task) => {
 return (await ff_core_Path.Path_readStream$((await ff_core_Path.Path_path$(mainDirectory_, (file_ + ".map"), $task)), $task))
-})), ff_core_List.Empty())
-: ff_core_List.Empty())), ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String));
+}))]
+: [])], ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String));
 return ff_core_BuildSystem.BrowserBundle(assets_)
 }
 

package/output/js/ff/core/Channel.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"

package/output/js/ff/core/Char.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"

package/output/js/ff/core/Core.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"

package/output/js/ff/core/Duration.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"

package/output/js/ff/core/Equal.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"
@@ -160,24 +158,4 @@ throw new Error('Function equals is missing on this target in async context.');
 }
 };
 
-export const ff_core_Equal_Equal$ff_core_List_List = {
-equals_(x_, y_) {
-
-            let a = x_
-            let b = y_
-            if(a === b) return true
-            while(a.Link && b.Link) {
-                if(a === b) return true
-                if(!ff_core_Equal_Equal$T.equals_(a.head_, b.head_)) return false
-                a = a.tail_
-                b = b.tail_
-            }
-            return a.Empty && b.Empty
-        
-},
-async equals_$(x_, y_, $task) {
-throw new Error('Function equals is missing on this target in async context.');
-}
-};
-
 

package/output/js/ff/core/Error.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"

package/output/js/ff/core/FileHandle.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"

package/output/js/ff/core/Float.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"

package/output/js/ff/core/HttpClient.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"
@@ -115,7 +113,7 @@ export function RedirectManual() {
 return RedirectManual$;
 }
 
-export const emptyList_ = ff_core_List.Empty();
+export const emptyList_ = [];
 
 export function bodyText_(body_) {
 return body_
@@ -142,7 +140,7 @@ export async function HttpClient_fetch$(self_, url_, method_ = "GET", headers_ =
             try {
                 const options = {headers: {}, signal: $task.controller.signal}
                 options.method = method_
-                ff_core_List.List_each(headers_, pair => {options.headers[pair.first_] = pair.second_})
+                headers_.forEach(pair => {options.headers[pair.first_] = pair.second_})
                 if(body_.value_) options.body = body_.value_
                 if(redirect_.RedirectError) options.redirect = "error"
                 else if(redirect_.RedirectManual) options.redirect = "manual"

package/output/js/ff/core/Instant.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"

package/output/js/ff/core/Int.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"
@@ -134,20 +132,20 @@ return signed_ ? self_ >> bits_ : self_ >>> bits_;
 }
 
 export function Int_to(self_, inclusiveEnd_) {
-let result_ = ff_core_List.Empty();
+let result_ = [];
 let n_ = inclusiveEnd_;
 while((self_ <= n_)) {
-result_ = ff_core_List.Link(n_, result_);
+result_ = [n_, ...result_];
 n_ -= 1
 };
 return result_
 }
 
 export function Int_until(self_, exclusiveEnd_) {
-let result_ = ff_core_List.Empty();
+let result_ = [];
 let n_ = exclusiveEnd_;
 while((self_ < n_)) {
-result_ = ff_core_List.Link((n_ - 1), result_);
+result_ = [(n_ - 1), ...result_];
 n_ -= 1
 };
 return result_
@@ -216,20 +214,20 @@ throw new Error('Function Int_bitRight is missing on this target in async contex
 }
 
 export async function Int_to$(self_, inclusiveEnd_, $task) {
-let result_ = ff_core_List.Empty();
+let result_ = [];
 let n_ = inclusiveEnd_;
 while((self_ <= n_)) {
-result_ = ff_core_List.Link(n_, result_);
+result_ = [n_, ...result_];
 n_ -= 1
 };
 return result_
 }
 
 export async function Int_until$(self_, exclusiveEnd_, $task) {
-let result_ = ff_core_List.Empty();
+let result_ = [];
 let n_ = exclusiveEnd_;
 while((self_ < n_)) {
-result_ = ff_core_List.Link((n_ - 1), result_);
+result_ = [(n_ - 1), ...result_];
 n_ -= 1
 };
 return result_

package/output/js/ff/core/IntMap.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"
@@ -147,44 +145,40 @@ export function IntMap_eachWhile(self_, body_) {
 for(const [k, v] of self_) if(!body_(k, v)) break
 }
 
-export function IntMap_toStack(self_) {
-const stack_ = ff_core_Stack.make_();
+export function IntMap_toArray(self_) {
+const array_ = ff_core_Array.make_();
 ff_core_IntMap.IntMap_each(self_, ((k_, v_) => {
-ff_core_Stack.Stack_push(stack_, ff_core_Pair.Pair(k_, v_))
+ff_core_Array.Array_push(array_, ff_core_Pair.Pair(k_, v_))
 }));
-return stack_
-}
-
-export function IntMap_toArray(self_) {
-return ff_core_Stack.Stack_drain(ff_core_IntMap.IntMap_toStack(self_))
+return array_
 }
 
 export function IntMap_toList(self_) {
-return ff_core_Array.Array_toList(ff_core_IntMap.IntMap_toArray(self_))
+return ff_core_Array.Array_drain(ff_core_IntMap.IntMap_toArray(self_))
 }
 
 export function IntMap_toStream(self_) {
-return ff_core_Array.Array_toStream(ff_core_IntMap.IntMap_toArray(self_), false)
+return ff_core_Array.Array_toStream(ff_core_IntMap.IntMap_toArray(self_), 0, 9007199254740991)
 }
 
 export function IntMap_toMap(self_) {
-return ff_core_Array.Array_toMap(ff_core_IntMap.IntMap_toArray(self_), ff_core_Ordering.ff_core_Ordering_Order$ff_core_Int_Int)
+return ff_core_List.List_toMap(ff_core_IntMap.IntMap_toList(self_), ff_core_Ordering.ff_core_Ordering_Order$ff_core_Int_Int)
 }
 
 export function IntMap_keys(self_) {
-const stack_ = ff_core_Stack.make_();
+const array_ = ff_core_Array.make_();
 ff_core_IntMap.IntMap_each(self_, ((k_, v_) => {
-ff_core_Stack.Stack_push(stack_, k_)
+ff_core_Array.Array_push(array_, k_)
 }));
-return ff_core_Stack.Stack_toList(stack_, 0, 9007199254740991)
+return ff_core_Array.Array_toList(array_, 0, 9007199254740991)
 }
 
 export function IntMap_values(self_) {
-const stack_ = ff_core_Stack.make_();
+const array_ = ff_core_Array.make_();
 ff_core_IntMap.IntMap_each(self_, ((k_, v_) => {
-ff_core_Stack.Stack_push(stack_, v_)
+ff_core_Array.Array_push(array_, v_)
 }));
-return ff_core_Stack.Stack_toList(stack_, 0, 9007199254740991)
+return ff_core_Array.Array_toList(array_, 0, 9007199254740991)
 }
 
 export function IntMap_copy(self_) {
@@ -234,44 +228,40 @@ export async function IntMap_eachWhile$(self_, body_, $task) {
 for(const [k, v] of self_) if(!await body_(k, v)) break
 }
 
-export async function IntMap_toStack$(self_, $task) {
-const stack_ = ff_core_Stack.make_();
+export async function IntMap_toArray$(self_, $task) {
+const array_ = ff_core_Array.make_();
 ff_core_IntMap.IntMap_each(self_, ((k_, v_) => {
-ff_core_Stack.Stack_push(stack_, ff_core_Pair.Pair(k_, v_))
+ff_core_Array.Array_push(array_, ff_core_Pair.Pair(k_, v_))
 }));
-return stack_
-}
-
-export async function IntMap_toArray$(self_, $task) {
-return ff_core_Stack.Stack_drain(ff_core_IntMap.IntMap_toStack(self_))
+return array_
 }
 
 export async function IntMap_toList$(self_, $task) {
-return ff_core_Array.Array_toList(ff_core_IntMap.IntMap_toArray(self_))
+return ff_core_Array.Array_drain(ff_core_IntMap.IntMap_toArray(self_))
 }
 
 export async function IntMap_toStream$(self_, $task) {
-return (await ff_core_Array.Array_toStream$(ff_core_IntMap.IntMap_toArray(self_), false, $task))
+return (await ff_core_Array.Array_toStream$(ff_core_IntMap.IntMap_toArray(self_), 0, 9007199254740991, $task))
 }
 
 export async function IntMap_toMap$(self_, $task) {
-return ff_core_Array.Array_toMap(ff_core_IntMap.IntMap_toArray(self_), ff_core_Ordering.ff_core_Ordering_Order$ff_core_Int_Int)
+return ff_core_List.List_toMap(ff_core_IntMap.IntMap_toList(self_), ff_core_Ordering.ff_core_Ordering_Order$ff_core_Int_Int)
 }
 
 export async function IntMap_keys$(self_, $task) {
-const stack_ = ff_core_Stack.make_();
+const array_ = ff_core_Array.make_();
 ff_core_IntMap.IntMap_each(self_, ((k_, v_) => {
-ff_core_Stack.Stack_push(stack_, k_)
+ff_core_Array.Array_push(array_, k_)
 }));
-return ff_core_Stack.Stack_toList(stack_, 0, 9007199254740991)
+return ff_core_Array.Array_toList(array_, 0, 9007199254740991)
 }
 
 export async function IntMap_values$(self_, $task) {
-const stack_ = ff_core_Stack.make_();
+const array_ = ff_core_Array.make_();
 ff_core_IntMap.IntMap_each(self_, ((k_, v_) => {
-ff_core_Stack.Stack_push(stack_, v_)
+ff_core_Array.Array_push(array_, v_)
 }));
-return ff_core_Stack.Stack_toList(stack_, 0, 9007199254740991)
+return ff_core_Array.Array_toList(array_, 0, 9007199254740991)
 }
 
 export async function IntMap_copy$(self_, $task) {
@@ -290,14 +280,14 @@ export function IntMap_push(self_, key_, value_) {
 const _1 = ff_core_IntMap.IntMap_get(self_, key_);
 {
 if(_1.None) {
-ff_core_IntMap.IntMap_set(self_, key_, ff_core_List.List_toStack(ff_core_List.Link(value_, ff_core_List.Empty())))
+ff_core_IntMap.IntMap_set(self_, key_, ff_core_List.List_toArray([value_]))
 return
 }
 }
 {
 if(_1.Some) {
-const stack_ = _1.value_;
-ff_core_Stack.Stack_push(stack_, value_)
+const array_ = _1.value_;
+ff_core_Array.Array_push(array_, value_)
 return
 }
 }
@@ -309,14 +299,14 @@ export async function IntMap_push$(self_, key_, value_, $task) {
 const _1 = ff_core_IntMap.IntMap_get(self_, key_);
 {
 if(_1.None) {
-ff_core_IntMap.IntMap_set(self_, key_, ff_core_List.List_toStack(ff_core_List.Link(value_, ff_core_List.Empty())))
+ff_core_IntMap.IntMap_set(self_, key_, ff_core_List.List_toArray([value_]))
 return
 }
 }
 {
 if(_1.Some) {
-const stack_ = _1.value_;
-ff_core_Stack.Stack_push(stack_, value_)
+const array_ = _1.value_;
+ff_core_Array.Array_push(array_, value_)
 return
 }
 }

package/output/js/ff/core/JsSystem.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"
@@ -126,7 +124,7 @@ return {}
 }
 
 export function JsSystem_array(self_, values_) {
-return ff_core_List.List_toArray(values_)
+return values_.slice()
 }
 
 export function JsSystem_json(self_, value_) {

package/output/js/ff/core/JsValue.mjs

@@ -78,8 +78,6 @@ import * as ff_core_Show from "../../ff/core/Show.mjs"
 
 import * as ff_core_SourceLocation from "../../ff/core/SourceLocation.mjs"
 
-import * as ff_core_Stack from "../../ff/core/Stack.mjs"
-
 import * as ff_core_Stream from "../../ff/core/Stream.mjs"
 
 import * as ff_core_String from "../../ff/core/String.mjs"
@@ -238,7 +236,7 @@ for(const value of self_) if(!body_(value)) break
 }
 
 export function JsValue_call(self_, name_, arguments_) {
-return self_[name_].apply(this_, ff_core_List.List_toArray(arguments_))
+return self_[name_].apply(this_, arguments_)
 }
 
 export function JsValue_call0(self_, name_) {
@@ -282,7 +280,7 @@ return self_[name_].call(self_, a1_, a2_, a3_, a4_, a5_, a6_, a7_, a8_, a9_)
 }
 
 export function JsValue_callValue(self_, this_, arguments_) {
-return self_.apply(this_, ff_core_List.List_toArray(arguments_))
+return self_.apply(this_, arguments_)
 }
 
 export function JsValue_callValue0(self_) {
@@ -326,7 +324,7 @@ return self_.call(self_, a1_, a2_, a3_, a4_, a5_, a6_, a7_, a8_, a9_)
 }
 
 export function JsValue_new(self_, this_, arguments_) {
-return new (Function.prototype.bind.apply(self_, ff_core_List.List_toArray(arguments_)))
+return new (Function.prototype.bind.apply(self_, arguments_))
 }
 
 export function JsValue_new0(self_) {
@@ -372,12 +370,7 @@ return new self_(a1_, a2_, a3_, a4_, a5_, a6_, a7_, a8_, a9_)
 export function JsValue_grabPairs(self_) {
 
             if(!(self_ instanceof Object)) throw new Error('Expected object, got '+ typeof self_);;
-            let result = ff_core_List.Empty();
-            Object.getOwnPropertyNames(self_).forEach((name, i) => {
-                let pair = ff_core_Pair.Pair(name, self_[name]);
-                result = ff_core_List.Link(pair, result);
-            })
-            return result;
+            return Object.getOwnPropertyNames(self_).map((name, i) => ff_core_Pair.Pair(name, self_[name]));
         
 }
 
@@ -699,7 +692,7 @@ export const ff_core_JsValue_IsJsValue$ff_core_Bool_Bool = {
 
 };
 
-export function ff_core_JsValue_IsJsValue$ff_core_Array_Array(ff_core_JsValue_IsJsValue$T) { return {
+export function ff_core_JsValue_IsJsValue$ff_core_List_List(ff_core_JsValue_IsJsValue$T) { return {
 
 }}