@fable-org/fable-library-js 2.10.0 → 2.12.0

package/System.js

@@ -239,16 +239,16 @@ export function ArgumentException_$ctor_Z60A2B367(message, paramName, innerExcep
     return new ArgumentException(message, paramName, innerException);
 }
 export function ArgumentException_$ctor() {
-    return ArgumentException_$ctor_Z60A2B367(SR_Arg_ArgumentException, "", defaultOf());
+    return ArgumentException_$ctor_Z60A2B367(SR_Arg_ArgumentException, defaultOf(), defaultOf());
 }
 export function ArgumentException_$ctor_Z721C83C5(message) {
-    return ArgumentException_$ctor_Z60A2B367(message, "", defaultOf());
+    return ArgumentException_$ctor_Z60A2B367(message, defaultOf(), defaultOf());
 }
 export function ArgumentException_$ctor_Z384F8060(message, paramName) {
     return ArgumentException_$ctor_Z60A2B367(message, paramName, defaultOf());
 }
 export function ArgumentException_$ctor_68CE3CA2(message, innerException) {
-    return ArgumentException_$ctor_Z60A2B367(message, "", innerException);
+    return ArgumentException_$ctor_Z60A2B367(message, defaultOf(), innerException);
 }
 export function ArgumentException__get_ParamName(_) {
     return _.paramName;
@@ -268,7 +268,7 @@ export function ArgumentNullException_$ctor_Z721C83C5(paramName) {
     return ArgumentNullException_$ctor_Z384F8060(paramName, SR_ArgumentNull_Generic);
 }
 export function ArgumentNullException_$ctor() {
-    return ArgumentNullException_$ctor_Z721C83C5("");
+    return ArgumentNullException_$ctor_Z721C83C5(defaultOf());
 }
 export class ArgumentOutOfRangeException extends ArgumentException {
     constructor(paramName, message) {
@@ -285,5 +285,5 @@ export function ArgumentOutOfRangeException_$ctor_Z721C83C5(paramName) {
     return ArgumentOutOfRangeException_$ctor_Z384F8060(paramName, SR_Arg_ArgumentOutOfRangeException);
 }
 export function ArgumentOutOfRangeException_$ctor() {
-    return ArgumentOutOfRangeException_$ctor_Z721C83C5("");
+    return ArgumentOutOfRangeException_$ctor_Z721C83C5(defaultOf());
 }

package/TimeOnly.js

@@ -28,7 +28,7 @@ export function add(t, ts, wrappedDays) {
         const t2 = (t + ts) % millisecondsPerDay;
         return t2 < 0 ? millisecondsPerDay + t2 : t2;
     }
-    wrappedDays.contents = ts / millisecondsPerDay;
+    wrappedDays.contents = Math.trunc(ts / millisecondsPerDay);
     let newMs = t + ts % millisecondsPerDay;
     if (newMs < 0) {
         wrappedDays.contents--;

package/Types.js

@@ -1,4 +1,4 @@
-import { Exception, combineHashCodes, compare, compareArrays, equalArrays, equals, sameConstructor, numberHash, structuralHash } from "./Util.js";
+import { Exception, combineHashCode, compare, compareArrays, equalArrays, equals, sameConstructor, numberHash, structuralHash } from "./Util.js";
 export function seqToString(self) {
     let count = 0;
     let str = "[";
@@ -69,9 +69,11 @@ export class Union {
         return unionToString(this.name, this.fields);
     }
     GetHashCode() {
-        const hashes = this.fields.map((x) => structuralHash(x));
-        hashes.splice(0, 0, numberHash(this.tag));
-        return combineHashCodes(hashes);
+        let h = combineHashCode(0, numberHash(this.tag));
+        for (let i = 0; i < this.fields.length; i++) {
+            h = combineHashCode(h, structuralHash(this.fields[i]));
+        }
+        return h;
     }
     Equals(other) {
         if (this === other) {
@@ -114,8 +116,13 @@ function recordToString(self) {
     return "{ " + Object.entries(self).map(([k, v]) => k + " = " + toStringQuoted(v)).join("\n  ") + " }";
 }
 function recordGetHashCode(self) {
-    const hashes = Object.values(self).map((v) => structuralHash(v));
-    return combineHashCodes(hashes);
+    // Snapshot all values before calling any user-defined hash functions.
+    const values = Object.values(self);
+    let hash = 0;
+    for (let i = 0; i < values.length; i++) {
+        hash = combineHashCode(hash, structuralHash(values[i]));
+    }
+    return hash;
 }
 function recordEquals(self, other) {
     if (self === other) {
@@ -161,19 +168,27 @@ export class Record {
 }
 export class FSharpRef {
     get contents() {
-        return this.getter();
+        return this.getter === undefined ? this.value : this.getter();
     }
     set contents(v) {
-        this.setter(v);
+        if (this.setter === undefined) {
+            this.value = v;
+        }
+        else {
+            this.setter(v);
+        }
     }
+    // Same field layout on both paths so every cell shares one hidden class
     constructor(contentsOrGetter, setter) {
         if (typeof setter === "function") {
             this.getter = contentsOrGetter;
             this.setter = setter;
+            this.value = undefined;
         }
         else {
-            this.getter = () => contentsOrGetter;
-            this.setter = (v) => { contentsOrGetter = v; };
+            this.getter = undefined;
+            this.setter = undefined;
+            this.value = contentsOrGetter;
         }
     }
 }

package/Util.js

@@ -106,10 +106,43 @@ export function toEnumerable(e) {
         return new Enumerable(new Enumerator(e[Symbol.iterator]()));
     }
 }
+// Walks an array by index: the iterator protocol allocates a result object per element
+export class ArrayEnumerator {
+    constructor(array) {
+        this.current = defaultOf();
+        this.index = -1;
+        this.array = array;
+    }
+    ["System.Collections.Generic.IEnumerator`1.get_Current"]() {
+        return this.current;
+    }
+    ["System.Collections.IEnumerator.get_Current"]() {
+        return this.current;
+    }
+    ["System.Collections.IEnumerator.MoveNext"]() {
+        const i = ++this.index;
+        if (i < this.array.length) {
+            this.current = this.array[i];
+            return true;
+        }
+        this.current = defaultOf();
+        return false;
+    }
+    ["System.Collections.IEnumerator.Reset"]() {
+        this.index = -1;
+        this.current = defaultOf();
+    }
+    Dispose() {
+        return;
+    }
+}
 export function getEnumerator(e) {
     if (isEnumerable(e)) {
         return e.GetEnumerator();
     }
+    else if (Array.isArray(e)) {
+        return new ArrayEnumerator(e);
+    }
     else {
         return new Enumerator(e[Symbol.iterator]());
     }
@@ -235,12 +268,14 @@ export function bigintHash(x) {
     return stringHash(x.toString(32));
 }
 // From https://stackoverflow.com/a/37449594
+export function combineHashCode(h1, h2) {
+    return ((h1 << 5) + h1) ^ h2;
+}
 export function combineHashCodes(hashes) {
     let h1 = 0;
     const len = hashes.length;
     for (let i = 0; i < len; i++) {
-        const h2 = hashes[i];
-        h1 = ((h1 << 5) + h1) ^ h2;
+        h1 = combineHashCode(h1, hashes[i]);
     }
     return h1;
 }
@@ -273,12 +308,11 @@ export function dateHash(x) {
     return x.getTime();
 }
 export function arrayHash(x) {
-    const len = x.length;
-    const hashes = new Array(len);
-    for (let i = 0; i < len; i++) {
-        hashes[i] = structuralHash(x[i]);
+    let h = 0;
+    for (let i = 0; i < x.length; i++) {
+        h = combineHashCode(h, structuralHash(x[i]));
     }
-    return combineHashCodes(hashes);
+    return h;
 }
 export function structuralHash(x) {
     if (x == null) {
@@ -305,8 +339,13 @@ export function structuralHash(x) {
             }
             else if (Object.getPrototypeOf(x)?.constructor === Object) {
                 // TODO: check call-stack to prevent cyclic objects?
-                const hashes = Object.values(x).map((v) => structuralHash(v));
-                return combineHashCodes(hashes);
+                // Snapshot values before user hashing can mutate the object.
+                const values = Object.values(x);
+                let hash = 0;
+                for (let i = 0; i < values.length; i++) {
+                    hash = combineHashCode(hash, structuralHash(values[i]));
+                }
+                return hash;
             }
             else {
                 // Classes don't implement GetHashCode by default, but must use identity hashing
@@ -578,28 +617,32 @@ export function clear(col) {
         // TODO: throw for other collections?
     }
 }
-const curried = new WeakMap();
+// The original curried function rides on its adapter so curryN can hand it back
+const curriedKey = Symbol("curried");
+function getCurried(f) {
+    return f == null ? undefined : f[curriedKey];
+}
 export function uncurry2(f) {
     if (f == null) {
         return null;
     }
     const f2 = (a1, a2) => f(a1)(a2);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry2(f) {
-    return curried.get(f) ?? ((a1) => (a2) => f(a1, a2));
+    return getCurried(f) ?? ((a1) => (a2) => f(a1, a2));
 }
 export function uncurry3(f) {
     if (f == null) {
         return null;
     }
     const f2 = (a1, a2, a3) => f(a1)(a2)(a3);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry3(f) {
-    return curried.get(f)
+    return getCurried(f)
         ?? ((a1) => (a2) => (a3) => f(a1, a2, a3));
 }
 export function uncurry4(f) {
@@ -607,11 +650,11 @@ export function uncurry4(f) {
         return null;
     }
     const f2 = (a1, a2, a3, a4) => f(a1)(a2)(a3)(a4);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry4(f) {
-    return curried.get(f)
+    return getCurried(f)
         ?? ((a1) => (a2) => (a3) => (a4) => f(a1, a2, a3, a4));
 }
 export function uncurry5(f) {
@@ -619,11 +662,11 @@ export function uncurry5(f) {
         return null;
     }
     const f2 = (a1, a2, a3, a4, a5) => f(a1)(a2)(a3)(a4)(a5);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry5(f) {
-    return curried.get(f)
+    return getCurried(f)
         ?? ((a1) => (a2) => (a3) => (a4) => (a5) => f(a1, a2, a3, a4, a5));
 }
 export function uncurry6(f) {
@@ -631,11 +674,11 @@ export function uncurry6(f) {
         return null;
     }
     const f2 = (a1, a2, a3, a4, a5, a6) => f(a1)(a2)(a3)(a4)(a5)(a6);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry6(f) {
-    return curried.get(f)
+    return getCurried(f)
         ?? ((a1) => (a2) => (a3) => (a4) => (a5) => (a6) => f(a1, a2, a3, a4, a5, a6));
 }
 export function uncurry7(f) {
@@ -643,11 +686,11 @@ export function uncurry7(f) {
         return null;
     }
     const f2 = (a1, a2, a3, a4, a5, a6, a7) => f(a1)(a2)(a3)(a4)(a5)(a6)(a7);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry7(f) {
-    return curried.get(f)
+    return getCurried(f)
         ?? ((a1) => (a2) => (a3) => (a4) => (a5) => (a6) => (a7) => f(a1, a2, a3, a4, a5, a6, a7));
 }
 export function uncurry8(f) {
@@ -655,11 +698,11 @@ export function uncurry8(f) {
         return null;
     }
     const f2 = (a1, a2, a3, a4, a5, a6, a7, a8) => f(a1)(a2)(a3)(a4)(a5)(a6)(a7)(a8);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry8(f) {
-    return curried.get(f)
+    return getCurried(f)
         ?? ((a1) => (a2) => (a3) => (a4) => (a5) => (a6) => (a7) => (a8) => f(a1, a2, a3, a4, a5, a6, a7, a8));
 }
 export function uncurry9(f) {
@@ -667,11 +710,11 @@ export function uncurry9(f) {
         return null;
     }
     const f2 = (a1, a2, a3, a4, a5, a6, a7, a8, a9) => f(a1)(a2)(a3)(a4)(a5)(a6)(a7)(a8)(a9);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry9(f) {
-    return curried.get(f)
+    return getCurried(f)
         ?? ((a1) => (a2) => (a3) => (a4) => (a5) => (a6) => (a7) => (a8) => (a9) => f(a1, a2, a3, a4, a5, a6, a7, a8, a9));
 }
 export function uncurry10(f) {
@@ -679,11 +722,11 @@ export function uncurry10(f) {
         return null;
     }
     const f2 = (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10) => f(a1)(a2)(a3)(a4)(a5)(a6)(a7)(a8)(a9)(a10);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry10(f) {
-    return curried.get(f)
+    return getCurried(f)
         ?? ((a1) => (a2) => (a3) => (a4) => (a5) => (a6) => (a7) => (a8) => (a9) => (a10) => f(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10));
 }
 export function uncurry11(f) {
@@ -691,11 +734,11 @@ export function uncurry11(f) {
         return null;
     }
     const f2 = (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11) => f(a1)(a2)(a3)(a4)(a5)(a6)(a7)(a8)(a9)(a10)(a11);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry11(f) {
-    return curried.get(f)
+    return getCurried(f)
         ?? ((a1) => (a2) => (a3) => (a4) => (a5) => (a6) => (a7) => (a8) => (a9) => (a10) => (a11) => f(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11));
 }
 export function uncurry12(f) {
@@ -703,11 +746,11 @@ export function uncurry12(f) {
         return null;
     }
     const f2 = (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12) => f(a1)(a2)(a3)(a4)(a5)(a6)(a7)(a8)(a9)(a10)(a11)(a12);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry12(f) {
-    return curried.get(f)
+    return getCurried(f)
         ?? ((a1) => (a2) => (a3) => (a4) => (a5) => (a6) => (a7) => (a8) => (a9) => (a10) => (a11) => (a12) => f(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12));
 }
 export function uncurry13(f) {
@@ -715,11 +758,11 @@ export function uncurry13(f) {
         return null;
     }
     const f2 = (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13) => f(a1)(a2)(a3)(a4)(a5)(a6)(a7)(a8)(a9)(a10)(a11)(a12)(a13);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry13(f) {
-    return curried.get(f)
+    return getCurried(f)
         ?? ((a1) => (a2) => (a3) => (a4) => (a5) => (a6) => (a7) => (a8) => (a9) => (a10) => (a11) => (a12) => (a13) => f(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13));
 }
 export function uncurry14(f) {
@@ -727,11 +770,11 @@ export function uncurry14(f) {
         return null;
     }
     const f2 = (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14) => f(a1)(a2)(a3)(a4)(a5)(a6)(a7)(a8)(a9)(a10)(a11)(a12)(a13)(a14);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry14(f) {
-    return curried.get(f)
+    return getCurried(f)
         ?? ((a1) => (a2) => (a3) => (a4) => (a5) => (a6) => (a7) => (a8) => (a9) => (a10) => (a11) => (a12) => (a13) => (a14) => f(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14));
 }
 export function uncurry15(f) {
@@ -739,11 +782,11 @@ export function uncurry15(f) {
         return null;
     }
     const f2 = (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15) => f(a1)(a2)(a3)(a4)(a5)(a6)(a7)(a8)(a9)(a10)(a11)(a12)(a13)(a14)(a15);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry15(f) {
-    return curried.get(f)
+    return getCurried(f)
         ?? ((a1) => (a2) => (a3) => (a4) => (a5) => (a6) => (a7) => (a8) => (a9) => (a10) => (a11) => (a12) => (a13) => (a14) => (a15) => f(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15));
 }
 export function uncurry16(f) {
@@ -751,11 +794,11 @@ export function uncurry16(f) {
         return null;
     }
     const f2 = (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16) => f(a1)(a2)(a3)(a4)(a5)(a6)(a7)(a8)(a9)(a10)(a11)(a12)(a13)(a14)(a15)(a16);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry16(f) {
-    return curried.get(f)
+    return getCurried(f)
         ?? ((a1) => (a2) => (a3) => (a4) => (a5) => (a6) => (a7) => (a8) => (a9) => (a10) => (a11) => (a12) => (a13) => (a14) => (a15) => (a16) => f(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16));
 }
 export function uncurry17(f) {
@@ -763,11 +806,11 @@ export function uncurry17(f) {
         return null;
     }
     const f2 = (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17) => f(a1)(a2)(a3)(a4)(a5)(a6)(a7)(a8)(a9)(a10)(a11)(a12)(a13)(a14)(a15)(a16)(a17);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry17(f) {
-    return curried.get(f)
+    return getCurried(f)
         ?? ((a1) => (a2) => (a3) => (a4) => (a5) => (a6) => (a7) => (a8) => (a9) => (a10) => (a11) => (a12) => (a13) => (a14) => (a15) => (a16) => (a17) => f(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17));
 }
 export function uncurry18(f) {
@@ -775,11 +818,11 @@ export function uncurry18(f) {
         return null;
     }
     const f2 = (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18) => f(a1)(a2)(a3)(a4)(a5)(a6)(a7)(a8)(a9)(a10)(a11)(a12)(a13)(a14)(a15)(a16)(a17)(a18);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry18(f) {
-    return curried.get(f)
+    return getCurried(f)
         ?? ((a1) => (a2) => (a3) => (a4) => (a5) => (a6) => (a7) => (a8) => (a9) => (a10) => (a11) => (a12) => (a13) => (a14) => (a15) => (a16) => (a17) => (a18) => f(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18));
 }
 export function uncurry19(f) {
@@ -787,11 +830,11 @@ export function uncurry19(f) {
         return null;
     }
     const f2 = (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19) => f(a1)(a2)(a3)(a4)(a5)(a6)(a7)(a8)(a9)(a10)(a11)(a12)(a13)(a14)(a15)(a16)(a17)(a18)(a19);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry19(f) {
-    return curried.get(f)
+    return getCurried(f)
         ?? ((a1) => (a2) => (a3) => (a4) => (a5) => (a6) => (a7) => (a8) => (a9) => (a10) => (a11) => (a12) => (a13) => (a14) => (a15) => (a16) => (a17) => (a18) => (a19) => f(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19));
 }
 export function uncurry20(f) {
@@ -799,11 +842,11 @@ export function uncurry20(f) {
         return null;
     }
     const f2 = (a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20) => f(a1)(a2)(a3)(a4)(a5)(a6)(a7)(a8)(a9)(a10)(a11)(a12)(a13)(a14)(a15)(a16)(a17)(a18)(a19)(a20);
-    curried.set(f2, f);
+    f2[curriedKey] = f;
     return f2;
 }
 export function curry20(f) {
-    return curried.get(f)
+    return getCurried(f)
         ?? ((a1) => (a2) => (a3) => (a4) => (a5) => (a6) => (a7) => (a8) => (a9) => (a10) => (a11) => (a12) => (a13) => (a14) => (a15) => (a16) => (a17) => (a18) => (a19) => (a20) => f(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20));
 }
 // More performant method to copy arrays, see #2352

package/package.json

@@ -3,7 +3,7 @@
     "private": false,
     "type": "module",
     "name": "@fable-org/fable-library-js",
-    "version": "2.10.0",
+    "version": "2.12.0",
     "description": "Core library used by F# projects compiled with fable.io",
     "author": "Fable Contributors",
     "license": "MIT",