@fable-org/fable-library-js 2.4.2 → 2.5.1

package/Array.js

@@ -1,7 +1,7 @@
 import { disposeSafe, getEnumerator, copyToArray, defaultOf, Exception } from "./Util.js";
 import { Helpers_allocateArrayFromCons } from "./Native.js";
 import { setItem as setItem_1, item as item_2 } from "./Array.js";
-import { value as value_2, map as map_1, defaultArg, some } from "./Option.js";
+import { value as value_2, defaultArg, some } from "./Option.js";
 import { min as min_1, max as max_1 } from "./Double.js";
 import { SR_notEnoughElements, SR_inputMustBeNonNegative, SR_inputSequenceEmpty, SR_Arg_ArgumentOutOfRangeException, SR_indexOutOfBounds } from "./Global.js";
 import { Operators_IsNull } from "./FSharp.Core.js";
@@ -183,8 +183,9 @@ export function where(predicate, array) {
     return array.filter(predicate);
 }
 export function indexOf(array, item_1, start, count, eq) {
+    let option_1 = undefined;
     const start_1 = defaultArg(start, 0) | 0;
-    const end$0027 = defaultArg(map_1((c) => ((start_1 + c) | 0), count), array.length) | 0;
+    const end$0027 = defaultArg((option_1 = count, (option_1 != null) ? (start_1 + value_2(option_1)) : undefined), array.length) | 0;
     const loop = (i_mut) => {
         loop: while (true) {
             const i = i_mut;

package/CHANGELOG.md

@@ -1,5 +1,5 @@
 ---
-last_commit_released: a8d9bf5f0b7cc4560bb107963348e765695c22b6
+last_commit_released: 619d7afddbaf25108e819abaaa9d8a6503c457d6
 updaters:
   - package.json:
       file: package.json
@@ -15,6 +15,23 @@ All notable changes to this project will be documented in this file.
 The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
 and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).
 
+## 2.5.1 - 2026-07-24
+
+### 🐞 Bug Fixes
+
+* *(js/ts,python)* Inline Option/ValueOption combinators to avoid closures and allocations (#4836) ([61cac646](https://github.com/fable-compiler/Fable/commit/61cac646e6385d82247082dbb90a98b1646560de))
+
+<strong><small>[View changes on Github](https://github.com/fable-compiler/Fable/compare/6568f35ece227fc30ce84111c8d2e975b09bac00..619d7afddbaf25108e819abaaa9d8a6503c457d6)</small></strong>
+
+## 2.5.0 - 2026-07-15
+
+### 🚀 Features
+
+* *(js/ts)* Add `System.IO.Directory` support (Exists, CreateDirectory) (#4798) ([6568f35e](https://github.com/fable-compiler/Fable/commit/6568f35ece227fc30ce84111c8d2e975b09bac00))
+* *(js/ts/python/beam)* Preserve member calls and pattern matches in quotations (#4780) ([55482e6b](https://github.com/fable-compiler/Fable/commit/55482e6b5e6306fd4dbaba5759024313cb26682a))
+
+<strong><small>[View changes on Github](https://github.com/fable-compiler/Fable/compare/a8d9bf5f0b7cc4560bb107963348e765695c22b6..6568f35ece227fc30ce84111c8d2e975b09bac00)</small></strong>
+
 ## 2.4.2 - 2026-07-11
 
 ### 🐞 Bug Fixes

package/Directory.js

@@ -0,0 +1,11 @@
+// This library doesn't depend on @types/node (to stay browser-compatible),
+// so this Node.js built-in import can't be type-checked; the exported
+// functions below still declare their own types for callers to rely on.
+// @ts-ignore
+import { existsSync, mkdirSync, statSync } from "node:fs";
+export function exists(path) {
+    return existsSync(path) && statSync(path).isDirectory();
+}
+export function createDirectory(path) {
+    mkdirSync(path, { recursive: true });
+}

package/List.js

@@ -253,12 +253,13 @@ export function FSharpList__get_Item_Z524259A4(xs, index) {
             const i = i_mut, xs_1 = xs_1_mut;
             const matchValue = xs_1.tail;
             if (matchValue != null) {
+                const t = value_1(matchValue);
                 if (i === index) {
                     return xs_1.head;
                 }
                 else {
                     i_mut = (i + 1);
-                    xs_1_mut = value_1(matchValue);
+                    xs_1_mut = t;
                     continue loop;
                 }
             }

package/Map.js

@@ -702,11 +702,15 @@ export function MapTreeModule_foldSectionOpt(comparer, lo, hi, f, m, x) {
                         return x_3;
                     }
                 }
-                else if ((comparer.Compare(lo, MapTreeLeaf$2__get_Key(m2)) <= 0) && (comparer.Compare(MapTreeLeaf$2__get_Key(m2), hi) <= 0)) {
-                    return f_1(MapTreeLeaf$2__get_Key(m2), MapTreeLeaf$2__get_Value(m2), x_1);
-                }
                 else {
-                    return x_1;
+                    const cLoKey_1 = comparer.Compare(lo, MapTreeLeaf$2__get_Key(m2)) | 0;
+                    const cKeyHi_1 = comparer.Compare(MapTreeLeaf$2__get_Key(m2), hi) | 0;
+                    if ((cLoKey_1 <= 0) && (cKeyHi_1 <= 0)) {
+                        return f_1(MapTreeLeaf$2__get_Key(m2), MapTreeLeaf$2__get_Value(m2), x_1);
+                    }
+                    else {
+                        return x_1;
+                    }
                 }
             }
             else {

package/MutableMap.js

@@ -272,7 +272,7 @@ export function Dictionary__set_Item_5BDDA1(this$, k, v) {
             setItem(getItemFromDict(this$.hashMap, matchValue[1]), matchValue[2], [k, v]);
         }
         else {
-            const value = void (getItemFromDict(this$.hashMap, matchValue[1]).push([k, v]));
+            void (getItemFromDict(this$.hashMap, matchValue[1]).push([k, v]));
         }
     }
     else {
@@ -286,7 +286,7 @@ export function Dictionary__Add_5BDDA1(this$, k, v) {
             throw ArgumentException_$ctor_Z721C83C5(format("An item with the same key has already been added. Key: {0}", k));
         }
         else {
-            const value = void (getItemFromDict(this$.hashMap, matchValue[1]).push([k, v]));
+            void (getItemFromDict(this$.hashMap, matchValue[1]).push([k, v]));
         }
     }
     else {

package/MutableSet.js

@@ -178,7 +178,7 @@ export function HashSet__Add_2B595(this$, k) {
             return false;
         }
         else {
-            const value = void (getItemFromDict(this$.hashMap, matchValue[1]).push(k));
+            void (getItemFromDict(this$.hashMap, matchValue[1]).push(k));
             return true;
         }
     }

package/Option.js

@@ -70,30 +70,13 @@ export function toArray(opt) {
 export function defaultArg(opt, defaultValue) {
     return (opt != null) ? value(opt) : defaultValue;
 }
-export function defaultArgWith(opt, defThunk) {
-    return (opt != null) ? value(opt) : defThunk();
-}
 export function orElse(opt, ifNone) {
     return opt == null ? ifNone : opt;
 }
-export function orElseWith(opt, ifNoneThunk) {
-    return opt == null ? ifNoneThunk() : opt;
-}
-export function filter(predicate, opt) {
-    return (opt != null) ? (predicate(value(opt)) ? opt : undefined) : opt;
-}
+// Only used by Replacements.Util.fs's curry/uncurry helpers, not by `Option.map` itself.
 export function map(mapping, opt) {
     return (opt != null) ? some(mapping(value(opt))) : undefined;
 }
-export function map2(mapping, opt1, opt2) {
-    return (opt1 != null && opt2 != null) ? mapping(value(opt1), value(opt2)) : undefined;
-}
-export function map3(mapping, opt1, opt2, opt3) {
-    return (opt1 != null && opt2 != null && opt3 != null) ? mapping(value(opt1), value(opt2), value(opt3)) : undefined;
-}
-export function bind(binder, opt) {
-    return opt != null ? binder(value(opt)) : undefined;
-}
 export function tryOp(op, arg) {
     try {
         return some(op(arg));

package/Seq.js

@@ -277,7 +277,7 @@ export function Enumerator_unfold(f, state) {
     return Enumerator_FromFunctions$1_$ctor_58C54629(() => {
         if (curr != null) {
             const x = value_1(curr)[0];
-            const st = value_1(curr)[1];
+            value_1(curr)[1];
             return x;
         }
         else {
@@ -286,7 +286,7 @@ export function Enumerator_unfold(f, state) {
     }, () => {
         curr = f(acc);
         if (curr != null) {
-            const x_1 = value_1(curr)[0];
+            value_1(curr)[0];
             const st_1 = value_1(curr)[1];
             acc = st_1;
             return true;

package/package.json

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

package/quotation.js

@@ -5,6 +5,7 @@
  * and pattern matching helpers compatible with Fable's option convention
  * (undefined = no match, value/tuple = match).
  */
+import { ofArray } from "./List.js";
 // ===================================================================
 // Var: represents an F# quotation variable
 // ===================================================================
@@ -74,11 +75,12 @@ export class ExprIfThenElse {
     toJSON() { return ["IfThenElse", this.guard, this.thenExpr, this.elseExpr]; }
 }
 export class ExprCall {
-    constructor(instance, method, args) {
+    constructor(instance, method, args, declaringType = "") {
         this.tag = "Call";
         this.instance = instance;
         this.method = method;
         this.args = args;
+        this.declaringType = declaringType;
     }
     toJSON() { return ["Call", this.instance, this.method, this.args]; }
 }
@@ -176,6 +178,10 @@ export class ExprVarSet {
 export function mkValue(value, type) {
     return new ExprValue(value, type);
 }
+export function mkNull(type) {
+    // A null-value node (no instance / null literal / empty option or list).
+    return new ExprValue(null, type);
+}
 export function mkVar(v) {
     return new ExprVarExpr(v);
 }
@@ -191,8 +197,8 @@ export function mkLet(v, value, body) {
 export function mkIfThenElse(guard, thenExpr, elseExpr) {
     return new ExprIfThenElse(guard, thenExpr, elseExpr);
 }
-export function mkCall(instance, method, args) {
-    return new ExprCall(instance, method, args);
+export function mkCall(instance, method, args, declaringType = "") {
+    return new ExprCall(instance, method, args, declaringType);
 }
 export function mkSequential(first, second) {
     return new ExprSequential(first, second);
@@ -273,10 +279,17 @@ export function isIfThenElse(expr) {
     return undefined;
 }
 export function isCall(expr) {
-    if (expr instanceof ExprCall)
-        return [expr.instance, expr.method, expr.args];
+    if (expr instanceof ExprCall) {
+        // "novalue" is the "no instance" sentinel, distinct from a genuine quoted null ("null").
+        const instance = (expr.instance instanceof ExprValue && expr.instance.type === "novalue") ? null : expr.instance;
+        // Must be a real FSharpList (not the raw array), same reasoning as isFieldGet below.
+        return [instance, expr.method, ofArray(expr.args)];
+    }
     return undefined;
 }
+export function callDeclaringType(expr) {
+    return expr instanceof ExprCall ? expr.declaringType : "";
+}
 export function isSequential(expr) {
     if (expr instanceof ExprSequential)
         return [expr.first, expr.second];
@@ -303,8 +316,12 @@ export function isTupleGet(expr) {
     return undefined;
 }
 export function isFieldGet(expr) {
-    if (expr instanceof ExprFieldGet)
-        return [expr.expr, expr.fieldName];
+    // Third element mirrors PropertyGet's indexer-args slot, always empty here (never indexed).
+    // "novalue" is the "no instance" sentinel, distinct from a genuine quoted null ("null").
+    if (expr instanceof ExprFieldGet) {
+        const instance = (expr.expr instanceof ExprValue && expr.expr.type === "novalue") ? null : expr.expr;
+        return [instance, expr.fieldName, []];
+    }
     return undefined;
 }
 // ===================================================================
@@ -555,7 +572,7 @@ export function substitute(expr, fn) {
             return new ExprIfThenElse(sub(e.guard), sub(e.thenExpr), sub(e.elseExpr));
         if (e instanceof ExprCall) {
             const newInst = e.instance != null ? sub(e.instance) : e.instance;
-            return new ExprCall(newInst, e.method, e.args.map(sub));
+            return new ExprCall(newInst, e.method, e.args.map(sub), e.declaringType);
         }
         if (e instanceof ExprSequential)
             return new ExprSequential(sub(e.first), sub(e.second));