/**
* sx-ref.js — Generated from reference SX evaluator specification.
*
* Bootstrap-compiled from shared/sx/ref/{eval,render,primitives}.sx
* Compare against hand-written sx.js for correctness verification.
*
* DO NOT EDIT — regenerate with: python bootstrap_js.py
*/
;(function(global) {
"use strict";
// =========================================================================
// Equality — used by transpiled code (= a b) → sxEq(a, b)
// =========================================================================
function sxEq(a, b) {
if (a === b) return true;
if (a && b && a._sym && b._sym) return a.name === b.name;
if (a && b && a._kw && b._kw) return a.name === b.name;
if (a && b && a._vector && b._vector) {
if (a.arr.length !== b.arr.length) return false;
for (var _i = 0; _i < a.arr.length; _i++) {
if (!sxEq(a.arr[_i], b.arr[_i])) return false;
}
return true;
}
if (Array.isArray(a) && Array.isArray(b)) {
if (a.length !== b.length) return false;
for (var _j = 0; _j < a.length; _j++) {
if (!sxEq(a[_j], b[_j])) return false;
}
return true;
}
if (a && b && a._rational && b._rational) return a._n === b._n && a._d === b._d;
if (a && a._rational && typeof b === "number") return b === a._n / a._d;
if (b && b._rational && typeof a === "number") return a === b._n / b._d;
return false;
}
// =========================================================================
// Types
// =========================================================================
var NIL = Object.freeze({ _nil: true, toString: function() { return "nil"; } });
var SX_VERSION = "2026-05-06T23:01:54Z";
function isNil(x) { return x === NIL || x === null || x === undefined; }
function isSxTruthy(x) { return x !== false && !isNil(x); }
function Symbol(name) { this.name = name; }
Symbol.prototype.toString = function() { return this.name; };
Symbol.prototype._sym = true;
function Keyword(name) { this.name = name; }
Keyword.prototype.toString = function() { return ":" + this.name; };
Keyword.prototype._kw = true;
function Lambda(params, body, closure, name) {
this.params = params;
this.body = body;
this.closure = closure || {};
this.name = name || null;
}
Lambda.prototype._lambda = true;
function Component(name, params, hasChildren, body, closure, affinity) {
this.name = name;
this.params = params;
this.hasChildren = hasChildren;
this.body = body;
this.closure = closure || {};
this.affinity = affinity || "auto";
}
Component.prototype._component = true;
function Island(name, params, hasChildren, body, closure) {
this.name = name;
this.params = params;
this.hasChildren = hasChildren;
this.body = body;
this.closure = closure || {};
}
Island.prototype._island = true;
function Macro(params, restParam, body, closure, name) {
this.params = params;
this.restParam = restParam;
this.body = body;
this.closure = closure || {};
this.name = name || null;
}
Macro.prototype._macro = true;
function Thunk(expr, env) { this.expr = expr; this.env = env; }
Thunk.prototype._thunk = true;
function RawHTML(html) { this.html = html; }
RawHTML.prototype._raw = true;
function SxSpread(attrs) { this.attrs = attrs || {}; }
SxSpread.prototype._spread = true;
function SxVector(arr) { this.arr = arr || []; }
SxVector.prototype._vector = true;
var _paramUidCounter = 0;
function SxParameter(defaultVal, converter) {
this._uid = ++_paramUidCounter;
this._default = defaultVal;
this._converter = converter || null;
}
SxParameter.prototype._parameter = true;
function parameter_p(x) { return x != null && x._parameter === true; }
function parameterUid(p) { return p._uid; }
function parameterDefault(p) { return p._default; }
function SxCallccContinuation(capturedKont, windersLen) { this._captured = capturedKont; this._winders_len = windersLen !== undefined ? windersLen : 0; }
SxCallccContinuation.prototype._callcc = true;
function makeCallccContinuation(kont, windersLen) { return new SxCallccContinuation(kont, windersLen !== undefined ? windersLen : 0); }
function callccContinuation_p(x) { return x != null && x._callcc === true; }
function callccContinuationData(x) { return x._captured; }
function callccContinuationWindersLen(x) { return x._winders_len !== undefined ? x._winders_len : 0; }
function evalError_p(v) {
return v != null && typeof v === "object" && v["__eval_error__"] === true;
}
function sxApplyCek(f, args) {
try {
return typeof f === "function" ? f.apply(null, args) : f;
} catch (e) {
if (e && e._perform_request) throw e;
if (e && e._cek_suspend) throw e;
return {"__eval_error__": true, "message": e && e.message ? e.message : String(e)};
}
}
var _JIT_SKIP_SENTINEL = {"__jit_skip": true};
function jitTryCall(f, args) { return _JIT_SKIP_SENTINEL; }
function jitSkip_p(v) { return v === _JIT_SKIP_SENTINEL || (v != null && v["__jit_skip"] === true); }
var _scopeStacks = {};
function isSym(x) { return x != null && x._sym === true; }
function isKw(x) { return x != null && x._kw === true; }
function merge() {
var out = {};
for (var i = 0; i < arguments.length; i++) {
var d = arguments[i];
if (d) for (var k in d) out[k] = d[k];
}
return out;
}
function sxOr() {
for (var i = 0; i < arguments.length; i++) {
if (isSxTruthy(arguments[i])) return arguments[i];
}
return arguments.length ? arguments[arguments.length - 1] : false;
}
// =========================================================================
// Platform interface — JS implementation
// =========================================================================
function typeOf(x) {
if (isNil(x)) return "nil";
if (typeof x === "number") return "number";
if (typeof x === "string") return "string";
if (typeof x === "boolean") return "boolean";
if (x._sym) return "symbol";
if (x._kw) return "keyword";
if (x._thunk) return "thunk";
if (x._lambda) return "lambda";
if (x._component) return "component";
if (x._island) return "island";
if (x._spread) return "spread";
if (x._macro) return "macro";
if (x._raw) return "raw-html";
if (x._sx_expr) return "sx-expr";
if (x._char) return "char";
if (x._eof) return "eof-object";
if (x._port) return x._kind === "input" ? "input-port" : "output-port";
if (x._vector) return "vector";
if (x._string_buffer) return "string-buffer";
if (x._hash_table) return "hash-table";
if (x._sxset) return "set";
if (x._regexp) return "regexp";
if (x._bytevector) return "bytevector";
if (x._rational) return "rational";
if (x._adtv) return x._type;
if (typeof Node !== "undefined" && x instanceof Node) return "dom-node";
if (Array.isArray(x)) return "list";
if (typeof x === "object") return "dict";
return "unknown";
}
// AdtValue — native algebraic data type instance (Step 6 mirror of OCaml Step 5).
// Constructed by define-type. Carries _adt:true plus _adtv:true tag so type-of
// returns the type name rather than "dict". dict? remains true (shim approach)
// so spec-level match-pattern in evaluator.sx works without changes.
function makeAdtValue(typeName, ctorName, fields) {
return {
_adtv: true,
_adt: true,
_type: typeName,
_ctor: ctorName,
_fields: fields
};
}
function isAdtValue(x) {
return x !== null && typeof x === "object" && x._adtv === true;
}
function symbolName(s) { return s.name; }
function keywordName(k) { return k.name; }
function makeSymbol(n) { return new Symbol(n); }
function makeKeyword(n) { return new Keyword(n); }
function makeLambda(params, body, env) { return new Lambda(params, body, env); }
function makeComponent(name, params, hasChildren, body, env, affinity) {
return new Component(name, params, hasChildren, body, env, affinity);
}
function makeMacro(params, restParam, body, env, name) {
return new Macro(params, restParam, body, env, name);
}
function makeThunk(expr, env) { return new Thunk(expr, env); }
function makeSpread(attrs) { return new SxSpread(attrs || {}); }
function isSpread(x) { return x != null && x._spread === true; }
function spreadAttrs(s) { return s && s._spread ? s.attrs : {}; }
function scopePush(name, value) {
if (!_scopeStacks[name]) _scopeStacks[name] = [];
_scopeStacks[name].push({value: value !== undefined ? value : NIL, emitted: [], dedup: false});
}
function scopePop(name) {
if (_scopeStacks[name] && _scopeStacks[name].length) _scopeStacks[name].pop();
}
// Aliases — provide-push!/provide-pop! map to scope-push!/scope-pop!
var providePush = scopePush;
var providePop = scopePop;
function sxContext(name) {
if (_scopeStacks[name] && _scopeStacks[name].length) {
return _scopeStacks[name][_scopeStacks[name].length - 1].value;
}
if (arguments.length > 1) return arguments[1];
throw new Error("No provider for: " + name);
}
function sxEmit(name, value) {
if (_scopeStacks[name] && _scopeStacks[name].length) {
var entry = _scopeStacks[name][_scopeStacks[name].length - 1];
if (entry.dedup && entry.emitted.indexOf(value) !== -1) return NIL;
entry.emitted.push(value);
}
return NIL;
}
function sxEmitted(name) {
if (_scopeStacks[name] && _scopeStacks[name].length) {
return _scopeStacks[name][_scopeStacks[name].length - 1].emitted.slice();
}
return [];
}
function sxCollect(bucket, value) {
if (!_scopeStacks[bucket] || !_scopeStacks[bucket].length) {
if (!_scopeStacks[bucket]) _scopeStacks[bucket] = [];
_scopeStacks[bucket].push({value: NIL, emitted: [], dedup: true});
}
var entry = _scopeStacks[bucket][_scopeStacks[bucket].length - 1];
if (entry.emitted.indexOf(value) === -1) entry.emitted.push(value);
}
function sxCollected(bucket) {
return sxEmitted(bucket);
}
function sxClearCollected(bucket) {
if (_scopeStacks[bucket] && _scopeStacks[bucket].length) {
_scopeStacks[bucket][_scopeStacks[bucket].length - 1].emitted = [];
}
}
function lambdaParams(f) { return f.params; }
function lambdaBody(f) { return f.body; }
function lambdaClosure(f) { return f.closure; }
function lambdaName(f) { return f.name; }
function setLambdaName(f, n) { f.name = n; }
function componentParams(c) { return c.params; }
function componentBody(c) { return c.body; }
function componentClosure(c) { return c.closure; }
function componentHasChildren(c) { return c.hasChildren; }
function componentName(c) { return c.name; }
function componentFile(c) { return (c && c.file) ? c.file : NIL; }
function componentAffinity(c) { return c.affinity || "auto"; }
function componentParamTypes(c) { return (c && c._paramTypes) ? c._paramTypes : NIL; }
function componentSetParamTypes_b(c, t) { if (c) c._paramTypes = t; return NIL; }
function macroParams(m) { return m.params; }
function macroRestParam(m) { return m.restParam; }
function macroBody(m) { return m.body; }
function macroClosure(m) { return m.closure; }
function isThunk(x) { return x != null && x._thunk === true; }
function thunkExpr(t) { return t.expr; }
function thunkEnv(t) { return t.env; }
function isCallable(x) { return typeof x === "function" || (x != null && x._lambda === true); }
function isLambda(x) { return x != null && x._lambda === true; }
function isComponent(x) { return x != null && x._component === true; }
function isIsland(x) { return x != null && x._island === true; }
function isMacro(x) { return x != null && x._macro === true; }
function isIdentical(a, b) { return a === b; }
// Island platform
function makeIsland(name, params, hasChildren, body, env) {
return new Island(name, params, hasChildren, body, env);
}
// JSON / dict helpers for island state serialization
function jsonSerialize(obj) {
return JSON.stringify(obj);
}
function isEmptyDict(d) {
if (!d || typeof d !== "object") return true;
for (var k in d) if (d.hasOwnProperty(k)) return false;
return true;
}
function envHas(env, name) { return name in env; }
function envGet(env, name) { return env[name]; }
function envBind(env, name, val) {
// Direct property set — creates or overwrites on THIS env only.
// Used by let, define, defcomp, lambda param binding.
env[name] = val;
}
function envSet(env, name, val) {
// Walk prototype chain to find where the variable is defined (for set!)
var obj = env;
while (obj !== null && obj !== Object.prototype) {
if (obj.hasOwnProperty(name)) { obj[name] = val; return; }
obj = Object.getPrototypeOf(obj);
}
// Not found in any parent scope — set on the immediate env
env[name] = val;
}
function envExtend(env) { return Object.create(env); }
function envMerge(base, overlay) {
// Same env or overlay is descendant of base — just extend, no copy.
// This prevents set! inside lambdas from modifying shadow copies.
if (base === overlay) return Object.create(base);
var p = overlay;
for (var d = 0; p && p !== Object.prototype && d < 100; d++) {
if (p === base) return Object.create(base);
p = Object.getPrototypeOf(p);
}
// General case: extend base, copy ONLY overlay properties that don't
// exist in the base chain (avoids shadowing closure bindings).
var child = Object.create(base);
if (overlay) {
for (var k in overlay) {
if (overlay.hasOwnProperty(k) && !(k in base)) child[k] = overlay[k];
}
}
return child;
}
function dictSet(d, k, v) { d[k] = v; return v; }
function dictGet(d, k) { var v = d[k]; return v !== undefined ? v : NIL; }
// Render-expression detection — lets the evaluator delegate to the active adapter.
// Matches HTML tags, SVG tags, <>, raw!, ~components, html: prefix, custom elements.
// Placeholder — overridden by transpiled version from render.sx
function isRenderExpr(expr) { return false; }
// Last error continuation — saved when a raise goes unhandled, for post-mortem inspection.
var _lastErrorKont_ = null;
// hostError — throw a host-level error that propagates out of cekRun.
function hostError(msg) { throw new Error(typeof msg === "string" ? msg : inspect(msg)); }
// Render dispatch — call the active adapter's render function.
// Set by each adapter when loaded; defaults to identity (no rendering).
var _renderExprFn = null;
// Render mode flag — set by render-to-html/aser, checked by eval-list.
// When false, render expressions fall through to evalCall.
var _renderMode = false;
function renderActiveP() { return _renderMode; }
function setRenderActiveB(val) { _renderMode = !!val; }
function renderExpr(expr, env) {
if (_renderExprFn) return _renderExprFn(expr, env);
// No adapter loaded — fall through to evalCall
return evalCall(first(expr), rest(expr), env);
}
function stripPrefix(s, prefix) {
return s.indexOf(prefix) === 0 ? s.slice(prefix.length) : s;
}
function error(msg) { throw new Error(msg); }
function inspect(x) {
if (x !== null && typeof x === "object" && x._adtv === true) {
var fs = x._fields || [];
if (fs.length === 0) return "(" + x._ctor + ")";
var parts = [];
for (var i = 0; i < fs.length; i++) parts.push(inspect(fs[i]));
return "(" + x._ctor + " " + parts.join(" ") + ")";
}
return JSON.stringify(x);
}
function debugLog() { console.error.apply(console, ["[sx-debug]"].concat(Array.prototype.slice.call(arguments))); }
// =========================================================================
// Primitives
// =========================================================================
var PRIMITIVES = {};
// core.arithmetic
function _ratMake(n, d) {
if (d === 0) throw new Error("division by zero");
var r = new SxRational(n, d);
return r._d === 1 ? r._n : r;
}
function _ratN(x) { return x && x._rational ? x._n : x; }
function _ratD(x) { return x && x._rational ? x._d : 1; }
function _hasFloat(args) {
for (var i = 0; i < args.length; i++) {
var x = args[i];
if (typeof x === "number" && !Number.isInteger(x)) return true;
}
return false;
}
function _ratToFloat(x) { return x && x._rational ? x._n / x._d : x; }
PRIMITIVES["+"] = function() {
var hasRat = false;
for (var i = 0; i < arguments.length; i++) if (arguments[i] && arguments[i]._rational) { hasRat = true; break; }
if (!hasRat) { var s = 0; for (var i = 0; i < arguments.length; i++) s += arguments[i]; return s; }
if (_hasFloat(arguments)) { var s = 0; for (var i = 0; i < arguments.length; i++) s += _ratToFloat(arguments[i]); return s; }
var an = 0, ad = 1;
for (var i = 0; i < arguments.length; i++) {
var bn = _ratN(arguments[i]), bd = _ratD(arguments[i]);
an = an * bd + bn * ad; ad = ad * bd;
}
return _ratMake(an, ad);
};
PRIMITIVES["-"] = function() {
if (arguments.length === 0) return 0;
var hasRat = false;
for (var i = 0; i < arguments.length; i++) if (arguments[i] && arguments[i]._rational) { hasRat = true; break; }
if (!hasRat) return arguments.length === 1 ? -arguments[0] : arguments[0] - arguments[1];
if (_hasFloat(arguments)) {
if (arguments.length === 1) return -_ratToFloat(arguments[0]);
var s = _ratToFloat(arguments[0]);
for (var i = 1; i < arguments.length; i++) s -= _ratToFloat(arguments[i]);
return s;
}
if (arguments.length === 1) { var x = arguments[0]; return x._rational ? _ratMake(-x._n, x._d) : -x; }
var an = _ratN(arguments[0]), ad = _ratD(arguments[0]);
for (var i = 1; i < arguments.length; i++) {
var bn = _ratN(arguments[i]), bd = _ratD(arguments[i]);
an = an * bd - bn * ad; ad = ad * bd;
}
return _ratMake(an, ad);
};
PRIMITIVES["*"] = function() {
var hasRat = false;
for (var i = 0; i < arguments.length; i++) if (arguments[i] && arguments[i]._rational) { hasRat = true; break; }
if (!hasRat) { var s = 1; for (var i = 0; i < arguments.length; i++) s *= arguments[i]; return s; }
if (_hasFloat(arguments)) { var s = 1; for (var i = 0; i < arguments.length; i++) s *= _ratToFloat(arguments[i]); return s; }
var an = 1, ad = 1;
for (var i = 0; i < arguments.length; i++) { an *= _ratN(arguments[i]); ad *= _ratD(arguments[i]); }
return _ratMake(an, ad);
};
PRIMITIVES["/"] = function(a, b) {
var aRat = a && a._rational, bRat = b && b._rational;
if (!aRat && !bRat) return a / b;
if (typeof a === "number" && !Number.isInteger(a) || typeof b === "number" && !Number.isInteger(b))
return _ratToFloat(a) / _ratToFloat(b);
return _ratMake(_ratN(a) * _ratD(b), _ratD(a) * _ratN(b));
};
PRIMITIVES["mod"] = function(a, b) { return a % b; };
PRIMITIVES["inc"] = function(n) { return n + 1; };
PRIMITIVES["dec"] = function(n) { return n - 1; };
PRIMITIVES["abs"] = Math.abs;
PRIMITIVES["floor"] = Math.floor;
PRIMITIVES["ceil"] = Math.ceil;
PRIMITIVES["round"] = function(x, n) {
if (n === undefined || n === 0) return Math.round(x);
var f = Math.pow(10, n); return Math.round(x * f) / f;
};
PRIMITIVES["truncate"] = Math.trunc;
PRIMITIVES["remainder"] = function(a, b) { return a % b; };
PRIMITIVES["modulo"] = function(a, b) { var r = a % b; return (r !== 0 && (r < 0) !== (b < 0)) ? r + b : r; };
PRIMITIVES["min"] = Math.min;
PRIMITIVES["max"] = Math.max;
PRIMITIVES["sqrt"] = Math.sqrt;
PRIMITIVES["pow"] = Math.pow;
PRIMITIVES["clamp"] = function(x, lo, hi) { return Math.max(lo, Math.min(hi, x)); };
PRIMITIVES["random-int"] = function(lo, hi) { return Math.floor(Math.random() * (hi - lo + 1)) + lo; };
PRIMITIVES["exact->inexact"] = function(x) {
if (x && x._rational) return x._n / x._d;
return x;
};
PRIMITIVES["inexact->exact"] = Math.round;
PRIMITIVES["parse-number"] = function(s) { var n = Number(s); return isNaN(n) ? null : n; };
// core.comparison
function _ratCmp(a, b) {
return _ratN(a) * _ratD(b) - _ratN(b) * _ratD(a);
}
PRIMITIVES["="] = sxEq;
PRIMITIVES["!="] = function(a, b) { return !sxEq(a, b); };
PRIMITIVES["<"] = function(a, b) {
if ((a && a._rational) || (b && b._rational)) return _ratCmp(a, b) < 0;
return a < b;
};
PRIMITIVES[">"] = function(a, b) {
if ((a && a._rational) || (b && b._rational)) return _ratCmp(a, b) > 0;
return a > b;
};
PRIMITIVES["<="] = function(a, b) {
if ((a && a._rational) || (b && b._rational)) return _ratCmp(a, b) <= 0;
return a <= b;
};
PRIMITIVES[">="] = function(a, b) {
if ((a && a._rational) || (b && b._rational)) return _ratCmp(a, b) >= 0;
return a >= b;
};
// core.logic
PRIMITIVES["not"] = function(x) { return !isSxTruthy(x); };
// core.predicates
PRIMITIVES["nil?"] = isNil;
PRIMITIVES["number?"] = function(x) { return typeof x === "number" || (x != null && x._rational === true); };
PRIMITIVES["integer?"] = function(x) { return typeof x === "number" && Number.isInteger(x); };
PRIMITIVES["float?"] = function(x) { return typeof x === "number" && !Number.isInteger(x); };
PRIMITIVES["exact?"] = function(x) { return (typeof x === "number" && Number.isInteger(x)) || (x != null && x._rational === true); };
PRIMITIVES["inexact?"] = function(x) { return typeof x === "number" && !Number.isInteger(x); };
PRIMITIVES["string?"] = function(x) { return typeof x === "string"; };
PRIMITIVES["list?"] = Array.isArray;
PRIMITIVES["dict?"] = function(x) { return x !== null && typeof x === "object" && !Array.isArray(x) && !x._sym && !x._kw && !x._string_buffer && !x._vector && !x._hash_table && !x._rational; };
PRIMITIVES["empty?"] = function(c) { return isNil(c) || (Array.isArray(c) ? c.length === 0 : typeof c === "string" ? c.length === 0 : Object.keys(c).length === 0); };
PRIMITIVES["contains?"] = function(c, k) {
if (typeof c === "string") return c.indexOf(String(k)) !== -1;
if (Array.isArray(c)) return c.indexOf(k) !== -1;
return k in c;
};
PRIMITIVES["odd?"] = function(n) { return n % 2 !== 0; };
PRIMITIVES["even?"] = function(n) { return n % 2 === 0; };
PRIMITIVES["zero?"] = function(n) { return n === 0; };
PRIMITIVES["boolean?"] = function(x) { return x === true || x === false; };
PRIMITIVES["symbol?"] = function(x) { return x != null && x._sym === true; };
PRIMITIVES["keyword?"] = function(x) { return x != null && x._kw === true; };
PRIMITIVES["adt?"] = function(x) { return x !== null && typeof x === "object" && x._adtv === true; };
PRIMITIVES["component-affinity"] = componentAffinity;
// core.strings
PRIMITIVES["str"] = function() {
var p = [];
for (var i = 0; i < arguments.length; i++) {
var v = arguments[i]; if (isNil(v)) continue; p.push(String(v));
}
return p.join("");
};
PRIMITIVES["upper"] = function(s) { return String(s).toUpperCase(); };
PRIMITIVES["lower"] = function(s) { return String(s).toLowerCase(); };
PRIMITIVES["trim"] = function(s) { return String(s).trim(); };
PRIMITIVES["split"] = function(s, sep) { return String(s).split(sep || " "); };
PRIMITIVES["join"] = function(sep, coll) { return coll.join(sep); };
PRIMITIVES["replace"] = function(s, old, nw) { return s.split(old).join(nw); };
PRIMITIVES["index-of"] = function(s, needle, from) {
if (Array.isArray(s)) {
var _start = from || 0;
for (var _i = _start; _i < s.length; _i++) {
var _a = s[_i];
if (_a === needle) return _i;
if (_a != null && needle != null && typeof _a === "object" && typeof needle === "object") {
if ((_a._sym && needle._sym || _a._kw && needle._kw) && _a.name === needle.name) return _i;
}
}
return NIL;
}
return String(s).indexOf(needle, from || 0);
};
PRIMITIVES["starts-with?"] = function(s, p) { return String(s).indexOf(p) === 0; };
PRIMITIVES["ends-with?"] = function(s, p) { var str = String(s); return str.indexOf(p, str.length - p.length) !== -1; };
PRIMITIVES["slice"] = function(c, a, b) { if (!c || typeof c.slice !== "function") { console.error("[sx-debug] slice called on non-sliceable:", typeof c, c, "a=", a, "b=", b, new Error().stack); return []; } return b !== undefined ? c.slice(a, b) : c.slice(a); };
PRIMITIVES["substring"] = function(s, a, b) { return String(s).substring(a, b); };
PRIMITIVES["char-from-code"] = function(n) { return String.fromCharCode(n); };
PRIMITIVES["char-code"] = function(s) { return String(s).charCodeAt(0); };
var charCode = PRIMITIVES["char-code"];
function makeChar(n) { return {_char: true, codepoint: n}; }
PRIMITIVES["make-char"] = makeChar;
var isChar = function(v) { return v != null && typeof v === "object" && v._char === true; };
PRIMITIVES["char?"] = isChar;
var charToInteger = function(c) { return c.codepoint; };
PRIMITIVES["char->integer"] = charToInteger;
var charUpcase = function(c) { return makeChar(String.fromCharCode(c.codepoint).toUpperCase().charCodeAt(0)); };
PRIMITIVES["char-upcase"] = charUpcase;
var charDowncase = function(c) { return makeChar(String.fromCharCode(c.codepoint).toLowerCase().charCodeAt(0)); };
PRIMITIVES["char-downcase"] = charDowncase;
PRIMITIVES["char=?"] = function(a, b) { return a.codepoint === b.codepoint; };
PRIMITIVES["char?"] = function(a, b) { return a.codepoint > b.codepoint; };
PRIMITIVES["char<=?"] = function(a, b) { return a.codepoint <= b.codepoint; };
PRIMITIVES["char>=?"] = function(a, b) { return a.codepoint >= b.codepoint; };
PRIMITIVES["char-ci=?"] = function(a, b) { return charDowncase(a).codepoint === charDowncase(b).codepoint; };
PRIMITIVES["char-ci?"] = function(a, b) { return charDowncase(a).codepoint > charDowncase(b).codepoint; };
PRIMITIVES["char-ci<=?"] = function(a, b) { return charDowncase(a).codepoint <= charDowncase(b).codepoint; };
PRIMITIVES["char-ci>=?"] = function(a, b) { return charDowncase(a).codepoint >= charDowncase(b).codepoint; };
PRIMITIVES["char-alphabetic?"] = function(c) { var n = c.codepoint; return (n >= 65 && n <= 90) || (n >= 97 && n <= 122); };
PRIMITIVES["char-numeric?"] = function(c) { var n = c.codepoint; return n >= 48 && n <= 57; };
PRIMITIVES["char-whitespace?"] = function(c) { var n = c.codepoint; return n === 32 || n === 9 || n === 10 || n === 13; };
PRIMITIVES["char-upper-case?"] = function(c) { var n = c.codepoint; return n >= 65 && n <= 90; };
PRIMITIVES["char-lower-case?"] = function(c) { var n = c.codepoint; return n >= 97 && n <= 122; };
PRIMITIVES["string->list"] = function(s) {
var chars = []; var str = String(s);
for (var i = 0; i < str.length; i++) chars.push(makeChar(str.charCodeAt(i)));
return chars;
};
PRIMITIVES["list->string"] = function(chars) {
return chars.map(function(c) { return String.fromCharCode(c.codepoint); }).join('');
};
// Phase 14: string ports + eof-object
var _eof = {_eof: true};
PRIMITIVES["eof-object"] = function() { return _eof; };
PRIMITIVES["eof-object?"] = function(v) { return v != null && v._eof === true; };
var isEofObject = PRIMITIVES["eof-object?"];
PRIMITIVES["open-input-string"] = function(s) {
return {_port: true, _kind: "input", _source: String(s), _pos: 0, _closed: false};
};
PRIMITIVES["open-output-string"] = function() {
return {_port: true, _kind: "output", _buffer: "", _closed: false};
};
PRIMITIVES["get-output-string"] = function(p) {
if (!p || p._kind !== "output") throw new Error("get-output-string: expected output port");
return p._buffer;
};
PRIMITIVES["port?"] = function(v) { return v != null && v._port === true; };
PRIMITIVES["input-port?"] = function(v) { return v != null && v._port === true && v._kind === "input"; };
PRIMITIVES["output-port?"] = function(v) { return v != null && v._port === true && v._kind === "output"; };
PRIMITIVES["close-port"] = function(p) {
if (p && p._port) p._closed = true;
return NIL;
};
PRIMITIVES["read-char"] = function(p) {
if (p === undefined || p === NIL || p == null) {
return _eof; // no stdin in this env
}
if (!p._port || p._kind !== "input") throw new Error("read-char: expected input port");
if (p._closed || p._pos >= p._source.length) return _eof;
var cp = p._source.charCodeAt(p._pos);
p._pos++;
return makeChar(cp);
};
PRIMITIVES["peek-char"] = function(p) {
if (p === undefined || p === NIL || p == null) return _eof;
if (!p._port || p._kind !== "input") throw new Error("peek-char: expected input port");
if (p._closed || p._pos >= p._source.length) return _eof;
return makeChar(p._source.charCodeAt(p._pos));
};
PRIMITIVES["read-line"] = function(p) {
if (p === undefined || p === NIL || p == null) return _eof;
if (!p._port || p._kind !== "input") throw new Error("read-line: expected input port");
if (p._closed || p._pos >= p._source.length) return _eof;
var start = p._pos;
while (p._pos < p._source.length && p._source[p._pos] !== '\n') p._pos++;
var line = p._source.slice(start, p._pos);
if (p._pos < p._source.length) p._pos++; // skip
return line;
};
PRIMITIVES["write-char"] = function(c, p) {
if (!p || !p._port || p._kind !== "output") throw new Error("write-char: expected char and output port");
if (!p._closed) p._buffer += String.fromCharCode(c.codepoint);
return NIL;
};
PRIMITIVES["write-string"] = function(s, p) {
if (!p || !p._port || p._kind !== "output") throw new Error("write-string: expected string and output port");
if (!p._closed) p._buffer += String(s);
return NIL;
};
PRIMITIVES["char-ready?"] = function(p) {
if (p === undefined || p === NIL || p == null) return false;
if (!p._port || p._kind !== "input") return false;
return !p._closed && p._pos < p._source.length;
};
// read/write/display
var _sxBs92 = String.fromCharCode(92);
function sxReadNormalize(src) {
var out = "", i = 0, n = src.length;
while (i < n) {
if (src[i] === '"') {
out += '"'; i++;
while (i < n) {
if (src[i] === _sxBs92 && i+1 < n) { out += src[i]; out += src[i+1]; i += 2; continue; }
if (src[i] === '"') { out += src[i++]; break; }
out += src[i++];
}
} else if (src[i] === '#' && i+1 < n && (src[i+1] === 't' || src[i+1] === 'f')) {
var nc2 = i+2 < n ? src[i+2] : '';
if (!nc2 || !/[a-zA-Z0-9_]/.test(nc2)) {
out += (src[i+1] === 't') ? 'true' : 'false';
i += 2;
} else { out += src[i++]; }
} else { out += src[i++]; }
}
return out;
}
function sxReadConvert(v) {
if (Array.isArray(v) && v.length === 0) return NIL;
if (Array.isArray(v)) return v.map(sxReadConvert);
return v;
}
PRIMITIVES["read"] = function() {
var p = arguments.length > 0 && arguments[0] && arguments[0]._port ? arguments[0] : null;
if (!p || p._kind !== "input" || p._closed) return _eof;
if (!p._forms) {
var sxP = PRIMITIVES["sx-parse"];
var src = sxReadNormalize(p._source.slice(p._pos || 0));
p._forms = sxP ? (sxP(src) || []) : [];
p._form_idx = 0;
}
if (p._form_idx >= p._forms.length) return _eof;
return sxReadConvert(p._forms[p._form_idx++]);
};
var _sxBs = String.fromCharCode(92);
var _sxDq = String.fromCharCode(34);
function sxWriteVal(v, mode) {
if (v === null || v === undefined || v === NIL) return "()";
if (v && v._eof) return "#!eof";
if (typeof v === "boolean") return v ? "#t" : "#f";
if (typeof v === "number") return String(v);
if (v && v._rational) return v._n + "/" + v._d;
if (typeof v === "string") {
if (mode === "display") return v;
return _sxDq + v.split("").map(function(c) {
var n = c.charCodeAt(0);
if (n === 34) return _sxBs + _sxDq;
if (n === 92) return _sxBs + _sxBs;
if (n === 10) return _sxBs + "n";
if (n === 13) return _sxBs + "r";
if (n === 9) return _sxBs + "t";
return c;
}).join("") + _sxDq;
}
if (v && v._char) {
if (mode === "display") return String.fromCodePoint(v.codepoint);
var cp = v.codepoint;
if (cp === 32) return "#" + _sxBs + "space";
if (cp === 10) return "#" + _sxBs + "newline";
if (cp === 9) return "#" + _sxBs + "tab";
return "#" + _sxBs + String.fromCodePoint(cp);
}
if (v && v._sym) return v.name;
if (v && v._kw) return ":" + v.name;
if (Array.isArray(v)) return "(" + v.map(function(x){ return sxWriteVal(x, mode); }).join(" ") + ")";
return String(v);
}
PRIMITIVES["write"] = function() {
var val = arguments[0], port = arguments[1];
var s = sxWriteVal(val, "write");
if (port && port._port && port._kind === "output" && !port._closed) port._buffer += s;
return NIL;
};
PRIMITIVES["display"] = function() {
var val = arguments[0], port = arguments[1];
var s = sxWriteVal(val, "display");
if (port && port._port && port._kind === "output" && !port._closed) port._buffer += s;
return NIL;
};
PRIMITIVES["newline"] = function() {
var port = arguments[0];
if (port && port._port && port._kind === "output" && !port._closed) port._buffer += String.fromCharCode(10);
return NIL;
};
PRIMITIVES["write-to-string"] = function(val) { return sxWriteVal(val, "write"); };
PRIMITIVES["display-to-string"] = function(val) { return sxWriteVal(val, "display"); };
PRIMITIVES["current-input-port"] = function() { return NIL; };
PRIMITIVES["current-output-port"] = function() { return NIL; };
PRIMITIVES["current-error-port"] = function() { return NIL; };
PRIMITIVES["string-length"] = function(s) { return String(s).length; };
var stringLength = PRIMITIVES["string-length"];
PRIMITIVES["string-contains?"] = function(s, sub) { return String(s).indexOf(String(sub)) !== -1; };
PRIMITIVES["concat"] = function() {
var out = [];
for (var i = 0; i < arguments.length; i++) if (!isNil(arguments[i])) out = out.concat(arguments[i]);
return out;
};
// core.collections
PRIMITIVES["list"] = function() { return Array.prototype.slice.call(arguments); };
PRIMITIVES["dict"] = function() {
var d = {};
for (var i = 0; i < arguments.length - 1; i += 2) d[arguments[i]] = arguments[i + 1];
return d;
};
PRIMITIVES["range"] = function(a, b, step) {
var r = []; step = step || 1;
for (var i = a; step > 0 ? i < b : i > b; i += step) r.push(i);
return r;
};
PRIMITIVES["get"] = function(c, k, def) { var v = (c && c[k]); return v !== undefined ? v : (def !== undefined ? def : NIL); };
PRIMITIVES["len"] = function(c) { return Array.isArray(c) ? c.length : typeof c === "string" ? c.length : Object.keys(c).length; };
PRIMITIVES["first"] = function(c) { return c && c.length > 0 ? c[0] : NIL; };
PRIMITIVES["last"] = function(c) { return c && c.length > 0 ? c[c.length - 1] : NIL; };
PRIMITIVES["rest"] = function(c) { if (!c || c._nil) return []; if (typeof c.slice !== "function") return []; return c.slice(1); };
PRIMITIVES["nth"] = function(c, n) { return c && n >= 0 && n < c.length ? c[n] : NIL; };
PRIMITIVES["cons"] = function(x, c) { return [x].concat(c || []); };
PRIMITIVES["append"] = function(c, x) { return (c || []).concat(Array.isArray(x) ? x : [x]); };
PRIMITIVES["append!"] = function(arr, x) { arr.push(x); return arr; };
PRIMITIVES["chunk-every"] = function(c, n) {
var r = []; for (var i = 0; i < c.length; i += n) r.push(c.slice(i, i + n)); return r;
};
PRIMITIVES["zip-pairs"] = function(c) {
var r = []; for (var i = 0; i < c.length - 1; i++) r.push([c[i], c[i + 1]]); return r;
};
PRIMITIVES["reverse"] = function(c) { return Array.isArray(c) ? c.slice().reverse() : String(c).split("").reverse().join(""); };
PRIMITIVES["flatten"] = function(c) {
var out = [];
function walk(a) { for (var i = 0; i < a.length; i++) Array.isArray(a[i]) ? walk(a[i]) : out.push(a[i]); }
walk(c || []); return out;
};
// core.dict
PRIMITIVES["keys"] = function(d) { return Object.keys(d || {}); };
PRIMITIVES["vals"] = function(d) { var r = []; for (var k in d) r.push(d[k]); return r; };
PRIMITIVES["merge"] = function() {
var out = {};
for (var i = 0; i < arguments.length; i++) { var d = arguments[i]; if (d && !isNil(d)) for (var k in d) out[k] = d[k]; }
return out;
};
PRIMITIVES["assoc"] = function(d) {
var out = {}; if (d && !isNil(d)) for (var k in d) out[k] = d[k];
for (var i = 1; i < arguments.length - 1; i += 2) out[arguments[i]] = arguments[i + 1];
return out;
};
PRIMITIVES["dissoc"] = function(d) {
var out = {}; for (var k in d) out[k] = d[k];
for (var i = 1; i < arguments.length; i++) delete out[arguments[i]];
return out;
};
PRIMITIVES["dict-set!"] = function(d, k, v) { d[k] = v; return v; };
PRIMITIVES["has-key?"] = function(d, k) { return d !== null && d !== undefined && k in d; };
PRIMITIVES["into"] = function(target, coll) {
if (target === "list") return Array.isArray(coll) ? coll.slice() : Object.entries(coll).map(function(e) { return [e[0], e[1]]; });
if (target === "dict") { var r = {}; for (var i = 0; i < coll.length; i++) { var p = coll[i]; if (Array.isArray(p) && p.length >= 2) r[p[0]] = p[1]; } return r; }
if (Array.isArray(target)) return Array.isArray(coll) ? coll.slice() : Object.entries(coll);
var r = {}; for (var i = 0; i < coll.length; i++) { var p = coll[i]; if (Array.isArray(p) && p.length >= 2) r[p[0]] = p[1]; }
return r;
};
// core.vectors — R7RS mutable fixed-size arrays
PRIMITIVES["make-vector"] = function(n, fill) {
var arr = new Array(n);
var f = (fill !== undefined) ? fill : NIL;
for (var i = 0; i < n; i++) arr[i] = f;
return new SxVector(arr);
};
PRIMITIVES["vector"] = function() {
return new SxVector(Array.prototype.slice.call(arguments));
};
PRIMITIVES["vector?"] = function(x) { return x != null && x._vector === true; };
PRIMITIVES["vector-length"] = function(v) { return v.arr.length; };
PRIMITIVES["vector-ref"] = function(v, i) {
if (i < 0 || i >= v.arr.length) throw new Error("vector-ref: index " + i + " out of bounds (length " + v.arr.length + ")");
return v.arr[i];
};
PRIMITIVES["vector-set!"] = function(v, i, val) {
if (i < 0 || i >= v.arr.length) throw new Error("vector-set!: index " + i + " out of bounds (length " + v.arr.length + ")");
v.arr[i] = val; return NIL;
};
PRIMITIVES["vector->list"] = function(v) { return v.arr.slice(); };
PRIMITIVES["list->vector"] = function(l) { return new SxVector(l.slice()); };
PRIMITIVES["vector-fill!"] = function(v, val) {
for (var i = 0; i < v.arr.length; i++) v.arr[i] = val; return NIL;
};
PRIMITIVES["vector-copy"] = function(v, start, end) {
var s = (start !== undefined) ? start : 0;
var e = (end !== undefined) ? Math.min(end, v.arr.length) : v.arr.length;
return new SxVector(v.arr.slice(s, e));
};
// String buffers — O(1) amortised append via array+join
function SxStringBuffer() { this.parts = []; this.len = 0; this._string_buffer = true; }
PRIMITIVES["make-string-buffer"] = function() { return new SxStringBuffer(); };
PRIMITIVES["string-buffer?"] = function(x) { return x instanceof SxStringBuffer; };
PRIMITIVES["string-buffer-append!"] = function(buf, s) {
buf.parts.push(String(s)); buf.len += String(s).length; return NIL;
};
PRIMITIVES["string-buffer->string"] = function(buf) { return buf.parts.join(""); };
PRIMITIVES["string-buffer-length"] = function(buf) { return buf.len; };
// stdlib.format
PRIMITIVES["format-decimal"] = function(v, p) { return Number(v).toFixed(p || 2); };
PRIMITIVES["parse-int"] = function(v, d) { var n = parseInt(v, 10); return isNaN(n) ? (d || 0) : n; };
PRIMITIVES["format-date"] = function(s, fmt) {
if (!s) return "";
try {
var d = new Date(s);
if (isNaN(d.getTime())) return String(s);
var months = ["January","February","March","April","May","June","July","August","September","October","November","December"];
var short_months = ["Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"];
return fmt.replace(/%-d/g, d.getDate()).replace(/%d/g, ("0"+d.getDate()).slice(-2))
.replace(/%B/g, months[d.getMonth()]).replace(/%b/g, short_months[d.getMonth()])
.replace(/%Y/g, d.getFullYear()).replace(/%m/g, ("0"+(d.getMonth()+1)).slice(-2))
.replace(/%H/g, ("0"+d.getHours()).slice(-2)).replace(/%M/g, ("0"+d.getMinutes()).slice(-2));
} catch (e) { return String(s); }
};
PRIMITIVES["parse-datetime"] = function(s) { return s ? String(s) : NIL; };
// stdlib.text
PRIMITIVES["pluralize"] = function(n, s, p) {
if (s || (p && p !== "s")) return n == 1 ? (s || "") : (p || "s");
return n == 1 ? "" : "s";
};
PRIMITIVES["escape"] = function(s) {
return String(s).replace(/&/g,"&").replace(//g,">").replace(/"/g,""").replace(/'/g,"'");
};
PRIMITIVES["strip-tags"] = function(s) { return String(s).replace(/<[^>]+>/g, ""); };
// stdlib.debug
PRIMITIVES["assert"] = function(cond, msg) {
if (!isSxTruthy(cond)) throw new Error("Assertion error: " + (msg || "Assertion failed"));
return true;
};
// stdlib.spread — spread + collect + scope primitives
PRIMITIVES["make-spread"] = makeSpread;
PRIMITIVES["spread?"] = isSpread;
PRIMITIVES["spread-attrs"] = spreadAttrs;
PRIMITIVES["collect!"] = sxCollect;
PRIMITIVES["collected"] = sxCollected;
PRIMITIVES["clear-collected!"] = sxClearCollected;
// scope — unified render-time dynamic scope
PRIMITIVES["scope-push!"] = scopePush;
PRIMITIVES["scope-pop!"] = scopePop;
// provide-push!/provide-pop! — aliases for scope-push!/scope-pop!
PRIMITIVES["provide-push!"] = providePush;
PRIMITIVES["provide-pop!"] = providePop;
PRIMITIVES["context"] = sxContext;
PRIMITIVES["emit!"] = sxEmit;
PRIMITIVES["emitted"] = sxEmitted;
// Aliases for aser adapter (avoids CEK special form conflict on server)
var scopeEmit = sxEmit;
function scopePeek(name) {
if (_scopeStacks[name] && _scopeStacks[name].length) {
return _scopeStacks[name][_scopeStacks[name].length - 1].value;
}
return NIL;
}
PRIMITIVES["scope-emit!"] = scopeEmit;
PRIMITIVES["scope-peek"] = scopePeek;
PRIMITIVES["scope-emitted"] = sxEmitted;
PRIMITIVES["scope-collected"] = sxCollected;
PRIMITIVES["scope-clear-collected!"] = sxClearCollected;
// ---- VM stack primitives ----
// The VM spec (vm.sx) requires these array-like operations.
// In JS, a plain Array serves as the stack.
PRIMITIVES["make-vm-stack"] = function(size) {
var a = new Array(size);
for (var i = 0; i < size; i++) a[i] = NIL;
return a;
};
PRIMITIVES["vm-stack-get"] = function(stack, idx) { return stack[idx]; };
PRIMITIVES["vm-stack-set!"] = function(stack, idx, value) { stack[idx] = value; return NIL; };
PRIMITIVES["vm-stack-length"] = function(stack) { return stack.length; };
PRIMITIVES["vm-stack-copy!"] = function(src, dst, count) {
for (var i = 0; i < count; i++) dst[i] = src[i];
return NIL;
};
PRIMITIVES["get-primitive"] = function(name) {
if (name in PRIMITIVES) return PRIMITIVES[name];
throw new Error("VM undefined: " + name);
};
PRIMITIVES["call-primitive"] = function(name, args) {
if (!(name in PRIMITIVES)) throw new Error("VM undefined: " + name);
var fn = PRIMITIVES[name];
return fn.apply(null, Array.isArray(args) ? args : []);
};
PRIMITIVES["primitive?"] = function(name) {
return name in PRIMITIVES;
};
PRIMITIVES["set-nth!"] = function(lst, idx, val) {
lst[idx] = val;
return NIL;
};
PRIMITIVES["env-parent"] = function(env) {
if (env && Object.getPrototypeOf(env) !== Object.prototype &&
Object.getPrototypeOf(env) !== null)
return Object.getPrototypeOf(env);
return NIL;
};
// stdlib.bitwise
PRIMITIVES["bitwise-and"] = function(a, b) { return (a & b) | 0; };
PRIMITIVES["bitwise-or"] = function(a, b) { return (a | b) | 0; };
PRIMITIVES["bitwise-xor"] = function(a, b) { return (a ^ b) | 0; };
PRIMITIVES["bitwise-not"] = function(a) { return ~a; };
PRIMITIVES["arithmetic-shift"] = function(a, count) {
return count >= 0 ? (a << count) | 0 : a >> (-count);
};
PRIMITIVES["bit-count"] = function(a) {
var n = Math.abs(a) >>> 0;
n = n - ((n >> 1) & 0x55555555);
n = (n & 0x33333333) + ((n >> 2) & 0x33333333);
return (((n + (n >> 4)) & 0x0f0f0f0f) * 0x01010101) >>> 24;
};
PRIMITIVES["integer-length"] = function(a) {
if (a === 0) return 0;
return 32 - Math.clz32(Math.abs(a));
};
// stdlib.math
PRIMITIVES["sin"] = Math.sin;
PRIMITIVES["cos"] = Math.cos;
PRIMITIVES["tan"] = Math.tan;
PRIMITIVES["asin"] = Math.asin;
PRIMITIVES["acos"] = Math.acos;
PRIMITIVES["atan"] = function(y, x) { return arguments.length >= 2 ? Math.atan2(y, x) : Math.atan(y); };
PRIMITIVES["exp"] = Math.exp;
PRIMITIVES["log"] = Math.log;
PRIMITIVES["expt"] = Math.pow;
PRIMITIVES["quotient"] = function(a, b) { return Math.trunc(a / b); };
PRIMITIVES["gcd"] = function(a, b) {
a = Math.abs(a); b = Math.abs(b);
while (b) { var t = b; b = a % b; a = t; }
return a;
};
PRIMITIVES["lcm"] = function(a, b) {
var g = PRIMITIVES["gcd"](Math.abs(a), Math.abs(b));
return g === 0 ? 0 : Math.abs(a / g * b);
};
PRIMITIVES["number->string"] = function(n, r) {
if (n && n._rational) return n._n + "/" + n._d;
if (r === undefined || r === null) return String(n);
return Math.floor(n).toString(r);
};
PRIMITIVES["string->number"] = function(s, r) {
s = String(s);
if (r !== undefined && r !== null) {
var radix = r | 0;
var valid = "0123456789abcdefghijklmnopqrstuvwxyz".slice(0, radix);
var norm = s.toLowerCase();
var start = norm[0] === '-' ? 1 : 0;
if (norm.length <= start) return NIL;
for (var i = start; i < norm.length; i++) {
if (valid.indexOf(norm[i]) === -1) return NIL;
}
return parseInt(s, radix);
}
if (s === '') return NIL;
var n = Number(s);
return isNaN(n) ? NIL : n;
};
// stdlib.rational
function SxRational(n, d) {
function gcd(a, b) { while (b) { var t=b; b=a%b; a=t; } return a; }
if (d === 0) throw new Error("make-rational: denominator cannot be zero");
var sign = (d < 0) ? -1 : 1;
var g = gcd(Math.abs(n), Math.abs(d));
this._n = sign * n / g;
this._d = sign * d / g;
this._rational = true;
}
SxRational.prototype.toString = function() { return this._n + "/" + this._d; };
PRIMITIVES["make-rational"] = function(n, d) {
var r = new SxRational(Math.trunc(n), Math.trunc(d));
if (r._d === 1) return r._n;
return r;
};
PRIMITIVES["rational?"] = function(v) { return v instanceof SxRational; };
PRIMITIVES["numerator"] = function(r) { return r instanceof SxRational ? r._n : r; };
PRIMITIVES["denominator"] = function(r) { return r instanceof SxRational ? r._d : 1; };
var makeRational = PRIMITIVES["make-rational"];
// stdlib.hash-table
function SxHashTable() { this.data = new Map(); this._hash_table = true; }
PRIMITIVES["make-hash-table"] = function() { return new SxHashTable(); };
PRIMITIVES["hash-table?"] = function(x) { return x instanceof SxHashTable; };
PRIMITIVES["hash-table-set!"] = function(ht, k, v) { ht.data.set(k, v); return null; };
PRIMITIVES["hash-table-ref"] = function(ht, k, dflt) {
if (ht.data.has(k)) return ht.data.get(k);
if (arguments.length > 2) return dflt;
throw new Error("hash-table-ref: key not found");
};
PRIMITIVES["hash-table-delete!"] = function(ht, k) { ht.data.delete(k); return null; };
PRIMITIVES["hash-table-size"] = function(ht) { return ht.data.size; };
PRIMITIVES["hash-table-keys"] = function(ht) { return Array.from(ht.data.keys()); };
PRIMITIVES["hash-table-values"] = function(ht) { return Array.from(ht.data.values()); };
PRIMITIVES["hash-table->alist"] = function(ht) {
var result = [];
ht.data.forEach(function(v, k) { result.push([k, v]); });
return result;
};
PRIMITIVES["hash-table-for-each"] = function(ht, fn) {
ht.data.forEach(function(v, k) { apply(fn, [k, v]); });
return null;
};
PRIMITIVES["hash-table-merge!"] = function(dst, src) {
src.data.forEach(function(v, k) { dst.data.set(k, v); });
return null;
};
// stdlib.regexp — native JS RegExp wrappers
function SxRegexp(source, flags) {
this._regexp = true;
this.source = source;
this.flags = flags || "";
}
function sxRxCompile(rx) {
if (!rx._compiled) {
var jsFlags = "";
if (rx.flags.indexOf("i") >= 0) jsFlags += "i";
if (rx.flags.indexOf("m") >= 0) jsFlags += "m";
if (rx.flags.indexOf("s") >= 0) jsFlags += "s";
rx._compiled = new RegExp(rx.source, jsFlags);
}
return rx._compiled;
}
function sxRxMatchDict(m, input) {
if (!m) return NIL;
var groups = [];
for (var i = 1; i < m.length; i++) groups.push(m[i] !== undefined ? m[i] : "");
return {"match": m[0], "start": m.index, "end": m.index + m[0].length,
"input": input, "groups": groups};
}
PRIMITIVES["make-regexp"] = function(src, flags) {
return new SxRegexp(src, flags || "");
};
PRIMITIVES["regexp?"] = function(v) { return v instanceof SxRegexp; };
PRIMITIVES["regexp-source"] = function(rx) { return rx.source; };
PRIMITIVES["regexp-flags"] = function(rx) { return rx.flags; };
PRIMITIVES["regexp-match"] = function(rx, s) {
var re = new RegExp(sxRxCompile(rx).source,
sxRxCompile(rx).flags.replace("g",""));
var m = s.match(re);
return sxRxMatchDict(m, s);
};
PRIMITIVES["regexp-match-all"] = function(rx, s) {
var compiled = sxRxCompile(rx);
var re = new RegExp(compiled.source, "g" + compiled.flags.replace("g",""));
var results = [], m;
while ((m = re.exec(s)) !== null) {
results.push(sxRxMatchDict(m, s));
if (m[0].length === 0) re.lastIndex++;
}
return results;
};
PRIMITIVES["regexp-replace"] = function(rx, s, replacement) {
var compiled = sxRxCompile(rx);
var re = new RegExp(compiled.source, compiled.flags.replace("g",""));
return s.replace(re, replacement);
};
PRIMITIVES["regexp-replace-all"] = function(rx, s, replacement) {
var compiled = sxRxCompile(rx);
var re = new RegExp(compiled.source, "g" + compiled.flags.replace("g",""));
return s.replace(re, replacement);
};
PRIMITIVES["regexp-split"] = function(rx, s) {
var re = sxRxCompile(rx);
return s.split(re);
};
// stdlib.sets — structural sets keyed by write-to-string serialization
function SxSet() { this.data = new Map(); this._sxset = true; }
SxSet.prototype._type = "set";
function sxSetKey(v) { return sxWriteVal(v, "write"); }
function sxSetSeed(s, lst) {
if (Array.isArray(lst)) lst.forEach(function(v) { s.data.set(sxSetKey(v), v); });
return s;
}
PRIMITIVES["make-set"] = function() {
var s = new SxSet();
if (arguments.length > 0 && Array.isArray(arguments[0])) sxSetSeed(s, arguments[0]);
return s;
};
PRIMITIVES["set?"] = function(v) { return v instanceof SxSet; };
PRIMITIVES["set-add!"] = function(s, v) { s.data.set(sxSetKey(v), v); return NIL; };
PRIMITIVES["set-member?"] = function(s, v) { return s.data.has(sxSetKey(v)); };
PRIMITIVES["set-remove!"] = function(s, v) { s.data.delete(sxSetKey(v)); return NIL; };
PRIMITIVES["set-size"] = function(s) { return s.data.size; };
PRIMITIVES["set->list"] = function(s) { return Array.from(s.data.values()); };
PRIMITIVES["list->set"] = function(lst) {
var s = new SxSet();
if (Array.isArray(lst)) lst.forEach(function(v) { s.data.set(sxSetKey(v), v); });
return s;
};
PRIMITIVES["set-union"] = function(a, b) {
var s = new SxSet();
a.data.forEach(function(v, k) { s.data.set(k, v); });
b.data.forEach(function(v, k) { s.data.set(k, v); });
return s;
};
PRIMITIVES["set-intersection"] = function(a, b) {
var s = new SxSet();
a.data.forEach(function(v, k) { if (b.data.has(k)) s.data.set(k, v); });
return s;
};
PRIMITIVES["set-difference"] = function(a, b) {
var s = new SxSet();
a.data.forEach(function(v, k) { if (!b.data.has(k)) s.data.set(k, v); });
return s;
};
PRIMITIVES["set-for-each"] = function(s, fn) {
s.data.forEach(function(v) { apply(fn, [v]); });
return NIL;
};
PRIMITIVES["set-map"] = function(s, fn) {
var out = new SxSet();
s.data.forEach(function(v) {
var r = apply(fn, [v]);
out.data.set(sxSetKey(r), r);
});
return out;
};
// stdlib.bytevectors — R7RS bytevector type backed by Uint8Array
function SxBytevector(size_or_buf) {
if (size_or_buf instanceof Uint8Array) {
this.data = size_or_buf;
} else {
this.data = new Uint8Array(typeof size_or_buf === "number" ? size_or_buf : 0);
}
this._bytevector = true;
}
SxBytevector.prototype._type = "bytevector";
PRIMITIVES["make-bytevector"] = function(n, fill) {
var bv = new SxBytevector(n);
if (fill !== undefined) bv.data.fill(fill & 0xff);
return bv;
};
PRIMITIVES["bytevector?"] = function(v) { return v instanceof SxBytevector; };
PRIMITIVES["bytevector-length"] = function(bv) { return bv.data.length; };
PRIMITIVES["bytevector-u8-ref"] = function(bv, i) { return bv.data[i]; };
PRIMITIVES["bytevector-u8-set!"] = function(bv, i, byte) { bv.data[i] = byte & 0xff; return NIL; };
PRIMITIVES["bytevector-copy"] = function(bv, start, end_) {
var s = start === undefined ? 0 : start;
var e = end_ === undefined ? bv.data.length : end_;
return new SxBytevector(bv.data.slice(s, e));
};
PRIMITIVES["bytevector-copy!"] = function(dst, at, src, start, end_) {
var s = start === undefined ? 0 : start;
var e = end_ === undefined ? src.data.length : end_;
dst.data.set(src.data.subarray(s, e), at);
return NIL;
};
PRIMITIVES["bytevector-append"] = function() {
var total = 0;
for (var i = 0; i < arguments.length; i++) total += arguments[i].data.length;
var result = new Uint8Array(total);
var pos = 0;
for (var i = 0; i < arguments.length; i++) {
result.set(arguments[i].data, pos);
pos += arguments[i].data.length;
}
return new SxBytevector(result);
};
PRIMITIVES["utf8->string"] = function(bv, start, end_) {
var s = start === undefined ? 0 : start;
var e = end_ === undefined ? bv.data.length : end_;
var dec = new TextDecoder("utf-8");
return dec.decode(bv.data.subarray(s, e));
};
PRIMITIVES["string->utf8"] = function(str, start, end_) {
var enc = new TextEncoder();
var full = enc.encode(str);
var s = start === undefined ? 0 : start;
var e = end_ === undefined ? full.length : end_;
return new SxBytevector(full.slice(s, e));
};
PRIMITIVES["bytevector->list"] = function(bv) {
var out = [];
for (var i = 0; i < bv.data.length; i++) out.push(bv.data[i]);
return out;
};
PRIMITIVES["list->bytevector"] = function(lst) {
if (!Array.isArray(lst)) lst = [];
var b = new Uint8Array(lst.length);
for (var i = 0; i < lst.length; i++) b[i] = lst[i] & 0xff;
return new SxBytevector(b);
};
function isPrimitive(name) { return name in PRIMITIVES; }
function getPrimitive(name) { return PRIMITIVES[name]; }
// Higher-order helpers used by the transpiled code
function map(fn, coll) { return coll.map(fn); }
function mapIndexed(fn, coll) { return coll.map(function(item, i) { return fn(i, item); }); }
function filter(fn, coll) { return coll.filter(function(x) { return isSxTruthy(fn(x)); }); }
function reduce(fn, init, coll) {
var acc = init;
for (var i = 0; i < coll.length; i++) acc = fn(acc, coll[i]);
return acc;
}
function some(fn, coll) {
for (var i = 0; i < coll.length; i++) { var r = fn(coll[i]); if (isSxTruthy(r)) return r; }
return NIL;
}
function forEach(fn, coll) { for (var i = 0; i < coll.length; i++) fn(coll[i]); return NIL; }
function isEvery(fn, coll) {
for (var i = 0; i < coll.length; i++) { if (!isSxTruthy(fn(coll[i]))) return false; }
return true;
}
function mapDict(fn, d) { var r = {}; for (var k in d) r[k] = fn(k, d[k]); return r; }
// Predicate aliases used by transpiled code
// Both naming conventions: isX (from js-renames) and x_p (from js-mangle of x?)
var isNumber = PRIMITIVES["number?"]; var number_p = isNumber;
var isString = PRIMITIVES["string?"]; var string_p = isString;
var isBoolean = PRIMITIVES["boolean?"]; var boolean_p = isBoolean;
var isDict = PRIMITIVES["dict?"];
var isList = PRIMITIVES["list?"]; var list_p = isList;
var isKeyword = PRIMITIVES["keyword?"]; var keyword_p = isKeyword;
var isSymbol = PRIMITIVES["symbol?"]; var symbol_p = isSymbol;
// List primitives used directly by transpiled code
var len = PRIMITIVES["len"];
var first = PRIMITIVES["first"];
var last = PRIMITIVES["last"];
var rest = PRIMITIVES["rest"];
var nth = PRIMITIVES["nth"];
var cons = PRIMITIVES["cons"];
var append = PRIMITIVES["append"];
var isEmpty = PRIMITIVES["empty?"];
var contains = PRIMITIVES["contains?"];
var startsWith = PRIMITIVES["starts-with?"];
var slice = PRIMITIVES["slice"];
var concat = PRIMITIVES["concat"];
var str = PRIMITIVES["str"];
var join = PRIMITIVES["join"];
var keys = PRIMITIVES["keys"];
var get = PRIMITIVES["get"];
var assoc = PRIMITIVES["assoc"];
var range = PRIMITIVES["range"];
var floor = PRIMITIVES["floor"];
var pow = PRIMITIVES["pow"];
var mod = PRIMITIVES["mod"];
var indexOf_ = PRIMITIVES["index-of"];
var hasKey = PRIMITIVES["has-key?"];
var vectorToList = PRIMITIVES["vector->list"];
var listToVector = PRIMITIVES["list->vector"];
var isVector = PRIMITIVES["vector?"];
var vectorLength = PRIMITIVES["vector-length"];
var vectorRef = PRIMITIVES["vector-ref"];
var reverse = PRIMITIVES["reverse"];
var stringToSymbol = PRIMITIVES["string->symbol"];
var symbolToString = PRIMITIVES["symbol->string"];
function zip(a, b) { var r = []; for (var i = 0; i < Math.min(a.length, b.length); i++) r.push([a[i], b[i]]); return r; }
function append_b(arr, x) { arr.push(x); return arr; }
var apply = function(f, args) {
if (isLambda(f)) return trampoline(callLambda(f, args, lambdaClosure(f)));
return f.apply(null, args);
};
PRIMITIVES["apply"] = apply;
// Additional primitive aliases used by adapter/engine transpiled code
var split = PRIMITIVES["split"];
var trim = PRIMITIVES["trim"];
var upper = PRIMITIVES["upper"];
var lower = PRIMITIVES["lower"];
var replace_ = function(s, old, nw) { return s.split(old).join(nw); };
var endsWith = PRIMITIVES["ends-with?"];
var parseInt_ = PRIMITIVES["parse-int"];
var dict_fn = PRIMITIVES["dict"];
// HTML rendering helpers
// escape-html and escape-attr are now library functions defined in render.sx
function rawHtmlContent(r) { return r.html; }
function makeRawHtml(s) { return { _raw: true, html: s }; }
function makeSxExpr(s) { return { _sx_expr: true, source: s }; }
function sxExprSource(x) { return x && x.source ? x.source : String(x); }
// Placeholders — overridden by transpiled spec from parser.sx / adapter-sx.sx
function serialize(val) { return String(val); }
function isSpecialForm(n) { return false; }
function isHoForm(n) { return false; }
// -----------------------------------------------------------------------
// Host FFI — the irreducible web platform primitives
// All DOM/browser operations are built on these in web/lib/dom.sx
// -----------------------------------------------------------------------
PRIMITIVES["host-global"] = function(name) {
if (typeof globalThis !== "undefined" && name in globalThis) return globalThis[name];
if (typeof window !== "undefined" && name in window) return window[name];
return NIL;
};
PRIMITIVES["host-get"] = function(obj, prop) {
if (obj == null || obj === NIL) return NIL;
var v = obj[prop];
return v === undefined || v === null ? NIL : v;
};
PRIMITIVES["host-set!"] = function(obj, prop, val) {
if (obj != null && obj !== NIL) obj[prop] = val === NIL ? null : val;
};
PRIMITIVES["host-call"] = function() {
var obj = arguments[0], method = arguments[1];
var args = [];
for (var i = 2; i < arguments.length; i++) {
var a = arguments[i];
args.push(a === NIL ? null : a);
}
if (obj == null || obj === NIL) {
// Global function call
var fn = typeof globalThis !== "undefined" ? globalThis[method] : window[method];
if (typeof fn === "function") return fn.apply(null, args);
return NIL;
}
if (typeof obj[method] === "function") {
try { return obj[method].apply(obj, args); }
catch(e) { return NIL; }
}
return NIL;
};
PRIMITIVES["host-new"] = function() {
var name = arguments[0];
var args = Array.prototype.slice.call(arguments, 1).map(function(a) { return a === NIL ? null : a; });
var Ctor = typeof globalThis !== "undefined" ? globalThis[name] : window[name];
if (typeof Ctor !== "function") return NIL;
// Support 0-4 args (covers all practical cases)
switch (args.length) {
case 0: return new Ctor();
case 1: return new Ctor(args[0]);
case 2: return new Ctor(args[0], args[1]);
case 3: return new Ctor(args[0], args[1], args[2]);
default: return new Ctor(args[0], args[1], args[2], args[3]);
}
};
PRIMITIVES["host-callback"] = function(fn) {
// Wrap SX function/lambda as a native JS callback
if (typeof fn === "function") return fn;
if (fn && fn._type === "lambda") {
return function() {
var a = Array.prototype.slice.call(arguments);
return cekCall(fn, a);
};
}
return function() {};
};
PRIMITIVES["host-typeof"] = function(obj) {
if (obj == null || obj === NIL) return "nil";
if (obj instanceof Element) return "element";
if (obj instanceof Text) return "text";
if (obj instanceof DocumentFragment) return "fragment";
if (obj instanceof Document) return "document";
if (obj instanceof Event) return "event";
if (obj instanceof Promise) return "promise";
if (obj instanceof AbortController) return "abort-controller";
return typeof obj;
};
PRIMITIVES["host-await"] = function(promise, callback) {
if (promise && typeof promise.then === "function") {
var cb = typeof callback === "function" ? callback :
(callback && callback._type === "lambda") ?
function(v) { return cekCall(callback, [v]); } : function() {};
promise.then(cb);
}
};
// Aliases for transpiled dom.sx / browser.sx code (transpiler mangles host-* names)
var hostGlobal = PRIMITIVES["host-global"];
var hostGet = PRIMITIVES["host-get"];
var hostSet = PRIMITIVES["host-set!"];
var hostCall = PRIMITIVES["host-call"];
var hostNew = PRIMITIVES["host-new"];
var hostCallback = PRIMITIVES["host-callback"];
var hostTypeof = PRIMITIVES["host-typeof"];
var hostAwait = PRIMITIVES["host-await"];
// processBindings and evalCond — now specced in render.sx, bootstrapped above
function isDefinitionForm(name) {
return name === "define" || name === "defcomp" || name === "defmacro" ||
name === "defstyle" || name === "defhandler" ||
name === "deftype" || name === "defeffect";
}
function indexOf_(s, ch) {
return typeof s === "string" ? s.indexOf(ch) : -1;
}
function dictHas(d, k) { return d != null && k in d; }
function dictDelete(d, k) { delete d[k]; }
function forEachIndexed(fn, coll) {
for (var i = 0; i < coll.length; i++) fn(i, coll[i]);
return NIL;
}
// =========================================================================
// Performance overrides — evaluator hot path
// =========================================================================
// Override parseKeywordArgs: imperative loop instead of reduce+assoc
parseKeywordArgs = function(rawArgs, env) {
var kwargs = {};
var children = [];
for (var i = 0; i < rawArgs.length; i++) {
var arg = rawArgs[i];
if (arg && arg._kw && (i + 1) < rawArgs.length) {
kwargs[arg.name] = trampoline(evalExpr(rawArgs[i + 1], env));
i++;
} else {
children.push(trampoline(evalExpr(arg, env)));
}
}
return [kwargs, children];
};
// Override callComponent: use prototype chain env, imperative kwarg binding
callComponent = function(comp, rawArgs, env) {
var kwargs = {};
var children = [];
for (var i = 0; i < rawArgs.length; i++) {
var arg = rawArgs[i];
if (arg && arg._kw && (i + 1) < rawArgs.length) {
kwargs[arg.name] = trampoline(evalExpr(rawArgs[i + 1], env));
i++;
} else {
children.push(trampoline(evalExpr(arg, env)));
}
}
var local = Object.create(componentClosure(comp));
for (var k in env) if (env.hasOwnProperty(k)) local[k] = env[k];
var params = componentParams(comp);
for (var j = 0; j < params.length; j++) {
var p = params[j];
local[p] = p in kwargs ? kwargs[p] : NIL;
}
if (componentHasChildren(comp)) {
local["children"] = children;
}
return makeThunk(componentBody(comp), local);
};
// =========================================================================
// Platform: deps module — component dependency analysis
// =========================================================================
function componentDeps(c) {
return c.deps ? c.deps.slice() : [];
}
function componentSetDeps(c, deps) {
c.deps = deps;
}
function componentCssClasses(c) {
return c.cssClasses ? c.cssClasses.slice() : [];
}
function envComponents(env) {
var names = [];
for (var k in env) {
var v = env[k];
if (v && (v._component || v._macro)) names.push(k);
}
return names;
}
function regexFindAll(pattern, source) {
var re = new RegExp(pattern, "g");
var results = [];
var m;
while ((m = re.exec(source)) !== null) {
if (m[1] !== undefined) results.push(m[1]);
else results.push(m[0]);
}
return results;
}
function scanCssClasses(source) {
var classes = {};
var result = [];
var m;
var re1 = /:class\s+"([^"]*)"/g;
while ((m = re1.exec(source)) !== null) {
var parts = m[1].split(/\s+/);
for (var i = 0; i < parts.length; i++) {
if (parts[i] && !classes[parts[i]]) {
classes[parts[i]] = true;
result.push(parts[i]);
}
}
}
var re2 = /:class\s+\(str\s+((?:"[^"]*"\s*)+)\)/g;
while ((m = re2.exec(source)) !== null) {
var re3 = /"([^"]*)"/g;
var m2;
while ((m2 = re3.exec(m[1])) !== null) {
var parts2 = m2[1].split(/\s+/);
for (var j = 0; j < parts2.length; j++) {
if (parts2[j] && !classes[parts2[j]]) {
classes[parts2[j]] = true;
result.push(parts2[j]);
}
}
}
}
var re4 = /;;\s*@css\s+(.+)/g;
while ((m = re4.exec(source)) !== null) {
var parts3 = m[1].split(/\s+/);
for (var k = 0; k < parts3.length; k++) {
if (parts3[k] && !classes[parts3[k]]) {
classes[parts3[k]] = true;
result.push(parts3[k]);
}
}
}
return result;
}
function componentIoRefs(c) {
return c.ioRefs ? c.ioRefs.slice() : [];
}
function componentSetIoRefs(c, refs) {
c.ioRefs = refs;
}
// =========================================================================
// Platform interface — Parser
// =========================================================================
// Character classification derived from the grammar:
// ident-start → [a-zA-Z_~*+\-><=/!?&]
// ident-char → ident-start + [0-9.:\/\#,]
var _identStartRe = /[a-zA-Z_~*+\-><=/!?&]/;
var _identCharRe = /[a-zA-Z0-9_~*+\-><=/!?.:&/#,]/;
function isIdentStart(ch) { return _identStartRe.test(ch); }
function isIdentChar(ch) { return _identCharRe.test(ch); }
function parseNumber(s) { return Number(s); }
function escapeString(s) {
return s.replace(/\\/g, "\\\\").replace(/"/g, '\\"').replace(/\n/g, "\\n").replace(/\t/g, "\\t");
}
function sxExprSource(e) { return typeof e === "string" ? e : (e && e.source ? e.source : String(e)); }
var charFromCode = PRIMITIVES["char-from-code"];
var makeChar = PRIMITIVES["make-char"];
var charToInteger = PRIMITIVES["char->integer"];
var isChar = PRIMITIVES["char?"];
var _readerMacros = {};
function readerMacroGet(name) { return _readerMacros[name] || false; }
function readerMacroSet(name, fn) { _readerMacros[name] = fn; }
PRIMITIVES["reader-macro-get"] = readerMacroGet;
PRIMITIVES["reader-macro-set!"] = readerMacroSet;
// String/number utilities needed by transpiled spec code (content-hash etc)
PRIMITIVES["char-code-at"] = function(s, i) { return s.charCodeAt(i); };
var charCodeAt = PRIMITIVES["char-code-at"];
PRIMITIVES["to-hex"] = function(n) { return (n >>> 0).toString(16); };
var toHex = PRIMITIVES["to-hex"];
// =========================================================================
// Platform: CEK module — explicit CEK machine
// =========================================================================
// Continuation type — callable as JS function so isCallable/apply work.
// CEK is the canonical evaluator; continuations are always available.
function Continuation(fn) {
var c = function(value) { return fn(value !== undefined ? value : NIL); };
c.fn = fn;
c._continuation = true;
c.call = function(value) { return fn(value !== undefined ? value : NIL); };
return c;
}
PRIMITIVES["continuation?"] = function(x) { return x != null && x._continuation === true; };
// Standalone aliases for primitives used by cek.sx / frames.sx
var inc = PRIMITIVES["inc"];
var dec = PRIMITIVES["dec"];
var zip_pairs = PRIMITIVES["zip-pairs"];
var continuation_p = PRIMITIVES["continuation?"];
function makeCekContinuation(captured, restKont) {
var c = new Continuation(function(v) { return v !== undefined ? v : NIL; });
c._cek_data = {"captured": captured, "rest-kont": restKont};
return c;
}
function continuationData(c) {
return (c && c._cek_data) ? c._cek_data : {};
}
// === Transpiled from evaluator (frames + eval + CEK) ===
// make-cek-state
var makeCekState = function(control, env, kont) { return {"control": control, "env": env, "kont": kont, "value": NIL, "phase": "eval"}; };
PRIMITIVES["make-cek-state"] = makeCekState;
// make-cek-value
var makeCekValue = function(value, env, kont) { return {"control": NIL, "env": env, "kont": kont, "value": value, "phase": "continue"}; };
PRIMITIVES["make-cek-value"] = makeCekValue;
// make-cek-suspended
var makeCekSuspended = function(request, env, kont) { return {"env": env, "kont": kont, "phase": "io-suspended", "request": request}; };
PRIMITIVES["make-cek-suspended"] = makeCekSuspended;
// cek-terminal?
var cekTerminal_p = function(state) { return (isSxTruthy(sxEq(get(state, "phase"), "continue")) && isEmpty(get(state, "kont"))); };
PRIMITIVES["cek-terminal?"] = cekTerminal_p;
// cek-suspended?
var cekSuspended_p = function(state) { return sxEq(get(state, "phase"), "io-suspended"); };
PRIMITIVES["cek-suspended?"] = cekSuspended_p;
// cek-control
var cekControl = function(s) { return get(s, "control"); };
PRIMITIVES["cek-control"] = cekControl;
// cek-env
var cekEnv = function(s) { return get(s, "env"); };
PRIMITIVES["cek-env"] = cekEnv;
// cek-kont
var cekKont = function(s) { return get(s, "kont"); };
PRIMITIVES["cek-kont"] = cekKont;
// cek-phase
var cekPhase = function(s) { return get(s, "phase"); };
PRIMITIVES["cek-phase"] = cekPhase;
// cek-io-request
var cekIoRequest = function(s) { return get(s, "request"); };
PRIMITIVES["cek-io-request"] = cekIoRequest;
// cek-value
var cekValue = function(s) { return get(s, "value"); };
PRIMITIVES["cek-value"] = cekValue;
// make-if-frame
var makeIfFrame = function(thenExpr, elseExpr, env) { return {"else": elseExpr, "env": env, "type": "if", "then": thenExpr}; };
PRIMITIVES["make-if-frame"] = makeIfFrame;
// make-when-frame
var makeWhenFrame = function(bodyExprs, env) { return {"body": bodyExprs, "env": env, "type": "when"}; };
PRIMITIVES["make-when-frame"] = makeWhenFrame;
// make-begin-frame
var makeBeginFrame = function(remaining, env) { return {"env": env, "type": "begin", "remaining": remaining}; };
PRIMITIVES["make-begin-frame"] = makeBeginFrame;
// make-let-frame
var makeLetFrame = function(name, remaining, body, local) { return {"body": body, "env": local, "type": "let", "remaining": remaining, "name": name}; };
PRIMITIVES["make-let-frame"] = makeLetFrame;
// make-define-frame
var makeDefineFrame = function(name, env, hasEffects, effectList) { return {"env": env, "effect-list": effectList, "has-effects": hasEffects, "type": "define", "name": name}; };
PRIMITIVES["make-define-frame"] = makeDefineFrame;
// make-define-foreign-frame
var makeDefineForeignFrame = function(name, spec, env) { return {"spec": spec, "env": env, "type": "define-foreign", "name": name}; };
PRIMITIVES["make-define-foreign-frame"] = makeDefineForeignFrame;
// make-set-frame
var makeSetFrame = function(name, env) { return {"env": env, "type": "set", "name": name}; };
PRIMITIVES["make-set-frame"] = makeSetFrame;
// make-arg-frame
var makeArgFrame = function(f, evaled, remaining, env, rawArgs, headName) { return {"env": env, "head-name": sxOr(headName, NIL), "evaled": evaled, "type": "arg", "f": f, "remaining": remaining, "raw-args": rawArgs}; };
PRIMITIVES["make-arg-frame"] = makeArgFrame;
// make-call-frame
var makeCallFrame = function(f, args, env) { return {"args": args, "env": env, "type": "call", "f": f}; };
PRIMITIVES["make-call-frame"] = makeCallFrame;
// make-cond-frame
var makeCondFrame = function(remaining, env, scheme_p) { return {"scheme": scheme_p, "env": env, "type": "cond", "remaining": remaining}; };
PRIMITIVES["make-cond-frame"] = makeCondFrame;
// make-cond-arrow-frame
var makeCondArrowFrame = function(testValue, env) { return {"env": env, "match-val": testValue, "type": "cond-arrow"}; };
PRIMITIVES["make-cond-arrow-frame"] = makeCondArrowFrame;
// make-case-frame
var makeCaseFrame = function(matchVal, remaining, env) { return {"match-val": matchVal, "env": env, "type": "case", "remaining": remaining}; };
PRIMITIVES["make-case-frame"] = makeCaseFrame;
// make-thread-frame
var makeThreadFrame = function(remaining, env, mode, name) { return {"env": env, "type": "thread", "extra": mode, "remaining": remaining, "name": name}; };
PRIMITIVES["make-thread-frame"] = makeThreadFrame;
// thread-insert-arg
var threadInsertArg = function(form, value, fenv) { return (isSxTruthy(sxEq(typeOf(form), "list")) ? evalExpr(cons(first(form), cons([new Symbol("quote"), value], rest(form))), fenv) : evalExpr([form, [new Symbol("quote"), value]], fenv)); };
PRIMITIVES["thread-insert-arg"] = threadInsertArg;
// thread-insert-arg-last
var threadInsertArgLast = function(form, value, fenv) { return (isSxTruthy(sxEq(typeOf(form), "list")) ? evalExpr(append(form, [[new Symbol("quote"), value]]), fenv) : evalExpr([form, [new Symbol("quote"), value]], fenv)); };
PRIMITIVES["thread-insert-arg-last"] = threadInsertArgLast;
// make-map-frame
var makeMapFrame = function(f, remaining, results, env) { return {"indexed": false, "env": env, "results": results, "type": "map", "f": f, "remaining": remaining}; };
PRIMITIVES["make-map-frame"] = makeMapFrame;
// make-map-indexed-frame
var makeMapIndexedFrame = function(f, remaining, results, env) { return {"indexed": true, "env": env, "results": results, "type": "map", "f": f, "remaining": remaining}; };
PRIMITIVES["make-map-indexed-frame"] = makeMapIndexedFrame;
// make-multi-map-frame
var makeMultiMapFrame = function(f, remainingLists, results, env) { return {"env": env, "results": results, "type": "multi-map", "f": f, "remaining": remainingLists}; };
PRIMITIVES["make-multi-map-frame"] = makeMultiMapFrame;
// make-filter-frame
var makeFilterFrame = function(f, remaining, results, currentItem, env) { return {"current-item": currentItem, "env": env, "results": results, "type": "filter", "f": f, "remaining": remaining}; };
PRIMITIVES["make-filter-frame"] = makeFilterFrame;
// make-reduce-frame
var makeReduceFrame = function(f, remaining, env) { return {"env": env, "type": "reduce", "f": f, "remaining": remaining}; };
PRIMITIVES["make-reduce-frame"] = makeReduceFrame;
// make-for-each-frame
var makeForEachFrame = function(f, remaining, env) { return {"env": env, "type": "for-each", "f": f, "remaining": remaining}; };
PRIMITIVES["make-for-each-frame"] = makeForEachFrame;
// make-some-frame
var makeSomeFrame = function(f, remaining, env) { return {"env": env, "type": "some", "f": f, "remaining": remaining}; };
PRIMITIVES["make-some-frame"] = makeSomeFrame;
// make-every-frame
var makeEveryFrame = function(f, remaining, env) { return {"env": env, "type": "every", "f": f, "remaining": remaining}; };
PRIMITIVES["make-every-frame"] = makeEveryFrame;
// make-scope-frame
var makeScopeFrame = function(name, remaining, env) { return {"env": env, "type": "scope", "remaining": remaining, "name": name}; };
PRIMITIVES["make-scope-frame"] = makeScopeFrame;
// make-provide-frame
var makeProvideFrame = function(name, value, remaining, env) { return {"subscribers": [], "env": env, "value": value, "type": "provide", "remaining": remaining, "name": name}; };
PRIMITIVES["make-provide-frame"] = makeProvideFrame;
// make-bind-frame
var makeBindFrame = function(body, env, prevTracking) { return {"body": body, "env": env, "type": "bind", "prev-tracking": prevTracking}; };
PRIMITIVES["make-bind-frame"] = makeBindFrame;
// make-provide-set-frame
var makeProvideSetFrame = function(name, env) { return {"env": env, "type": "provide-set", "name": name}; };
PRIMITIVES["make-provide-set-frame"] = makeProvideSetFrame;
// make-scope-acc-frame
var makeScopeAccFrame = function(name, value, remaining, env) { return {"env": env, "value": sxOr(value, NIL), "type": "scope-acc", "remaining": remaining, "emitted": [], "name": name}; };
PRIMITIVES["make-scope-acc-frame"] = makeScopeAccFrame;
// make-reset-frame
var makeResetFrame = function(env) { return {"env": env, "type": "reset"}; };
PRIMITIVES["make-reset-frame"] = makeResetFrame;
// make-dict-frame
var makeDictFrame = function(remaining, results, env) { return {"env": env, "results": results, "type": "dict", "remaining": remaining}; };
PRIMITIVES["make-dict-frame"] = makeDictFrame;
// make-and-frame
var makeAndFrame = function(remaining, env) { return {"env": env, "type": "and", "remaining": remaining}; };
PRIMITIVES["make-and-frame"] = makeAndFrame;
// make-or-frame
var makeOrFrame = function(remaining, env) { return {"env": env, "type": "or", "remaining": remaining}; };
PRIMITIVES["make-or-frame"] = makeOrFrame;
// make-dynamic-wind-frame
var makeDynamicWindFrame = function(phase, bodyThunk, afterThunk, env) { return {"env": env, "phase": phase, "after-thunk": afterThunk, "type": "dynamic-wind", "body-thunk": bodyThunk}; };
PRIMITIVES["make-dynamic-wind-frame"] = makeDynamicWindFrame;
// make-reactive-reset-frame
var makeReactiveResetFrame = function(env, updateFn, firstRender_p) { return {"first-render": firstRender_p, "update-fn": updateFn, "env": env, "type": "reactive-reset"}; };
PRIMITIVES["make-reactive-reset-frame"] = makeReactiveResetFrame;
// make-callcc-frame
var makeCallccFrame = function(env) { return {"env": env, "type": "callcc"}; };
PRIMITIVES["make-callcc-frame"] = makeCallccFrame;
// make-wind-after-frame
var makeWindAfterFrame = function(afterThunk, windersLen, env) { return {"winders-len": windersLen, "env": env, "after-thunk": afterThunk, "type": "wind-after"}; };
PRIMITIVES["make-wind-after-frame"] = makeWindAfterFrame;
// make-wind-return-frame
var makeWindReturnFrame = function(bodyResult, env) { return {"body-result": bodyResult, "env": env, "type": "wind-return"}; };
PRIMITIVES["make-wind-return-frame"] = makeWindReturnFrame;
// make-deref-frame
var makeDerefFrame = function(env) { return {"env": env, "type": "deref"}; };
PRIMITIVES["make-deref-frame"] = makeDerefFrame;
// make-ho-setup-frame
var makeHoSetupFrame = function(hoType, remainingArgs, evaledArgs, env) { return {"ho-type": hoType, "env": env, "evaled": evaledArgs, "type": "ho-setup", "remaining": remainingArgs}; };
PRIMITIVES["make-ho-setup-frame"] = makeHoSetupFrame;
// make-comp-trace-frame
var makeCompTraceFrame = function(name, file) { return {"env": file, "type": "comp-trace", "name": name}; };
PRIMITIVES["make-comp-trace-frame"] = makeCompTraceFrame;
// kont-collect-comp-trace
var kontCollectCompTrace = function(kont) { return (isSxTruthy(isEmpty(kont)) ? [] : (function() {
var frame = first(kont);
return (isSxTruthy(sxEq(frameType(frame), "comp-trace")) ? cons({"file": get(frame, "file"), "name": get(frame, "name")}, kontCollectCompTrace(rest(kont))) : kontCollectCompTrace(rest(kont)));
})()); };
PRIMITIVES["kont-collect-comp-trace"] = kontCollectCompTrace;
// make-handler-frame
var makeHandlerFrame = function(handlers, remaining, env) { return {"env": env, "type": "handler", "f": handlers, "remaining": remaining}; };
PRIMITIVES["make-handler-frame"] = makeHandlerFrame;
// make-restart-frame
var makeRestartFrame = function(restarts, remaining, env) { return {"env": env, "type": "restart", "f": restarts, "remaining": remaining}; };
PRIMITIVES["make-restart-frame"] = makeRestartFrame;
// make-signal-return-frame
var makeSignalReturnFrame = function(env, savedKont) { return {"env": env, "type": "signal-return", "f": savedKont}; };
PRIMITIVES["make-signal-return-frame"] = makeSignalReturnFrame;
// make-raise-eval-frame
var makeRaiseEvalFrame = function(env, continuable_p) { return {"scheme": continuable_p, "env": env, "type": "raise-eval"}; };
PRIMITIVES["make-raise-eval-frame"] = makeRaiseEvalFrame;
// make-raise-guard-frame
var makeRaiseGuardFrame = function(env, savedKont) { return {"env": env, "type": "raise-guard", "remaining": savedKont}; };
PRIMITIVES["make-raise-guard-frame"] = makeRaiseGuardFrame;
// make-perform-frame
var makePerformFrame = function(env) { return {"env": env, "type": "perform"}; };
PRIMITIVES["make-perform-frame"] = makePerformFrame;
// make-vm-resume-frame
var makeVmResumeFrame = function(resumeFn, env) { return {"env": env, "type": "vm-resume", "f": resumeFn}; };
PRIMITIVES["make-vm-resume-frame"] = makeVmResumeFrame;
// make-import-frame
var makeImportFrame = function(importSet, remainingSets, env) { return {"args": importSet, "env": env, "type": "import", "remaining": remainingSets}; };
PRIMITIVES["make-import-frame"] = makeImportFrame;
// make-parameterize-frame
var makeParameterizeFrame = function(remaining, currentParam, results, body, env) { return {"env": env, "body": body, "results": results, "type": "parameterize", "f": currentParam, "remaining": remaining}; };
PRIMITIVES["make-parameterize-frame"] = makeParameterizeFrame;
// find-matching-handler
var findMatchingHandler = function(handlers, condition) { return (isSxTruthy(isEmpty(handlers)) ? NIL : (function() {
var pair = first(handlers);
return (function() {
var pred = first(pair);
var handlerFn = nth(pair, 1);
return (isSxTruthy(cekCall(pred, [condition])) ? handlerFn : findMatchingHandler(rest(handlers), condition));
})();
})()); };
PRIMITIVES["find-matching-handler"] = findMatchingHandler;
// kont-find-handler
var kontFindHandler = function(kont, condition) { return (isSxTruthy(isEmpty(kont)) ? NIL : (function() {
var frame = first(kont);
return (isSxTruthy(sxEq(frameType(frame), "handler")) ? (function() {
var match = findMatchingHandler(get(frame, "f"), condition);
return (isSxTruthy(isNil(match)) ? kontFindHandler(rest(kont), condition) : match);
})() : kontFindHandler(rest(kont), condition));
})()); };
PRIMITIVES["kont-find-handler"] = kontFindHandler;
// kont-unwind-to-handler
var kontUnwindToHandler = function(kont, condition) { return (isSxTruthy(isEmpty(kont)) ? {"handler": NIL, "kont": kont} : (function() {
var frame = first(kont);
var restK = rest(kont);
return (isSxTruthy(sxEq(frameType(frame), "handler")) ? (function() {
var match = findMatchingHandler(get(frame, "f"), condition);
return (isSxTruthy(isNil(match)) ? kontUnwindToHandler(restK, condition) : {"handler": match, "kont": kont});
})() : (isSxTruthy(sxEq(frameType(frame), "wind-after")) ? ((isSxTruthy((len(_winders_) > get(frame, "winders-len"))) ? (_winders_ = rest(_winders_)) : NIL), cekCall(get(frame, "after-thunk"), []), kontUnwindToHandler(restK, condition)) : kontUnwindToHandler(restK, condition)));
})()); };
PRIMITIVES["kont-unwind-to-handler"] = kontUnwindToHandler;
// wind-escape-to
var windEscapeTo = function(targetLen) { return (isSxTruthy((len(_winders_) > targetLen)) ? (function() {
var afterThunk = first(_winders_);
_winders_ = rest(_winders_);
cekCall(afterThunk, []);
return windEscapeTo(targetLen);
})() : NIL); };
PRIMITIVES["wind-escape-to"] = windEscapeTo;
// find-named-restart
var findNamedRestart = function(restarts, name) { return (isSxTruthy(isEmpty(restarts)) ? NIL : (function() {
var entry = first(restarts);
return (isSxTruthy(sxEq(first(entry), name)) ? entry : findNamedRestart(rest(restarts), name));
})()); };
PRIMITIVES["find-named-restart"] = findNamedRestart;
// kont-find-restart
var kontFindRestart = function(kont, name) { return (isSxTruthy(isEmpty(kont)) ? NIL : (function() {
var frame = first(kont);
return (isSxTruthy(sxEq(frameType(frame), "restart")) ? (function() {
var match = findNamedRestart(get(frame, "f"), name);
return (isSxTruthy(isNil(match)) ? kontFindRestart(rest(kont), name) : [match, frame, rest(kont)]);
})() : kontFindRestart(rest(kont), name));
})()); };
PRIMITIVES["kont-find-restart"] = kontFindRestart;
// frame-type
var frameType = function(f) { return get(f, "type"); };
PRIMITIVES["frame-type"] = frameType;
// kont-push
var kontPush = function(frame, kont) { return cons(frame, kont); };
PRIMITIVES["kont-push"] = kontPush;
// kont-top
var kontTop = function(kont) { return first(kont); };
PRIMITIVES["kont-top"] = kontTop;
// kont-pop
var kontPop = function(kont) { return rest(kont); };
PRIMITIVES["kont-pop"] = kontPop;
// kont-empty?
var kontEmpty_p = function(kont) { return isEmpty(kont); };
PRIMITIVES["kont-empty?"] = kontEmpty_p;
// kont-capture-to-reset
var kontCaptureToReset = function(kont) { var scan = function(k, captured) { return (isSxTruthy(isEmpty(k)) ? error("shift without enclosing reset") : (function() {
var frame = first(k);
return (isSxTruthy(sxOr(sxEq(frameType(frame), "reset"), sxEq(frameType(frame), "reactive-reset"))) ? [captured, rest(k)] : scan(rest(k), append(captured, [frame])));
})()); };
PRIMITIVES["scan"] = scan;
return scan(kont, []); };
PRIMITIVES["kont-capture-to-reset"] = kontCaptureToReset;
// kont-push-provides
var kontPushProvides = function(pairs, env, kont) { return (isSxTruthy(isEmpty(pairs)) ? kont : (function() {
var pair = first(pairs);
return kontPushProvides(rest(pairs), env, cons(makeProvideFrame(first(pair), nth(pair, 1), [], env), kont));
})()); };
PRIMITIVES["kont-push-provides"] = kontPushProvides;
// kont-find-provide
var kontFindProvide = function(kont, name) { return (isSxTruthy(isEmpty(kont)) ? NIL : (function() {
var frame = first(kont);
return (isSxTruthy((isSxTruthy(sxEq(frameType(frame), "provide")) && sxEq(get(frame, "name"), name))) ? frame : kontFindProvide(rest(kont), name));
})()); };
PRIMITIVES["kont-find-provide"] = kontFindProvide;
// kont-find-scope-acc
var kontFindScopeAcc = function(kont, name) { return (isSxTruthy(isEmpty(kont)) ? NIL : (function() {
var frame = first(kont);
return (isSxTruthy((isSxTruthy(sxEq(frameType(frame), "scope-acc")) && sxEq(get(frame, "name"), name))) ? frame : kontFindScopeAcc(rest(kont), name));
})()); };
PRIMITIVES["kont-find-scope-acc"] = kontFindScopeAcc;
// has-reactive-reset-frame?
var hasReactiveResetFrame_p = function(kont) { return (isSxTruthy(isEmpty(kont)) ? false : (isSxTruthy(sxEq(frameType(first(kont)), "reactive-reset")) ? true : hasReactiveResetFrame_p(rest(kont)))); };
PRIMITIVES["has-reactive-reset-frame?"] = hasReactiveResetFrame_p;
// kont-capture-to-reactive-reset
var kontCaptureToReactiveReset = function(kont) { var scan = function(k, captured) { return (isSxTruthy(isEmpty(k)) ? error("reactive deref without enclosing reactive-reset") : (function() {
var frame = first(k);
return (isSxTruthy(sxEq(frameType(frame), "reactive-reset")) ? [captured, frame, rest(k)] : scan(rest(k), append(captured, [frame])));
})()); };
PRIMITIVES["scan"] = scan;
return scan(kont, []); };
PRIMITIVES["kont-capture-to-reactive-reset"] = kontCaptureToReactiveReset;
// *custom-special-forms*
var _customSpecialForms = {};
PRIMITIVES["*custom-special-forms*"] = _customSpecialForms;
// register-special-form!
var registerSpecialForm = function(name, handler) { return dictSet(_customSpecialForms, name, handler); };
PRIMITIVES["register-special-form!"] = registerSpecialForm;
// *render-check*
var _renderCheck = NIL;
PRIMITIVES["*render-check*"] = _renderCheck;
// *render-fn*
var _renderFn = NIL;
PRIMITIVES["*render-fn*"] = _renderFn;
// *bind-tracking*
var _bindTracking_ = NIL;
PRIMITIVES["*bind-tracking*"] = _bindTracking_;
// *provide-batch-depth*
var _provideBatchDepth_ = 0;
PRIMITIVES["*provide-batch-depth*"] = _provideBatchDepth_;
// *provide-batch-queue*
var _provideBatchQueue_ = [];
PRIMITIVES["*provide-batch-queue*"] = _provideBatchQueue_;
// *provide-subscribers*
var _provideSubscribers_ = {};
PRIMITIVES["*provide-subscribers*"] = _provideSubscribers_;
// *winders*
var _winders_ = [];
PRIMITIVES["*winders*"] = _winders_;
// *library-registry*
var _libraryRegistry_ = {};
PRIMITIVES["*library-registry*"] = _libraryRegistry_;
// library-name-key
var libraryNameKey = function(spec) { return join(".", map(function(s) { return (isSxTruthy(symbol_p(s)) ? symbolName(s) : (String(s))); }, spec)); };
PRIMITIVES["library-name-key"] = libraryNameKey;
// library-loaded?
var libraryLoaded_p = function(spec) { return dictHas(_libraryRegistry_, libraryNameKey(spec)); };
PRIMITIVES["library-loaded?"] = libraryLoaded_p;
// library-exports
var libraryExports = function(spec) { return get(get(_libraryRegistry_, libraryNameKey(spec)), "exports"); };
PRIMITIVES["library-exports"] = libraryExports;
// register-library
var registerLibrary = function(spec, exports) { return dictSet(_libraryRegistry_, libraryNameKey(spec), {"exports": exports}); };
PRIMITIVES["register-library"] = registerLibrary;
// *io-registry*
var _ioRegistry_ = {};
PRIMITIVES["*io-registry*"] = _ioRegistry_;
// io-register!
var ioRegister_b = function(name, spec) { return dictSet(_ioRegistry_, name, spec); };
PRIMITIVES["io-register!"] = ioRegister_b;
// io-registered?
var ioRegistered_p = function(name) { return dictHas(_ioRegistry_, name); };
PRIMITIVES["io-registered?"] = ioRegistered_p;
// io-lookup
var ioLookup = function(name) { return get(_ioRegistry_, name); };
PRIMITIVES["io-lookup"] = ioLookup;
// io-names
var ioNames = function() { return keys(_ioRegistry_); };
PRIMITIVES["io-names"] = ioNames;
// *foreign-registry*
var _foreignRegistry_ = {};
PRIMITIVES["*foreign-registry*"] = _foreignRegistry_;
// foreign-register!
var foreignRegister_b = function(name, spec) { return dictSet(_foreignRegistry_, name, spec); };
PRIMITIVES["foreign-register!"] = foreignRegister_b;
// foreign-registered?
var foreignRegistered_p = function(name) { return dictHas(_foreignRegistry_, name); };
PRIMITIVES["foreign-registered?"] = foreignRegistered_p;
// foreign-lookup
var foreignLookup = function(name) { return get(_foreignRegistry_, name); };
PRIMITIVES["foreign-lookup"] = foreignLookup;
// foreign-names
var foreignNames = function() { return keys(_foreignRegistry_); };
PRIMITIVES["foreign-names"] = foreignNames;
// foreign-parse-params
var foreignParseParams = function(paramList) { return (function() {
var result = [];
var i = 0;
var items = (isSxTruthy(isList(paramList)) ? paramList : []);
return foreignParseParamsLoop(items, result);
})(); };
PRIMITIVES["foreign-parse-params"] = foreignParseParams;
// foreign-parse-kwargs!
var foreignParseKwargs_b = function(spec, remaining) { return (isSxTruthy((isSxTruthy(!isSxTruthy(isEmpty(remaining))) && isSxTruthy((len(remaining) >= 2)) && keyword_p(first(remaining)))) ? (dictSet(spec, keywordName(first(remaining)), (function() {
var v = nth(remaining, 1);
return (isSxTruthy(keyword_p(v)) ? keywordName(v) : v);
})()), foreignParseKwargs_b(spec, rest(rest(remaining)))) : NIL); };
PRIMITIVES["foreign-parse-kwargs!"] = foreignParseKwargs_b;
// foreign-resolve-binding
var foreignResolveBinding = function(bindingStr) { return (function() {
var parts = split(bindingStr, ".");
return (isSxTruthy((len(parts) <= 1)) ? {"method": bindingStr, "object": NIL} : (function() {
var method = last(parts);
var obj = join(".", reverse(rest(reverse(parts))));
return {"method": method, "object": obj};
})());
})(); };
PRIMITIVES["foreign-resolve-binding"] = foreignResolveBinding;
// foreign-check-args
var foreignCheckArgs = function(name, params, args) { if (isSxTruthy((isSxTruthy(!isSxTruthy(isEmpty(params))) && (len(args) < len(params))))) {
error((String("foreign ") + String(name) + String(": expected ") + String(len(params)) + String(" args, got ") + String(len(args))));
}
return forEach(function(i) { return (function() {
var spec = nth(params, i);
var val = nth(args, i);
var expected = get(spec, "type");
return (isSxTruthy((isSxTruthy(!isSxTruthy(sxEq(expected, "any"))) && !isSxTruthy(valueMatchesType_p(val, expected)))) ? error((String("foreign ") + String(name) + String(": arg '") + String(get(spec, "name")) + String("' expected ") + String(expected) + String(", got ") + String(typeOf(val)))) : NIL);
})(); }, range(0, min(len(params), len(args)))); };
PRIMITIVES["foreign-check-args"] = foreignCheckArgs;
// foreign-build-lambda
var foreignBuildLambda = function(spec) { return (function() {
var name = get(spec, "name");
var mode = (isSxTruthy(dictHas(spec, "returns")) ? (function() {
var r = get(spec, "returns");
return (isSxTruthy(sxEq(r, "promise")) ? "async" : "sync");
})() : "sync");
return (isSxTruthy(sxEq(mode, "async")) ? [new Symbol("fn"), [new Symbol("&rest"), new Symbol("__ffi-args__")], [new Symbol("perform"), [new Symbol("foreign-dispatch"), [new Symbol("quote"), name], new Symbol("__ffi-args__")]]] : [new Symbol("fn"), [new Symbol("&rest"), new Symbol("__ffi-args__")], [new Symbol("foreign-dispatch"), [new Symbol("quote"), name], new Symbol("__ffi-args__")]]);
})(); };
PRIMITIVES["foreign-build-lambda"] = foreignBuildLambda;
// sf-define-foreign
var sfDefineForeign = function(args, env) { return (function() {
var name = (isSxTruthy(symbol_p(first(args))) ? symbolName(first(args)) : first(args));
var paramList = nth(args, 1);
var spec = {};
spec["name"] = name;
spec["params"] = foreignParseParams(paramList);
foreignParseKwargs_b(spec, rest(rest(args)));
foreignRegister_b(name, spec);
return spec;
})(); };
PRIMITIVES["sf-define-foreign"] = sfDefineForeign;
// step-sf-define-foreign
var stepSfDefineForeign = function(args, env, kont) { return (function() {
var spec = sfDefineForeign(args, env);
var name = (isSxTruthy(symbol_p(first(args))) ? symbolName(first(args)) : first(args));
var lambdaExpr = foreignBuildLambda(spec);
return makeCekState(lambdaExpr, env, kontPush(makeDefineForeignFrame(name, spec, env), kont));
})(); };
PRIMITIVES["step-sf-define-foreign"] = stepSfDefineForeign;
// foreign-dispatch
var foreignDispatch = function(name, args) { return (function() {
var spec = foreignLookup(name);
if (isSxTruthy(isNil(spec))) {
error((String("foreign-dispatch: unknown foreign function '") + String(name) + String("'")));
}
return (function() {
var params = get(spec, "params");
var binding = get(spec, "js");
foreignCheckArgs(name, (isSxTruthy(isNil(params)) ? [] : params), args);
return (isSxTruthy(isNil(binding)) ? error((String("foreign ") + String(name) + String(": no binding for current platform"))) : (function() {
var resolved = foreignResolveBinding(binding);
var objName = get(resolved, "object");
var method = get(resolved, "method");
return (isSxTruthy(isPrimitive("host-call")) ? (isSxTruthy(isNil(objName)) ? apply(getPrimitive("host-call"), concat([NIL, method], args)) : (function() {
var obj = (getPrimitive("host-global"))(objName);
return apply(getPrimitive("host-call"), concat([obj, method], args));
})()) : error((String("foreign ") + String(name) + String(": host-call not available on this platform"))));
})());
})();
})(); };
PRIMITIVES["foreign-dispatch"] = foreignDispatch;
// foreign-parse-params-loop
var foreignParseParamsLoop = function(items, acc) { return (isSxTruthy(isEmpty(items)) ? acc : (function() {
var item = first(items);
var restItems = rest(items);
return (isSxTruthy((isSxTruthy(!isSxTruthy(isEmpty(restItems))) && isSxTruthy(keyword_p(first(restItems))) && isSxTruthy(sxEq(keywordName(first(restItems)), "as")) && (len(restItems) >= 2))) ? foreignParseParamsLoop(rest(rest(restItems)), append(acc, [{"type": (function() {
var t = nth(restItems, 1);
return (isSxTruthy(keyword_p(t)) ? keywordName(t) : (String(t)));
})(), "name": (isSxTruthy(symbol_p(item)) ? symbolName(item) : (String(item)))}])) : foreignParseParamsLoop(restItems, append(acc, [{"type": "any", "name": (isSxTruthy(symbol_p(item)) ? symbolName(item) : (String(item)))}])));
})()); };
PRIMITIVES["foreign-parse-params-loop"] = foreignParseParamsLoop;
// step-sf-io
var stepSfIo = function(args, env, kont) { return (function() {
var name = first(args);
var ioArgs = rest(args);
if (isSxTruthy(!isSxTruthy(ioRegistered_p(name)))) {
error((String("io: unknown operation '") + String(name) + String("' — not in *io-registry*")));
}
return makeCekState(cons(new Symbol("perform"), [{"args": ioArgs, "op": name}]), env, kont);
})(); };
PRIMITIVES["step-sf-io"] = stepSfIo;
// trampoline
var trampoline = function(val) { return (function() {
var result = val;
return (isSxTruthy(isThunk(result)) ? trampoline(evalExpr(thunkExpr(result), thunkEnv(result))) : result);
})(); };
PRIMITIVES["trampoline"] = trampoline;
// *strict*
var _strict_ = false;
PRIMITIVES["*strict*"] = _strict_;
// set-strict!
var setStrict_b = function(val) { return (_strict_ = val); };
PRIMITIVES["set-strict!"] = setStrict_b;
// *prim-param-types*
var _primParamTypes_ = NIL;
PRIMITIVES["*prim-param-types*"] = _primParamTypes_;
// set-prim-param-types!
var setPrimParamTypes_b = function(types) { return (_primParamTypes_ = types); };
PRIMITIVES["set-prim-param-types!"] = setPrimParamTypes_b;
// value-matches-type?
var valueMatchesType_p = function(val, expectedType) { return (function() { var _m = expectedType; if (_m == "any") return true; if (_m == "number") return isNumber(val); if (_m == "string") return isString(val); if (_m == "boolean") return boolean_p(val); if (_m == "nil") return isNil(val); if (_m == "list") return isList(val); if (_m == "dict") return isDict(val); if (_m == "lambda") return isLambda(val); if (_m == "symbol") return sxEq(typeOf(val), "symbol"); if (_m == "keyword") return sxEq(typeOf(val), "keyword"); return (isSxTruthy((isSxTruthy(isString(expectedType)) && endsWith(expectedType, "?"))) ? sxOr(isNil(val), valueMatchesType_p(val, slice(expectedType, 0, (stringLength(expectedType) - 1)))) : true); })(); };
PRIMITIVES["value-matches-type?"] = valueMatchesType_p;
// strict-check-args
var strictCheckArgs = function(name, args) { return (isSxTruthy((isSxTruthy(_strict_) && _primParamTypes_)) ? (function() {
var spec = get(_primParamTypes_, name);
return (isSxTruthy(spec) ? (function() {
var positional = get(spec, "positional");
var restType = get(spec, "rest-type");
if (isSxTruthy(positional)) {
{ var _c = mapIndexed(function(i, p) { return [i, p]; }, positional); for (var _i = 0; _i < _c.length; _i++) { var pair = _c[_i]; (function() {
var idx = first(pair);
var param = nth(pair, 1);
var pName = first(param);
var pType = nth(param, 1);
return (isSxTruthy((idx < len(args))) ? (function() {
var val = nth(args, idx);
return (isSxTruthy(!isSxTruthy(valueMatchesType_p(val, pType))) ? error((String("Type error: ") + String(name) + String(" expected ") + String(pType) + String(" for param ") + String(pName) + String(", got ") + String(typeOf(val)) + String(" (") + String((String(val))) + String(")"))) : NIL);
})() : NIL);
})(); } }
}
return (isSxTruthy((isSxTruthy(restType) && (len(args) > len(sxOr(positional, []))))) ? forEach(function(pair) { return (function() {
var idx = first(pair);
var val = nth(pair, 1);
return (isSxTruthy(!isSxTruthy(valueMatchesType_p(val, restType))) ? error((String("Type error: ") + String(name) + String(" expected ") + String(restType) + String(" for rest arg ") + String(idx) + String(", got ") + String(typeOf(val)) + String(" (") + String((String(val))) + String(")"))) : NIL);
})(); }, mapIndexed(function(i, v) { return [i, v]; }, slice(args, len(sxOr(positional, []))))) : NIL);
})() : NIL);
})() : NIL); };
PRIMITIVES["strict-check-args"] = strictCheckArgs;
// eval-expr
var evalExpr = function(expr, env) { return NIL; };
PRIMITIVES["eval-expr"] = evalExpr;
// bind-lambda-params
var bindLambdaParams = function(params, args, local) { return (function() {
var restIdx = indexOf_(params, "&rest");
return (isSxTruthy((isSxTruthy(isNumber(restIdx)) && (restIdx < len(params)))) ? (function() {
var positional = slice(params, 0, restIdx);
var restName = nth(params, (restIdx + 1));
return (forEachIndexed(function(i, p) { return envBind(local, p, (isSxTruthy((i < len(args))) ? nth(args, i) : NIL)); }, positional), envBind(local, restName, (isSxTruthy((len(args) > restIdx)) ? slice(args, restIdx) : [])), true);
})() : false);
})(); };
PRIMITIVES["bind-lambda-params"] = bindLambdaParams;
// call-lambda
var callLambda = function(f, args, callerEnv) { return (function() {
var params = lambdaParams(f);
var local = envMerge(lambdaClosure(f), callerEnv);
if (isSxTruthy(!isSxTruthy(bindLambdaParams(params, args, local)))) {
if (isSxTruthy((len(args) > len(params)))) {
error((String(sxOr(lambdaName(f), "lambda")) + String(" expects ") + String(len(params)) + String(" args, got ") + String(len(args))));
}
{ var _c = zip(params, args); for (var _i = 0; _i < _c.length; _i++) { var pair = _c[_i]; envBind(local, first(pair), nth(pair, 1)); } }
{ var _c = slice(params, len(args)); for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; envBind(local, p, NIL); } }
}
return makeThunk(lambdaBody(f), local);
})(); };
PRIMITIVES["call-lambda"] = callLambda;
// call-component
var callComponent = function(comp, rawArgs, env) { return (function() {
var parsed = parseKeywordArgs(rawArgs, env);
var kwargs = first(parsed);
var children = nth(parsed, 1);
var local = envMerge(componentClosure(comp), env);
{ var _c = componentParams(comp); for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; envBind(local, p, sxOr(dictGet(kwargs, p), NIL)); } }
if (isSxTruthy(componentHasChildren(comp))) {
envBind(local, "children", children);
}
return makeThunk(componentBody(comp), local);
})(); };
PRIMITIVES["call-component"] = callComponent;
// parse-keyword-args
var parseKeywordArgs = function(rawArgs, env) { return (function() {
var kwargs = {};
var children = [];
var i = 0;
reduce(function(state, arg) { return (function() {
var idx = get(state, "i");
var skip = get(state, "skip");
return (isSxTruthy(skip) ? assoc(state, "skip", false, "i", (idx + 1)) : (isSxTruthy((isSxTruthy(sxEq(typeOf(arg), "keyword")) && ((idx + 1) < len(rawArgs)))) ? (dictSet(kwargs, keywordName(arg), trampoline(evalExpr(nth(rawArgs, (idx + 1)), env))), assoc(state, "skip", true, "i", (idx + 1))) : (append_b(children, trampoline(evalExpr(arg, env))), assoc(state, "i", (idx + 1)))));
})(); }, {["i"]: 0, ["skip"]: false}, rawArgs);
return [kwargs, children];
})(); };
PRIMITIVES["parse-keyword-args"] = parseKeywordArgs;
// cond-scheme?
var condScheme_p = function(clauses) { return isEvery(function(c) { return (isSxTruthy(sxEq(typeOf(c), "list")) && sxOr(sxEq(len(c), 2), (isSxTruthy(sxEq(len(c), 3)) && isSxTruthy(sxEq(typeOf(nth(c, 1)), "symbol")) && sxEq(symbolName(nth(c, 1)), "=>")))); }, clauses); };
PRIMITIVES["cond-scheme?"] = condScheme_p;
// is-else-clause?
var isElseClause = function(test) { return sxOr((isSxTruthy(sxEq(typeOf(test), "keyword")) && sxEq(keywordName(test), "else")), (isSxTruthy(sxEq(typeOf(test), "symbol")) && sxOr(sxEq(symbolName(test), "else"), sxEq(symbolName(test), ":else")))); };
PRIMITIVES["is-else-clause?"] = isElseClause;
// sf-named-let
var sfNamedLet = function(args, env) { return (function() {
var loopName = symbolName(first(args));
var bindings = nth(args, 1);
var body = slice(args, 2);
var params = [];
var inits = [];
(isSxTruthy((isSxTruthy(sxEq(typeOf(first(bindings)), "list")) && sxEq(len(first(bindings)), 2))) ? forEach(function(binding) { params.push((isSxTruthy(sxEq(typeOf(first(binding)), "symbol")) ? symbolName(first(binding)) : first(binding)));
return append_b(inits, nth(binding, 1)); }, bindings) : reduce(function(acc, pairIdx) { return (append_b(params, (isSxTruthy(sxEq(typeOf(nth(bindings, (pairIdx * 2))), "symbol")) ? symbolName(nth(bindings, (pairIdx * 2))) : nth(bindings, (pairIdx * 2)))), append_b(inits, nth(bindings, ((pairIdx * 2) + 1)))); }, NIL, range(0, (len(bindings) / 2))));
return (function() {
var loopBody = (isSxTruthy(sxEq(len(body), 1)) ? first(body) : cons(makeSymbol("begin"), body));
var loopFn = makeLambda(params, loopBody, env);
loopFn.name = loopName;
envBind(lambdaClosure(loopFn), loopName, loopFn);
return (function() {
var initVals = map(function(e) { return trampoline(evalExpr(e, env)); }, inits);
return cekCall(loopFn, initVals);
})();
})();
})(); };
PRIMITIVES["sf-named-let"] = sfNamedLet;
// sf-lambda
var sfLambda = function(args, env) { return (function() {
var paramsExpr = first(args);
var bodyExprs = rest(args);
var body = (isSxTruthy(sxEq(len(bodyExprs), 1)) ? first(bodyExprs) : cons(makeSymbol("begin"), bodyExprs));
var paramNames = map(function(p) { return (isSxTruthy(sxEq(typeOf(p), "symbol")) ? symbolName(p) : (isSxTruthy((isSxTruthy(sxEq(typeOf(p), "list")) && isSxTruthy(sxEq(len(p), 3)) && isSxTruthy(sxEq(typeOf(nth(p, 1)), "keyword")) && sxEq(keywordName(nth(p, 1)), "as"))) ? symbolName(first(p)) : p)); }, paramsExpr);
return makeLambda(paramNames, body, env);
})(); };
PRIMITIVES["sf-lambda"] = sfLambda;
// sf-defcomp
var sfDefcomp = function(args, env) { return (function() {
var nameSym = first(args);
var paramsRaw = nth(args, 1);
var body = last(args);
var compName = stripPrefix(symbolName(nameSym), "~");
var parsed = parseCompParams(paramsRaw);
var params = first(parsed);
var hasChildren = nth(parsed, 1);
var paramTypes = nth(parsed, 2);
var affinity = defcompKwarg(args, "affinity", "auto");
return (function() {
var comp = makeComponent(compName, params, hasChildren, body, env, affinity);
var effects = defcompKwarg(args, "effects", NIL);
if (isSxTruthy((isSxTruthy(!isSxTruthy(isNil(paramTypes))) && !isSxTruthy(isEmpty(keys(paramTypes)))))) {
componentSetParamTypes_b(comp, paramTypes);
}
if (isSxTruthy(!isSxTruthy(isNil(effects)))) {
(function() {
var effectList = (isSxTruthy(sxEq(typeOf(effects), "list")) ? map(function(e) { return (isSxTruthy(sxEq(typeOf(e), "symbol")) ? symbolName(e) : (String(e))); }, effects) : [(String(effects))]);
var effectAnns = (isSxTruthy(envHas(env, "*effect-annotations*")) ? envGet(env, "*effect-annotations*") : {});
effectAnns[symbolName(nameSym)] = effectList;
return envBind(env, "*effect-annotations*", effectAnns);
})();
}
if (isSxTruthy(envHas(env, "*current-file*"))) {
componentSetFile_b(comp, envGet(env, "*current-file*"));
}
envBind(env, symbolName(nameSym), comp);
return comp;
})();
})(); };
PRIMITIVES["sf-defcomp"] = sfDefcomp;
// defcomp-kwarg
var defcompKwarg = function(args, key, default_) { return (function() {
var end = (len(args) - 1);
var result = default_;
{ var _c = range(2, end, 1); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; if (isSxTruthy((isSxTruthy(sxEq(typeOf(nth(args, i)), "keyword")) && isSxTruthy(sxEq(keywordName(nth(args, i)), key)) && ((i + 1) < end)))) {
(function() {
var val = nth(args, (i + 1));
return (result = (isSxTruthy(sxEq(typeOf(val), "keyword")) ? keywordName(val) : val));
})();
} } }
return result;
})(); };
PRIMITIVES["defcomp-kwarg"] = defcompKwarg;
// parse-comp-params
var parseCompParams = function(paramsExpr) { return (function() {
var params = [];
var paramTypes = {};
var hasChildren = false;
var inKey = false;
{ var _c = paramsExpr; for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; (isSxTruthy((isSxTruthy(sxEq(typeOf(p), "list")) && isSxTruthy(sxEq(len(p), 3)) && isSxTruthy(sxEq(typeOf(first(p)), "symbol")) && isSxTruthy(sxEq(typeOf(nth(p, 1)), "keyword")) && sxEq(keywordName(nth(p, 1)), "as"))) ? (function() {
var name = symbolName(first(p));
var ptype = nth(p, 2);
return (function() {
var typeVal = (isSxTruthy(sxEq(typeOf(ptype), "symbol")) ? symbolName(ptype) : ptype);
return (isSxTruthy(!isSxTruthy(hasChildren)) ? (append_b(params, name), dictSet(paramTypes, name, typeVal)) : NIL);
})();
})() : (isSxTruthy(sxEq(typeOf(p), "symbol")) ? (function() {
var name = symbolName(p);
return (isSxTruthy(sxEq(name, "&key")) ? (inKey = true) : (isSxTruthy(sxEq(name, "&rest")) ? (hasChildren = true) : (isSxTruthy(sxEq(name, "&children")) ? (hasChildren = true) : (isSxTruthy(hasChildren) ? NIL : (isSxTruthy(inKey) ? append_b(params, name) : append_b(params, name))))));
})() : NIL)); } }
return [params, hasChildren, paramTypes];
})(); };
PRIMITIVES["parse-comp-params"] = parseCompParams;
// sf-defisland
var sfDefisland = function(args, env) { return (function() {
var nameSym = first(args);
var paramsRaw = nth(args, 1);
var bodyExprs = slice(args, 2);
var body = (isSxTruthy(sxEq(len(bodyExprs), 1)) ? first(bodyExprs) : cons(makeSymbol("begin"), bodyExprs));
var compName = stripPrefix(symbolName(nameSym), "~");
var parsed = parseCompParams(paramsRaw);
var params = first(parsed);
var hasChildren = nth(parsed, 1);
return (function() {
var island = makeIsland(compName, params, hasChildren, body, env);
if (isSxTruthy(envHas(env, "*current-file*"))) {
componentSetFile_b(island, envGet(env, "*current-file*"));
}
envBind(env, symbolName(nameSym), island);
return island;
})();
})(); };
PRIMITIVES["sf-defisland"] = sfDefisland;
// defio-parse-kwargs!
var defioParseKwargs_b = function(spec, remaining) { return (isSxTruthy((isSxTruthy(!isSxTruthy(isEmpty(remaining))) && isSxTruthy((len(remaining) >= 2)) && keyword_p(first(remaining)))) ? (dictSet(spec, keywordName(first(remaining)), nth(remaining, 1)), defioParseKwargs_b(spec, rest(rest(remaining)))) : NIL); };
PRIMITIVES["defio-parse-kwargs!"] = defioParseKwargs_b;
// sf-defio
var sfDefio = function(args, env) { return (function() {
var name = first(args);
var spec = {};
spec["name"] = name;
defioParseKwargs_b(spec, rest(args));
ioRegister_b(name, spec);
return spec;
})(); };
PRIMITIVES["sf-defio"] = sfDefio;
// sf-defmacro
var sfDefmacro = function(args, env) { return (function() {
var nameSym = first(args);
var paramsRaw = nth(args, 1);
var body = nth(args, 2);
var parsed = parseMacroParams(paramsRaw);
var params = first(parsed);
var restParam = nth(parsed, 1);
return (function() {
var mac = makeMacro(params, restParam, body, env, symbolName(nameSym));
envBind(env, symbolName(nameSym), mac);
return mac;
})();
})(); };
PRIMITIVES["sf-defmacro"] = sfDefmacro;
// parse-macro-params
var parseMacroParams = function(paramsExpr) { return (function() {
var params = [];
var restParam = NIL;
reduce(function(state, p) { return (isSxTruthy((isSxTruthy(sxEq(typeOf(p), "symbol")) && sxEq(symbolName(p), "&rest"))) ? assoc(state, "in-rest", true) : (isSxTruthy(get(state, "in-rest")) ? ((restParam = (isSxTruthy(sxEq(typeOf(p), "symbol")) ? symbolName(p) : p)), state) : (append_b(params, (isSxTruthy(sxEq(typeOf(p), "symbol")) ? symbolName(p) : p)), state))); }, {["in-rest"]: false}, paramsExpr);
return [params, restParam];
})(); };
PRIMITIVES["parse-macro-params"] = parseMacroParams;
// qq-expand
var qqExpand = function(template, env) { return (isSxTruthy(!isSxTruthy(sxEq(typeOf(template), "list"))) ? template : (isSxTruthy(isEmpty(template)) ? [] : (function() {
var head = first(template);
return (isSxTruthy((isSxTruthy(sxEq(typeOf(head), "symbol")) && sxEq(symbolName(head), "unquote"))) ? trampoline(evalExpr(nth(template, 1), env)) : reduce(function(result, item) { return (isSxTruthy((isSxTruthy(sxEq(typeOf(item), "list")) && isSxTruthy(sxEq(len(item), 2)) && isSxTruthy(sxEq(typeOf(first(item)), "symbol")) && sxEq(symbolName(first(item)), "splice-unquote"))) ? (function() {
var spliced = trampoline(evalExpr(nth(item, 1), env));
return (isSxTruthy(sxEq(typeOf(spliced), "list")) ? concat(result, spliced) : (isSxTruthy(isNil(spliced)) ? result : concat(result, [spliced])));
})() : concat(result, [qqExpand(item, env)])); }, [], template));
})())); };
PRIMITIVES["qq-expand"] = qqExpand;
// sf-letrec
var sfLetrec = function(args, env) { return (function() {
var bindings = first(args);
var body = rest(args);
var local = envExtend(env);
var names = [];
var valExprs = [];
(isSxTruthy((isSxTruthy(sxEq(typeOf(first(bindings)), "list")) && sxEq(len(first(bindings)), 2))) ? forEach(function(binding) { return (function() {
var vname = (isSxTruthy(sxEq(typeOf(first(binding)), "symbol")) ? symbolName(first(binding)) : first(binding));
names.push(vname);
valExprs.push(nth(binding, 1));
return envBind(local, vname, NIL);
})(); }, bindings) : reduce(function(acc, pairIdx) { return (function() {
var vname = (isSxTruthy(sxEq(typeOf(nth(bindings, (pairIdx * 2))), "symbol")) ? symbolName(nth(bindings, (pairIdx * 2))) : nth(bindings, (pairIdx * 2)));
var valExpr = nth(bindings, ((pairIdx * 2) + 1));
names.push(vname);
valExprs.push(valExpr);
return envBind(local, vname, NIL);
})(); }, NIL, range(0, (len(bindings) / 2))));
(function() {
var values = map(function(e) { return trampoline(evalExpr(e, local)); }, valExprs);
{ var _c = zip(names, values); for (var _i = 0; _i < _c.length; _i++) { var pair = _c[_i]; envBind(local, first(pair), nth(pair, 1)); } }
return forEach(function(val) { return (isSxTruthy(isLambda(val)) ? forEach(function(n) { return envBind(lambdaClosure(val), n, envGet(local, n)); }, names) : NIL); }, values);
})();
{ var _c = slice(body, 0, (len(body) - 1)); for (var _i = 0; _i < _c.length; _i++) { var e = _c[_i]; trampoline(evalExpr(e, local)); } }
return makeThunk(last(body), local);
})(); };
PRIMITIVES["sf-letrec"] = sfLetrec;
// call-with-values
var callWithValues = function(producer, consumer) { return (function() {
var result = apply(producer, []);
return (isSxTruthy((isSxTruthy(isDict(result)) && get(result, "_values", false))) ? apply(consumer, get(result, "_list")) : apply(consumer, [result]));
})(); };
PRIMITIVES["call-with-values"] = callWithValues;
// sf-let-values
var sfLetValues = function(args, env) { return (function() {
var clauses = first(args);
var body = rest(args);
var local = envExtend(env);
{ var _c = clauses; for (var _i = 0; _i < _c.length; _i++) { var clause = _c[_i]; (function() {
var names = first(clause);
var valExpr = nth(clause, 1);
return (function() {
var result = trampoline(evalExpr(valExpr, local));
return (function() {
var vs = (isSxTruthy((isSxTruthy(isDict(result)) && get(result, "_values", false))) ? get(result, "_list") : [result]);
return forEachIndexed(function(idx, name) { return envBind(local, symbolName(name), nth(vs, idx)); }, names);
})();
})();
})(); } }
return (function() {
var lastVal = NIL;
{ var _c = body; for (var _i = 0; _i < _c.length; _i++) { var e = _c[_i]; lastVal = trampoline(evalExpr(e, local)); } }
return lastVal;
})();
})(); };
PRIMITIVES["sf-let-values"] = sfLetValues;
// sf-define-values
var sfDefineValues = function(args, env) { return (function() {
var names = first(args);
var valExpr = nth(args, 1);
return (function() {
var result = trampoline(evalExpr(valExpr, env));
return (function() {
var vs = (isSxTruthy((isSxTruthy(isDict(result)) && get(result, "_values", false))) ? get(result, "_list") : [result]);
forEachIndexed(function(idx, name) { return envBind(env, symbolName(name), nth(vs, idx)); }, names);
return NIL;
})();
})();
})(); };
PRIMITIVES["sf-define-values"] = sfDefineValues;
// (register-special-form! ...)
registerSpecialForm("define-values", sfDefineValues);
// (register-special-form! ...)
registerSpecialForm("let-values", sfLetValues);
// step-sf-letrec
var stepSfLetrec = function(args, env, kont) { return (function() {
var thk = sfLetrec(args, env);
return makeCekState(thunkExpr(thk), thunkEnv(thk), kont);
})(); };
PRIMITIVES["step-sf-letrec"] = stepSfLetrec;
// step-sf-dynamic-wind
var stepSfDynamicWind = function(args, env, kont) { return (function() {
var before = trampoline(evalExpr(first(args), env));
var body = trampoline(evalExpr(nth(args, 1), env));
var after = trampoline(evalExpr(nth(args, 2), env));
return (cekCall(before, []), (function() {
var windersLen = len(_winders_);
_winders_ = cons(after, _winders_);
return continueWithCall(body, [], env, [], kontPush(makeWindAfterFrame(after, windersLen, env), kont));
})());
})(); };
PRIMITIVES["step-sf-dynamic-wind"] = stepSfDynamicWind;
// sf-scope
var sfScope = function(args, env) { return (function() {
var name = trampoline(evalExpr(first(args), env));
var rest = slice(args, 1);
var val = NIL;
var bodyExprs = NIL;
(isSxTruthy((isSxTruthy((len(rest) >= 2)) && isSxTruthy(sxEq(typeOf(first(rest)), "keyword")) && sxEq(keywordName(first(rest)), "value"))) ? ((val = trampoline(evalExpr(nth(rest, 1), env))), (bodyExprs = slice(rest, 2))) : (bodyExprs = rest));
scopePush(name, val);
return (function() {
var result = NIL;
{ var _c = bodyExprs; for (var _i = 0; _i < _c.length; _i++) { var e = _c[_i]; result = trampoline(evalExpr(e, env)); } }
scopePop(name);
return result;
})();
})(); };
PRIMITIVES["sf-scope"] = sfScope;
// sf-provide
var sfProvide = function(args, env) { return (function() {
var name = trampoline(evalExpr(first(args), env));
var val = trampoline(evalExpr(nth(args, 1), env));
var bodyExprs = slice(args, 2);
var result = NIL;
scopePush(name, val);
{ var _c = bodyExprs; for (var _i = 0; _i < _c.length; _i++) { var e = _c[_i]; result = trampoline(evalExpr(e, env)); } }
scopePop(name);
return result;
})(); };
PRIMITIVES["sf-provide"] = sfProvide;
// expand-macro
var expandMacro = function(mac, rawArgs, env) { return (function() {
var body = macroBody(mac);
return (isSxTruthy((isSxTruthy(symbol_p(body)) && sxEq(symbolName(body), "__syntax-rules-body__"))) ? (function() {
var closure = macroClosure(mac);
return syntaxRulesExpand(envGet(closure, "__sr-literals"), envGet(closure, "__sr-rules"), rawArgs);
})() : (function() {
var local = envMerge(macroClosure(mac), env);
{ var _c = mapIndexed(function(i, p) { return [p, i]; }, macroParams(mac)); for (var _i = 0; _i < _c.length; _i++) { var pair = _c[_i]; envBind(local, first(pair), (isSxTruthy((nth(pair, 1) < len(rawArgs))) ? nth(rawArgs, nth(pair, 1)) : NIL)); } }
if (isSxTruthy(macroRestParam(mac))) {
envBind(local, macroRestParam(mac), slice(rawArgs, len(macroParams(mac))));
}
return trampoline(evalExpr(macroBody(mac), local));
})());
})(); };
PRIMITIVES["expand-macro"] = expandMacro;
// cek-step-loop
var cekStepLoop = function(state) { return (isSxTruthy(sxOr(cekTerminal_p(state), cekSuspended_p(state))) ? state : cekStepLoop(cekStep(state))); };
PRIMITIVES["cek-step-loop"] = cekStepLoop;
// cek-run
var cekRun = function(state) { return (function() {
var final_ = cekStepLoop(state);
return (isSxTruthy(cekSuspended_p(final_)) ? error("IO suspension in non-IO context") : cekValue(final_));
})(); };
PRIMITIVES["cek-run"] = cekRun;
// cek-resume
var cekResume = function(suspendedState, result) { return cekStepLoop(makeCekValue(result, cekEnv(suspendedState), cekKont(suspendedState))); };
PRIMITIVES["cek-resume"] = cekResume;
// cek-step
var cekStep = function(state) { return (isSxTruthy(sxEq(cekPhase(state), "eval")) ? stepEval(state) : stepContinue(state)); };
PRIMITIVES["cek-step"] = cekStep;
// step-eval
var stepEval = function(state) { return (function() {
var expr = cekControl(state);
var env = cekEnv(state);
var kont = cekKont(state);
return (function() { var _m = typeOf(expr); if (_m == "number") return makeCekValue(expr, env, kont); if (_m == "string") return makeCekValue(expr, env, kont); if (_m == "boolean") return makeCekValue(expr, env, kont); if (_m == "nil") return makeCekValue(NIL, env, kont); if (_m == "symbol") return (function() {
var name = symbolName(expr);
return (function() {
var val = (isSxTruthy(envHas(env, name)) ? envGet(env, name) : (isSxTruthy(isPrimitive(name)) ? getPrimitive(name) : (isSxTruthy(sxEq(name, "true")) ? true : (isSxTruthy(sxEq(name, "false")) ? false : (isSxTruthy(sxEq(name, "nil")) ? NIL : error((String("Undefined symbol: ") + String(name))))))));
if (isSxTruthy((isSxTruthy(isNil(val)) && startsWith(name, "~")))) {
debugLog("Component not found:", name);
}
return makeCekValue(val, env, kont);
})();
})(); if (_m == "keyword") return makeCekValue(keywordName(expr), env, kont); if (_m == "dict") return (function() {
var ks = keys(expr);
return (isSxTruthy(isEmpty(ks)) ? makeCekValue({}, env, kont) : (function() {
var firstKey = first(ks);
var remainingEntries = [];
{ var _c = rest(ks); for (var _i = 0; _i < _c.length; _i++) { var k = _c[_i]; remainingEntries.push([k, get(expr, k)]); } }
return makeCekState(get(expr, firstKey), env, kontPush(makeDictFrame(remainingEntries, [[firstKey]], env), kont));
})());
})(); if (_m == "list") return (isSxTruthy(isEmpty(expr)) ? makeCekValue([], env, kont) : stepEvalList(expr, env, kont)); return makeCekValue(expr, env, kont); })();
})(); };
PRIMITIVES["step-eval"] = stepEval;
// step-sf-raise
var stepSfRaise = function(args, env, kont) { return makeCekState(first(args), env, kontPush(makeRaiseEvalFrame(env, false), kont)); };
PRIMITIVES["step-sf-raise"] = stepSfRaise;
// step-sf-guard
var stepSfGuard = function(args, env, kont) { return (function() {
var varClauses = first(args);
var body = rest(args);
var var_ = first(varClauses);
var clauses = rest(varClauses);
var sentinel = makeSymbol("__guard-reraise__");
return stepEvalList([new Symbol("let"), [[new Symbol("__guard-result"), cons(new Symbol("call/cc"), [cons(new Symbol("fn"), cons([new Symbol("__guard-k")], [cons(new Symbol("handler-bind"), cons([[cons(new Symbol("fn"), cons([new Symbol("_")], [true])), cons(new Symbol("fn"), cons([var_], [[new Symbol("__guard-k"), cons(new Symbol("cond"), append(clauses, [[new Symbol("else"), [new Symbol("list"), [new Symbol("quote"), sentinel], var_]]]))]]))]], [[new Symbol("__guard-k"), cons(new Symbol("begin"), body)]]))]))])]], [new Symbol("if"), [new Symbol("and"), [new Symbol("list?"), new Symbol("__guard-result")], [new Symbol("="), [new Symbol("len"), new Symbol("__guard-result")], 2], [new Symbol("="), [new Symbol("first"), new Symbol("__guard-result")], [new Symbol("quote"), sentinel]]], [new Symbol("raise"), [new Symbol("nth"), new Symbol("__guard-result"), 1]], new Symbol("__guard-result")]], env, kont);
})(); };
PRIMITIVES["step-sf-guard"] = stepSfGuard;
// step-sf-callcc
var stepSfCallcc = function(args, env, kont) { return makeCekState(first(args), env, kontPush(makeCallccFrame(env), kont)); };
PRIMITIVES["step-sf-callcc"] = stepSfCallcc;
// step-sf-case
var stepSfCase = function(args, env, kont) { return makeCekState(first(args), env, kontPush(makeCaseFrame(NIL, rest(args), env), kont)); };
PRIMITIVES["step-sf-case"] = stepSfCase;
// step-sf-let-match
var stepSfLetMatch = function(args, env, kont) { return (function() {
var pattern = first(args);
var expr = nth(args, 1);
var body = rest(rest(args));
return stepSfMatch([expr, [pattern, cons(new Symbol("begin"), body)]], env, kont);
})(); };
PRIMITIVES["step-sf-let-match"] = stepSfLetMatch;
// step-eval-list
var stepEvalList = function(expr, env, kont) { return (function() {
var head = first(expr);
var args = rest(expr);
return (isSxTruthy(!isSxTruthy(sxOr(sxEq(typeOf(head), "symbol"), sxEq(typeOf(head), "lambda"), sxEq(typeOf(head), "list")))) ? (isSxTruthy(isEmpty(expr)) ? makeCekValue([], env, kont) : makeCekState(first(expr), env, kontPush(makeMapFrame(NIL, rest(expr), [], env), kont))) : (isSxTruthy(sxEq(typeOf(head), "symbol")) ? (function() {
var name = symbolName(head);
return (function() { var _m = name; if (_m == "if") return stepSfIf(args, env, kont); if (_m == "when") return stepSfWhen(args, env, kont); if (_m == "cond") return stepSfCond(args, env, kont); if (_m == "case") return stepSfCase(args, env, kont); if (_m == "and") return stepSfAnd(args, env, kont); if (_m == "or") return stepSfOr(args, env, kont); if (_m == "let") return stepSfLet(args, env, kont); if (_m == "let*") return stepSfLet(args, env, kont); if (_m == "lambda") return stepSfLambda(args, env, kont); if (_m == "fn") return stepSfLambda(args, env, kont); if (_m == "define") return stepSfDefine(args, env, kont); if (_m == "defcomp") return makeCekValue(sfDefcomp(args, env), env, kont); if (_m == "defisland") return makeCekValue(sfDefisland(args, env), env, kont); if (_m == "defmacro") return makeCekValue(sfDefmacro(args, env), env, kont); if (_m == "defio") return makeCekValue(sfDefio(args, env), env, kont); if (_m == "define-foreign") return stepSfDefineForeign(args, env, kont); if (_m == "io") return stepSfIo(args, env, kont); if (_m == "begin") return stepSfBegin(args, env, kont); if (_m == "do") return (isSxTruthy((isSxTruthy(!isSxTruthy(isEmpty(args))) && isSxTruthy(isList(first(args))) && isSxTruthy(!isSxTruthy(isEmpty(first(args)))) && isList(first(first(args))))) ? (function() {
var bindings = first(args);
var testClause = nth(args, 1);
var body = rest(rest(args));
var vars = map(function(b) { return first(b); }, bindings);
var inits = map(function(b) { return nth(b, 1); }, bindings);
var steps = map(function(b) { return (isSxTruthy((len(b) > 2)) ? nth(b, 2) : first(b)); }, bindings);
var test = first(testClause);
var result = rest(testClause);
return stepEvalList(cons(new Symbol("let"), cons(new Symbol("__do-loop"), cons(map(function(b) { return [first(b), nth(b, 1)]; }, bindings), [cons(new Symbol("if"), cons(test, cons((isSxTruthy(isEmpty(result)) ? NIL : cons(new Symbol("begin"), result)), [cons(new Symbol("begin"), append(body, [cons(new Symbol("__do-loop"), steps)]))])))]))), env, kont);
})() : stepSfBegin(args, env, kont)); if (_m == "guard") return stepSfGuard(args, env, kont); if (_m == "quote") return makeCekValue((isSxTruthy(isEmpty(args)) ? NIL : first(args)), env, kont); if (_m == "quasiquote") return makeCekValue(qqExpand(first(args), env), env, kont); if (_m == "->") return stepSfThreadFirst(args, env, kont); if (_m == "->>") return stepSfThreadLast(args, env, kont); if (_m == "|>") return stepSfThreadLast(args, env, kont); if (_m == "as->") return stepSfThreadAs(args, env, kont); if (_m == "set!") return stepSfSet(args, env, kont); if (_m == "letrec") return stepSfLetrec(args, env, kont); if (_m == "reset") return stepSfReset(args, env, kont); if (_m == "shift") return stepSfShift(args, env, kont); if (_m == "deref") return stepSfDeref(args, env, kont); if (_m == "scope") return stepSfScope(args, env, kont); if (_m == "provide") return stepSfProvide(args, env, kont); if (_m == "peek") return stepSfPeek(args, env, kont); if (_m == "provide!") return stepSfProvide_b(args, env, kont); if (_m == "context") return stepSfContext(args, env, kont); if (_m == "bind") return stepSfBind(args, env, kont); if (_m == "emit!") return stepSfEmit(args, env, kont); if (_m == "emitted") return stepSfEmitted(args, env, kont); if (_m == "handler-bind") return stepSfHandlerBind(args, env, kont); if (_m == "restart-case") return stepSfRestartCase(args, env, kont); if (_m == "signal-condition") return stepSfSignal(args, env, kont); if (_m == "invoke-restart") return stepSfInvokeRestart(args, env, kont); if (_m == "match") return stepSfMatch(args, env, kont); if (_m == "let-match") return stepSfLetMatch(args, env, kont); if (_m == "dynamic-wind") return stepSfDynamicWind(args, env, kont); if (_m == "map") return stepHoMap(args, env, kont); if (_m == "map-indexed") return stepHoMapIndexed(args, env, kont); if (_m == "filter") return stepHoFilter(args, env, kont); if (_m == "reduce") return stepHoReduce(args, env, kont); if (_m == "some") return stepHoSome(args, env, kont); if (_m == "every?") return stepHoEvery(args, env, kont); if (_m == "for-each") return stepHoForEach(args, env, kont); if (_m == "raise") return stepSfRaise(args, env, kont); if (_m == "raise-continuable") return makeCekState(first(args), env, kontPush(makeRaiseEvalFrame(env, true), kont)); if (_m == "call/cc") return stepSfCallcc(args, env, kont); if (_m == "call-with-current-continuation") return stepSfCallcc(args, env, kont); if (_m == "perform") return stepSfPerform(args, env, kont); if (_m == "define-library") return stepSfDefineLibrary(args, env, kont); if (_m == "import") return stepSfImport(args, env, kont); if (_m == "define-record-type") return makeCekValue(sfDefineRecordType(args, env), env, kont); if (_m == "define-protocol") return makeCekValue(sfDefineProtocol(args, env), env, kont); if (_m == "implement") return makeCekValue(sfImplement(args, env), env, kont); if (_m == "parameterize") return stepSfParameterize(args, env, kont); if (_m == "syntax-rules") return makeCekValue(sfSyntaxRules(args, env), env, kont); if (_m == "define-syntax") return stepSfDefine(args, env, kont); return (isSxTruthy((isSxTruthy(dictHas(_customSpecialForms, name)) && !isSxTruthy(envHas(env, name)))) ? makeCekValue((get(_customSpecialForms, name))(args, env), env, kont) : (isSxTruthy((isSxTruthy(envHas(env, name)) && isMacro(envGet(env, name)))) ? (function() {
var mac = envGet(env, name);
return makeCekState(expandMacro(mac, args, env), env, kont);
})() : (isSxTruthy((isSxTruthy(_renderCheck) && isSxTruthy(!isSxTruthy(envHas(env, name))) && _renderCheck(expr, env))) ? makeCekValue(_renderFn(expr, env), env, kont) : stepEvalCall(head, args, env, kont)))); })();
})() : stepEvalCall(head, args, env, kont)));
})(); };
PRIMITIVES["step-eval-list"] = stepEvalList;
// sf-define-type
var sfDefineType = function(args, env) { return (function() {
var typeSym = first(args);
var ctorSpecs = rest(args);
return (function() {
var typeName = symbolName(typeSym);
var ctorNames = map(function(spec) { return symbolName(first(spec)); }, ctorSpecs);
if (isSxTruthy(!isSxTruthy(envHas(env, "*adt-registry*")))) {
envBind(env, "*adt-registry*", {});
}
envGet(env, "*adt-registry*")[typeName] = ctorNames;
envBind(env, (String(typeName) + String("?")), function(v) { return (isSxTruthy(isDict(v)) && isSxTruthy(get(v, "_adt")) && sxEq(get(v, "_type"), typeName)); });
{ var _c = ctorSpecs; for (var _i = 0; _i < _c.length; _i++) { var spec = _c[_i]; (function() {
var cn = symbolName(first(spec));
var fieldNames = map(function(f) { return symbolName(f); }, rest(spec));
var arity = len(rest(spec));
envBind(env, cn, function() { var ctorArgs = Array.prototype.slice.call(arguments, 0); return (isSxTruthy(!isSxTruthy(sxEq(len(ctorArgs), arity))) ? error((String(cn) + String(": expected ") + String(arity) + String(" args, got ") + String(len(ctorArgs)))) : {"_ctor": cn, "_type": typeName, "_adt": true, "_fields": ctorArgs}); });
envBind(env, (String(cn) + String("?")), function(v) { return (isSxTruthy(isDict(v)) && isSxTruthy(get(v, "_adt")) && sxEq(get(v, "_ctor"), cn)); });
return forEachIndexed(function(idx, fieldName) { return envBind(env, (String(cn) + String("-") + String(fieldName)), function(v) { return nth(get(v, "_fields"), idx); }); }, fieldNames);
})(); } }
return NIL;
})();
})(); };
PRIMITIVES["sf-define-type"] = sfDefineType;
// sf-delay
var sfDelay = function(args, env) { return (function() {
var thunk = makeLambda([], first(args), env);
return {"forced": false, "value": NIL, "thunk": thunk, "_promise": true};
})(); };
PRIMITIVES["sf-delay"] = sfDelay;
// sf-delay-force
var sfDelayForce = function(args, env) { return (function() {
var thunk = makeLambda([], first(args), env);
return {"_iterative": true, "forced": false, "value": NIL, "thunk": thunk, "_promise": true};
})(); };
PRIMITIVES["sf-delay-force"] = sfDelayForce;
// promise?
var promise_p = function(v) { return (isSxTruthy(isDict(v)) && get(v, "_promise", false)); };
PRIMITIVES["promise?"] = promise_p;
// make-promise
var makePromise = function(v) { return {"forced": true, "value": v, "_promise": true}; };
PRIMITIVES["make-promise"] = makePromise;
// force
var force = function(p) { return (isSxTruthy(!isSxTruthy(promise_p(p))) ? p : (isSxTruthy(get(p, "forced", false)) ? get(p, "value", NIL) : (function() {
var result = apply(get(p, "thunk", NIL), []);
return (function() {
var final_ = (isSxTruthy((isSxTruthy(get(p, "_iterative", false)) && promise_p(result))) ? force(result) : result);
p["forced"] = true;
p["value"] = final_;
return final_;
})();
})())); };
PRIMITIVES["force"] = force;
// (register-special-form! ...)
registerSpecialForm("delay", sfDelay);
// (register-special-form! ...)
registerSpecialForm("delay-force", sfDelayForce);
// values
var values = function() { var vs = Array.prototype.slice.call(arguments, 0); return (isSxTruthy(sxEq(len(vs), 1)) ? first(vs) : {"_values": true, "_list": vs}); };
PRIMITIVES["values"] = values;
// (register-special-form! ...)
registerSpecialForm("define-type", sfDefineType);
// kont-extract-provides
var kontExtractProvides = function(kont) { return (isSxTruthy(isEmpty(kont)) ? [] : (function() {
var frame = first(kont);
var restFrames = kontExtractProvides(rest(kont));
return (isSxTruthy(sxEq(frameType(frame), "provide")) ? cons({"subscribers": [], "env": get(frame, "env"), "value": get(frame, "value"), "type": "provide", "remaining": [], "name": get(frame, "name")}, restFrames) : restFrames);
})()); };
PRIMITIVES["kont-extract-provides"] = kontExtractProvides;
// fire-provide-subscribers
var fireProvideSubscribers = function(frame, kont) { return (function() {
var subs = get(frame, "subscribers");
return (isSxTruthy(!isSxTruthy(isEmpty(subs))) ? (isSxTruthy((_provideBatchDepth_ > 0)) ? forEach(function(sub) { return (isSxTruthy(!isSxTruthy(contains(_provideBatchQueue_, sub))) ? append_b(_provideBatchQueue_, sub) : NIL); }, subs) : forEach(function(sub) { return cekCall(sub, [kont]); }, subs)) : NIL);
})(); };
PRIMITIVES["fire-provide-subscribers"] = fireProvideSubscribers;
// fire-provide-subscribers
var fireProvideSubscribers = function(name) { return (function() {
var subs = get(_provideSubscribers_, name);
return (isSxTruthy((isSxTruthy(subs) && !isSxTruthy(isEmpty(subs)))) ? (isSxTruthy((_provideBatchDepth_ > 0)) ? forEach(function(sub) { return (isSxTruthy(!isSxTruthy(contains(_provideBatchQueue_, sub))) ? append_b(_provideBatchQueue_, sub) : NIL); }, subs) : forEach(function(sub) { return cekCall(sub, [NIL]); }, subs)) : NIL);
})(); };
PRIMITIVES["fire-provide-subscribers"] = fireProvideSubscribers;
// batch-begin!
var batchBegin_b = function() { return (_provideBatchDepth_ = (_provideBatchDepth_ + 1)); };
PRIMITIVES["batch-begin!"] = batchBegin_b;
// batch-end!
var batchEnd_b = function() { _provideBatchDepth_ = (_provideBatchDepth_ - 1);
return (isSxTruthy(sxEq(_provideBatchDepth_, 0)) ? (function() {
var queue = _provideBatchQueue_;
_provideBatchQueue_ = [];
return forEach(function(sub) { return cekCall(sub, [NIL]); }, queue);
})() : NIL); };
PRIMITIVES["batch-end!"] = batchEnd_b;
// step-sf-bind
var stepSfBind = function(args, env, kont) { return (function() {
var body = first(args);
var prev = _bindTracking_;
_bindTracking_ = [];
return makeCekState(body, env, kontPush(makeBindFrame(body, env, prev), kont));
})(); };
PRIMITIVES["step-sf-bind"] = stepSfBind;
// step-sf-parameterize
var stepSfParameterize = function(args, env, kont) { return (function() {
var bindings = first(args);
var body = rest(args);
return (isSxTruthy(sxOr(isNil(bindings), isEmpty(bindings))) ? stepSfBegin(body, env, kont) : (function() {
var firstPair = first(bindings);
return makeCekState(first(firstPair), env, kontPush(makeParameterizeFrame(bindings, NIL, [], body, env), kont));
})());
})(); };
PRIMITIVES["step-sf-parameterize"] = stepSfParameterize;
// syntax-rules-match
var syntaxRulesMatch = function(pattern, form, literals) { return (isSxTruthy((isSxTruthy(symbol_p(pattern)) && sxEq(symbolName(pattern), "_"))) ? {} : (isSxTruthy((isSxTruthy(symbol_p(pattern)) && contains(literals, symbolName(pattern)))) ? (isSxTruthy((isSxTruthy(symbol_p(form)) && sxEq(symbolName(pattern), symbolName(form)))) ? {} : NIL) : (isSxTruthy(symbol_p(pattern)) ? (function() {
var d = {};
d[symbolName(pattern)] = form;
return d;
})() : (isSxTruthy((isSxTruthy(isList(pattern)) && isEmpty(pattern))) ? (isSxTruthy((isSxTruthy(isList(form)) && isEmpty(form))) ? {} : NIL) : (isSxTruthy((isSxTruthy(isList(pattern)) && isList(form))) ? syntaxRulesMatchList(pattern, 0, form, 0, literals) : (isSxTruthy(sxEq(pattern, form)) ? {} : NIL)))))); };
PRIMITIVES["syntax-rules-match"] = syntaxRulesMatch;
// syntax-rules-match-list
var syntaxRulesMatchList = function(pattern, pi, form, fi, literals) { return (function() {
var plen = len(pattern);
var flen = len(form);
return (isSxTruthy((isSxTruthy((pi >= plen)) && (fi >= flen))) ? {} : (isSxTruthy((pi >= plen)) ? NIL : (isSxTruthy((isSxTruthy(((pi + 1) < plen)) && isSxTruthy(symbol_p(nth(pattern, (pi + 1)))) && sxEq(symbolName(nth(pattern, (pi + 1))), "..."))) ? (function() {
var subPat = nth(pattern, pi);
var restPatCount = (plen - (pi + 2));
var available = (flen - fi);
var nEllipsis = ((flen - fi) - (plen - (pi + 2)));
return (isSxTruthy((nEllipsis < 0)) ? NIL : (function() {
var ellipsisForms = slice(form, fi, (fi + nEllipsis));
var subBindings = map(function(f) { return syntaxRulesMatch(subPat, f, literals); }, slice(form, fi, (fi + nEllipsis)));
return (isSxTruthy(contains(subBindings, NIL)) ? NIL : (function() {
var restResult = syntaxRulesMatchList(pattern, (pi + 2), form, (fi + nEllipsis), literals);
return (isSxTruthy(isNil(restResult)) ? NIL : (function() {
var merged = {};
{ var _c = subBindings; for (var _i = 0; _i < _c.length; _i++) { var b = _c[_i]; { var _c = keys(b); for (var _i = 0; _i < _c.length; _i++) { var key = _c[_i]; (function() {
var existing = dictGet(merged, key);
return (isSxTruthy(isNil(existing)) ? dictSet(merged, key, [get(b, key)]) : dictSet(merged, key, append(existing, [get(b, key)])));
})(); } } } }
{ var _c = keys(restResult); for (var _i = 0; _i < _c.length; _i++) { var key = _c[_i]; merged[key] = get(restResult, key); } }
return merged;
})());
})());
})());
})() : (isSxTruthy((fi >= flen)) ? NIL : (function() {
var subResult = syntaxRulesMatch(nth(pattern, pi), nth(form, fi), literals);
return (isSxTruthy(isNil(subResult)) ? NIL : (function() {
var restResult = syntaxRulesMatchList(pattern, (pi + 1), form, (fi + 1), literals);
return (isSxTruthy(isNil(restResult)) ? NIL : (forEach(function(key) { return dictSet(restResult, key, get(subResult, key)); }, keys(subResult)), restResult));
})());
})()))));
})(); };
PRIMITIVES["syntax-rules-match-list"] = syntaxRulesMatchList;
// syntax-rules-find-var
var syntaxRulesFindVar = function(template, bindings) { return (isSxTruthy((isSxTruthy(symbol_p(template)) && isSxTruthy(dictHas(bindings, symbolName(template))) && isList(get(bindings, symbolName(template))))) ? symbolName(template) : (isSxTruthy(isList(template)) ? reduce(function(found, t) { return (isSxTruthy(isNil(found)) ? syntaxRulesFindVar(t, bindings) : found); }, NIL, template) : NIL)); };
PRIMITIVES["syntax-rules-find-var"] = syntaxRulesFindVar;
// syntax-rules-find-all-vars
var syntaxRulesFindAllVars = function(template, bindings) { return (isSxTruthy((isSxTruthy(symbol_p(template)) && isSxTruthy(dictHas(bindings, symbolName(template))) && isList(get(bindings, symbolName(template))))) ? [symbolName(template)] : (isSxTruthy(isList(template)) ? reduce(function(acc, t) { return append(acc, syntaxRulesFindAllVars(t, bindings)); }, [], template) : [])); };
PRIMITIVES["syntax-rules-find-all-vars"] = syntaxRulesFindAllVars;
// syntax-rules-instantiate
var syntaxRulesInstantiate = function(template, bindings) { return (isSxTruthy((isSxTruthy(symbol_p(template)) && dictHas(bindings, symbolName(template)))) ? get(bindings, symbolName(template)) : (isSxTruthy(!isSxTruthy(isList(template))) ? template : (isSxTruthy(isEmpty(template)) ? template : syntaxRulesInstantiateList(template, 0, bindings)))); };
PRIMITIVES["syntax-rules-instantiate"] = syntaxRulesInstantiate;
// syntax-rules-instantiate-list
var syntaxRulesInstantiateList = function(template, i, bindings) { return (isSxTruthy((i >= len(template))) ? [] : (function() {
var elem = nth(template, i);
var hasEllipsis = (isSxTruthy(((i + 1) < len(template))) && isSxTruthy(symbol_p(nth(template, (i + 1)))) && sxEq(symbolName(nth(template, (i + 1))), "..."));
return (isSxTruthy(hasEllipsis) ? (function() {
var allVars = syntaxRulesFindAllVars(elem, bindings);
return (isSxTruthy(isEmpty(allVars)) ? syntaxRulesInstantiateList(template, (i + 2), bindings) : (function() {
var count = len(get(bindings, first(allVars)));
var expanded = map(function(idx) { return (function() {
var b = {};
{ var _c = keys(bindings); for (var _i = 0; _i < _c.length; _i++) { var key = _c[_i]; b[key] = get(bindings, key); } }
{ var _c = allVars; for (var _i = 0; _i < _c.length; _i++) { var varName = _c[_i]; b[varName] = nth(get(bindings, varName), idx); } }
return syntaxRulesInstantiate(elem, b);
})(); }, range(count));
var restResult = syntaxRulesInstantiateList(template, (i + 2), bindings);
return append(expanded, restResult);
})());
})() : cons(syntaxRulesInstantiate(elem, bindings), syntaxRulesInstantiateList(template, (i + 1), bindings)));
})()); };
PRIMITIVES["syntax-rules-instantiate-list"] = syntaxRulesInstantiateList;
// syntax-rules-expand
var syntaxRulesExpand = function(literals, rules, form) { return (function() {
var fullForm = cons(makeSymbol("_"), form);
return syntaxRulesTryRules(literals, rules, fullForm);
})(); };
PRIMITIVES["syntax-rules-expand"] = syntaxRulesExpand;
// syntax-rules-try-rules
var syntaxRulesTryRules = function(literals, rules, fullForm) { return (isSxTruthy(isEmpty(rules)) ? error((String("syntax-rules: no pattern matched for ") + String(inspect(fullForm)))) : (function() {
var rule = first(rules);
var pattern = first(rule);
var template = nth(rule, 1);
return (function() {
var bindings = syntaxRulesMatch(pattern, fullForm, literals);
return (isSxTruthy(!isSxTruthy(isNil(bindings))) ? syntaxRulesInstantiate(template, bindings) : syntaxRulesTryRules(literals, rest(rules), fullForm));
})();
})()); };
PRIMITIVES["syntax-rules-try-rules"] = syntaxRulesTryRules;
// sf-syntax-rules
var sfSyntaxRules = function(args, env) { return (function() {
var literals = (isSxTruthy(isList(first(args))) ? map(function(s) { return (isSxTruthy(symbol_p(s)) ? symbolName(s) : (String(s))); }, first(args)) : []);
var rules = rest(args);
return (function() {
var closure = envExtend(env);
envBind(closure, "__sr-literals", literals);
envBind(closure, "__sr-rules", rules);
return makeMacro([], "__sr-form", new Symbol("__syntax-rules-body__"), closure, "syntax-rules");
})();
})(); };
PRIMITIVES["sf-syntax-rules"] = sfSyntaxRules;
// step-sf-define-library
var stepSfDefineLibrary = function(args, env, kont) { return (function() {
var libSpec = first(args);
var decls = rest(args);
return (function() {
var libEnv = envExtend(env);
var exports = [];
var bodyForms = [];
{ var _c = decls; for (var _i = 0; _i < _c.length; _i++) { var decl = _c[_i]; if (isSxTruthy((isSxTruthy(isList(decl)) && isSxTruthy(!isSxTruthy(isEmpty(decl))) && symbol_p(first(decl))))) {
(function() {
var kind = symbolName(first(decl));
return (isSxTruthy(sxEq(kind, "export")) ? (exports = append(exports, map(function(s) { return (isSxTruthy(symbol_p(s)) ? symbolName(s) : (String(s))); }, rest(decl)))) : (isSxTruthy(sxEq(kind, "import")) ? forEach(function(importSet) { return bindImportSet(importSet, libEnv); }, rest(decl)) : (isSxTruthy(sxEq(kind, "begin")) ? (bodyForms = append(bodyForms, rest(decl))) : NIL)));
})();
} } }
{ var _c = bodyForms; for (var _i = 0; _i < _c.length; _i++) { var form = _c[_i]; evalExpr(form, libEnv); } }
return (function() {
var exportDict = {};
{ var _c = exports; for (var _i = 0; _i < _c.length; _i++) { var name = _c[_i]; if (isSxTruthy(envHas(libEnv, name))) {
exportDict[name] = envGet(libEnv, name);
} } }
registerLibrary(libSpec, exportDict);
return makeCekValue(NIL, env, kont);
})();
})();
})(); };
PRIMITIVES["step-sf-define-library"] = stepSfDefineLibrary;
// bind-import-set
var bindImportSet = function(importSet, env) { return (function() {
var head = (isSxTruthy((isSxTruthy(isList(importSet)) && isSxTruthy(!isSxTruthy(isEmpty(importSet))) && symbol_p(first(importSet)))) ? symbolName(first(importSet)) : NIL);
return (function() {
var libSpec = (isSxTruthy(sxOr(sxEq(head, "only"), sxEq(head, "except"), sxEq(head, "prefix"), sxEq(head, "rename"))) ? nth(importSet, 1) : importSet);
return (function() {
var exports = libraryExports(libSpec);
return (isSxTruthy(sxEq(head, "only")) ? forEach(function(s) { return (function() {
var id = (isSxTruthy(symbol_p(s)) ? symbolName(s) : (String(s)));
return (isSxTruthy(dictHas(exports, id)) ? envBind(env, id, get(exports, id)) : NIL);
})(); }, rest(rest(importSet))) : (isSxTruthy(sxEq(head, "prefix")) ? (function() {
var pfx = (String(nth(importSet, 2)));
return forEach(function(key) { return envBind(env, (String(pfx) + String(key)), get(exports, key)); }, keys(exports));
})() : forEach(function(key) { return envBind(env, key, get(exports, key)); }, keys(exports))));
})();
})();
})(); };
PRIMITIVES["bind-import-set"] = bindImportSet;
// step-sf-import
var stepSfImport = function(args, env, kont) { return (isSxTruthy(isEmpty(args)) ? makeCekValue(NIL, env, kont) : (function() {
var importSet = first(args);
var restSets = rest(args);
return (function() {
var libSpec = (function() {
var head = (isSxTruthy((isSxTruthy(isList(importSet)) && isSxTruthy(!isSxTruthy(isEmpty(importSet))) && symbol_p(first(importSet)))) ? symbolName(first(importSet)) : NIL);
return (isSxTruthy(sxOr(sxEq(head, "only"), sxEq(head, "except"), sxEq(head, "prefix"), sxEq(head, "rename"))) ? nth(importSet, 1) : importSet);
})();
return (isSxTruthy(libraryLoaded_p(libSpec)) ? (bindImportSet(importSet, env), (isSxTruthy(isEmpty(restSets)) ? makeCekValue(NIL, env, kont) : stepSfImport(restSets, env, kont))) : makeCekSuspended({"library": libSpec, "op": "import"}, env, kontPush(makeImportFrame(importSet, restSets, env), kont)));
})();
})()); };
PRIMITIVES["step-sf-import"] = stepSfImport;
// step-sf-perform
var stepSfPerform = function(args, env, kont) { return (isSxTruthy(isEmpty(args)) ? error("perform requires an IO request argument") : makeCekState(first(args), env, kontPush(makePerformFrame(env), kont))); };
PRIMITIVES["step-sf-perform"] = stepSfPerform;
// *protocol-registry*
var _protocolRegistry_ = {};
PRIMITIVES["*protocol-registry*"] = _protocolRegistry_;
// sf-define-record-type
var sfDefineRecordType = function(args, env) { return (function() {
var typeSym = first(args);
var ctorSpec = nth(args, 1);
var predSym = nth(args, 2);
var fieldSpecs = slice(args, 3);
return (function() {
var rawName = symbolName(typeSym);
return (function() {
var typeName = (isSxTruthy((isSxTruthy(startsWith(rawName, "<")) && endsWith(rawName, ">"))) ? slice(rawName, 1, (len(rawName) - 1)) : rawName);
var ctorName = symbolName(first(ctorSpec));
var ctorParams = map(function(s) { return symbolName(s); }, rest(ctorSpec));
var predName = symbolName(predSym);
var fieldNames = map(function(fs) { return symbolName(first(fs)); }, fieldSpecs);
return (function() {
var rtdUid = makeRtd(typeName, fieldNames, ctorParams);
envBind(env, ctorName, makeRecordConstructor(rtdUid));
envBind(env, predName, makeRecordPredicate(rtdUid));
forEachIndexed(function(idx, fs) { return (function() {
var accessorName = symbolName(nth(fs, 1));
envBind(env, accessorName, makeRecordAccessor(idx));
return (isSxTruthy((len(fs) >= 3)) ? (function() {
var mutatorName = symbolName(nth(fs, 2));
return envBind(env, mutatorName, makeRecordMutator(idx));
})() : NIL);
})(); }, fieldSpecs);
return NIL;
})();
})();
})();
})(); };
PRIMITIVES["sf-define-record-type"] = sfDefineRecordType;
// sf-define-protocol
var sfDefineProtocol = function(args, env) { return (function() {
var protoName = symbolName(first(args));
var methodSpecs = rest(args);
envBind(env, "*protocol-registry*", _protocolRegistry_);
envBind(env, "satisfies?", function(pname, val) { return satisfies_p(pname, val); });
_protocolRegistry_[protoName] = {"impls": {}, "methods": map(function(spec) { return {"arity": len(spec), "name": symbolName(first(spec))}; }, methodSpecs), "name": protoName};
{ var _c = methodSpecs; for (var _i = 0; _i < _c.length; _i++) { var spec = _c[_i]; (function() {
var methodName = symbolName(first(spec));
var params = rest(spec);
var pname = protoName;
return (function() {
var selfSym = first(params);
var lookupExpr = [new Symbol("get"), [new Symbol("get"), [new Symbol("get"), [new Symbol("get"), new Symbol("*protocol-registry*"), pname], "impls"], [new Symbol("type-of"), selfSym]], methodName];
return envBind(env, methodName, evalExpr([new Symbol("fn"), params, [new Symbol("let"), [[new Symbol("_impl"), lookupExpr]], [new Symbol("if"), [new Symbol("nil?"), new Symbol("_impl")], [new Symbol("error"), (String(pname) + String(".") + String(methodName) + String(": not implemented for this type"))], cons(new Symbol("_impl"), params)]]], env));
})();
})(); } }
return NIL;
})(); };
PRIMITIVES["sf-define-protocol"] = sfDefineProtocol;
// check-match-exhaustiveness
var checkMatchExhaustiveness = function(clauses) { return (function() {
var warnings = [];
var patterns = map(first, clauses);
var hasWildcard = some(function(p) { return sxOr(sxEq(p, new Symbol("_")), (isSxTruthy(symbol_p(p)) && isSxTruthy(!isSxTruthy(sxEq(p, true))) && !isSxTruthy(sxEq(p, false)))); }, patterns);
var hasElse = some(function(p) { return sxEq(p, "else"); }, patterns);
var hasTrue = some(function(p) { return sxEq(p, true); }, patterns);
var hasFalse = some(function(p) { return sxEq(p, false); }, patterns);
var hasNil = some(function(p) { return sxEq(p, NIL); }, patterns);
var hasPredicate = some(function(p) { return (isSxTruthy(isList(p)) && sxEq(first(p), new Symbol("?"))); }, patterns);
if (isSxTruthy((isSxTruthy(!isSxTruthy(hasWildcard)) && !isSxTruthy(hasElse)))) {
warnings = append(warnings, ["match may be non-exhaustive (no wildcard or :else pattern)"]);
}
if (isSxTruthy((isSxTruthy(sxOr(hasTrue, hasFalse)) && isSxTruthy(!isSxTruthy((isSxTruthy(hasTrue) && hasFalse))) && isSxTruthy(!isSxTruthy(hasWildcard)) && !isSxTruthy(hasElse)))) {
warnings = append(warnings, [(isSxTruthy(hasTrue) ? "match on boolean missing false case" : "match on boolean missing true case")]);
}
if (isSxTruthy((isSxTruthy(hasNil) && isSxTruthy(!isSxTruthy(hasWildcard)) && isSxTruthy(!isSxTruthy(hasElse)) && sxEq(len(patterns), 1)))) {
warnings = append(warnings, ["match checks nil but has no non-nil pattern"]);
}
return warnings;
})(); };
PRIMITIVES["check-match-exhaustiveness"] = checkMatchExhaustiveness;
// sf-implement
var sfImplement = function(args, env) { return (function() {
var protoName = symbolName(first(args));
var rawTypeName = symbolName(nth(args, 1));
var typeName = slice(rawTypeName, 1, (len(rawTypeName) - 1));
var methodDefs = rest(rest(args));
return (function() {
var proto = get(_protocolRegistry_, protoName);
return (isSxTruthy(isNil(proto)) ? error((String("Unknown protocol: ") + String(protoName))) : (function() {
var impls = get(proto, "impls");
var typeImpls = sxOr(get(impls, typeName), {});
{ var _c = methodDefs; for (var _i = 0; _i < _c.length; _i++) { var methodDef = _c[_i]; (function() {
var mname = symbolName(first(methodDef));
var protoMethod = first(filter(function(m) { return sxEq(get(m, "name"), mname); }, get(proto, "methods")));
return (isSxTruthy(isNil(protoMethod)) ? error((String("Unknown method ") + String(mname) + String(" in protocol ") + String(protoName))) : (function() {
var arity = get(protoMethod, "arity");
var params = slice(methodDef, 1, arity);
var body = (isSxTruthy(sxEq(len(methodDef), (arity + 1))) ? nth(methodDef, arity) : cons(new Symbol("begin"), slice(methodDef, arity)));
return dictSet(typeImpls, mname, evalExpr([new Symbol("fn"), params, body], env));
})());
})(); } }
impls[typeName] = typeImpls;
return NIL;
})());
})();
})(); };
PRIMITIVES["sf-implement"] = sfImplement;
// satisfies?
var satisfies_p = function(protoName, value) { return (isSxTruthy(!isSxTruthy(record_p(value))) ? false : (function() {
var proto = get(_protocolRegistry_, (isSxTruthy(symbol_p(protoName)) ? symbolName(protoName) : protoName));
return (isSxTruthy(isNil(proto)) ? false : !isSxTruthy(isNil(get(get(proto, "impls"), typeOf(value)))));
})()); };
PRIMITIVES["satisfies?"] = satisfies_p;
// check-match-exhaustiveness
var checkMatchExhaustiveness = function(clauses) { return (function() {
var warnings = [];
var patterns = map(function(c) { return first(c); }, clauses);
var hasWildcard = some(function(p) { return (isSxTruthy(symbol_p(p)) && isSxTruthy(!isSxTruthy(sxEq(p, true))) && !isSxTruthy(sxEq(p, false))); }, patterns);
var hasElse = some(function(p) { return sxEq(p, "else"); }, patterns);
var hasTrue = some(function(p) { return sxEq(p, true); }, patterns);
var hasFalse = some(function(p) { return sxEq(p, false); }, patterns);
if (isSxTruthy((isSxTruthy(!isSxTruthy(hasWildcard)) && !isSxTruthy(hasElse)))) {
warnings = append(warnings, ["match may be non-exhaustive (no wildcard or :else pattern)"]);
}
if (isSxTruthy((isSxTruthy(sxOr(hasTrue, hasFalse)) && isSxTruthy(!isSxTruthy((isSxTruthy(hasTrue) && hasFalse))) && isSxTruthy(!isSxTruthy(hasWildcard)) && !isSxTruthy(hasElse)))) {
warnings = append(warnings, [(isSxTruthy(hasTrue) ? "match on boolean missing false case" : "match on boolean missing true case")]);
}
return warnings;
})(); };
PRIMITIVES["check-match-exhaustiveness"] = checkMatchExhaustiveness;
// match-find-clause
var matchFindClause = function(val, clauses, env) { return (isSxTruthy(isEmpty(clauses)) ? NIL : (function() {
var clause = first(clauses);
var pattern = first(clause);
var body = nth(clause, 1);
var local = envExtend(env);
return (isSxTruthy(matchPattern(pattern, val, local)) ? [local, body] : matchFindClause(val, rest(clauses), env));
})()); };
PRIMITIVES["match-find-clause"] = matchFindClause;
// match-pattern
var matchPattern = function(pattern, value, env) { return (isSxTruthy(sxEq(pattern, new Symbol("_"))) ? true : (isSxTruthy((isSxTruthy(isList(pattern)) && isSxTruthy(sxEq(len(pattern), 2)) && sxEq(first(pattern), new Symbol("?")))) ? (function() {
var pred = evalExpr(nth(pattern, 1), env);
return cekCall(pred, [value]);
})() : (isSxTruthy((isSxTruthy(isList(pattern)) && isSxTruthy(!isSxTruthy(isEmpty(pattern))) && sxEq(first(pattern), new Symbol("quote")))) ? sxEq(value, nth(pattern, 1)) : (isSxTruthy(symbol_p(pattern)) ? (envBind(env, symbolName(pattern), value), true) : (isSxTruthy((isSxTruthy(isList(pattern)) && isSxTruthy(!isSxTruthy(isEmpty(pattern))) && isSxTruthy(symbol_p(first(pattern))) && isSxTruthy(isDict(value)) && get(value, "_adt"))) ? (function() {
var ctorName = symbolName(first(pattern));
var fieldPatterns = rest(pattern);
var fields = get(value, "_fields");
return (isSxTruthy(sxEq(get(value, "_ctor"), ctorName)) && isSxTruthy(sxEq(len(fieldPatterns), len(fields))) && isEvery(function(pair) { return matchPattern(first(pair), nth(pair, 1), env); }, zip(fieldPatterns, fields)));
})() : (isSxTruthy((isSxTruthy(isDict(pattern)) && isDict(value))) ? isEvery(function(k) { return matchPattern(get(pattern, k), get(value, k), env); }, keys(pattern)) : (isSxTruthy((isSxTruthy(isList(pattern)) && isSxTruthy(isList(value)) && contains(pattern, new Symbol("&rest")))) ? (function() {
var restIdx = indexOf_(pattern, new Symbol("&rest"));
return (isSxTruthy((len(value) >= restIdx)) && isSxTruthy(isEvery(function(pair) { return matchPattern(first(pair), nth(pair, 1), env); }, zip(slice(pattern, 0, restIdx), slice(value, 0, restIdx)))) && (function() {
var restName = nth(pattern, (restIdx + 1));
envBind(env, symbolName(restName), slice(value, restIdx));
return true;
})());
})() : (isSxTruthy((isSxTruthy(isList(pattern)) && isList(value))) ? (isSxTruthy(!isSxTruthy(sxEq(len(pattern), len(value)))) ? false : (function() {
var pairs = zip(pattern, value);
return isEvery(function(pair) { return matchPattern(first(pair), nth(pair, 1), env); }, pairs);
})()) : sxEq(pattern, value))))))))); };
PRIMITIVES["match-pattern"] = matchPattern;
// step-sf-match
var stepSfMatch = function(args, env, kont) { return (function() {
var val = trampoline(evalExpr(first(args), env));
var clauses = rest(args);
return (function() {
var result = matchFindClause(val, clauses, env);
return (isSxTruthy(isNil(result)) ? makeCekValue((String("match: no clause matched ") + String(inspect(val))), env, kontPush(makeRaiseEvalFrame(env, false), kont)) : makeCekState(nth(result, 1), first(result), kont));
})();
})(); };
PRIMITIVES["step-sf-match"] = stepSfMatch;
// step-sf-handler-bind
var stepSfHandlerBind = function(args, env, kont) { return (function() {
var handlerSpecs = first(args);
var body = rest(args);
var handlers = map(function(spec) { return [trampoline(evalExpr(first(spec), env)), trampoline(evalExpr(nth(spec, 1), env))]; }, handlerSpecs);
return (isSxTruthy(isEmpty(body)) ? makeCekValue(NIL, env, kont) : makeCekState(first(body), env, kontPush(makeHandlerFrame(handlers, rest(body), env), kont)));
})(); };
PRIMITIVES["step-sf-handler-bind"] = stepSfHandlerBind;
// step-sf-restart-case
var stepSfRestartCase = function(args, env, kont) { return (function() {
var body = first(args);
var restartSpecs = rest(args);
var restarts = map(function(spec) { return [(isSxTruthy(symbol_p(first(spec))) ? symbolName(first(spec)) : first(spec)), nth(spec, 1), nth(spec, 2)]; }, restartSpecs);
return makeCekState(body, env, kontPush(makeRestartFrame(restarts, [], env), kont));
})(); };
PRIMITIVES["step-sf-restart-case"] = stepSfRestartCase;
// step-sf-signal
var stepSfSignal = function(args, env, kont) { return (function() {
var condition = trampoline(evalExpr(first(args), env));
var handlerFn = kontFindHandler(kont, condition);
return (isSxTruthy(isNil(handlerFn)) ? error((String("Unhandled condition: ") + String(inspect(condition)))) : continueWithCall(handlerFn, [condition], env, [condition], kontPush(makeSignalReturnFrame(env, kont), kont)));
})(); };
PRIMITIVES["step-sf-signal"] = stepSfSignal;
// step-sf-invoke-restart
var stepSfInvokeRestart = function(args, env, kont) { return (function() {
var restartName = (function() {
var rn = (isSxTruthy(symbol_p(first(args))) ? symbolName(first(args)) : trampoline(evalExpr(first(args), env)));
return (isSxTruthy(symbol_p(rn)) ? symbolName(rn) : rn);
})();
var restartArg = (isSxTruthy((len(args) >= 2)) ? trampoline(evalExpr(nth(args, 1), env)) : NIL);
var found = kontFindRestart(kont, restartName);
return (isSxTruthy(isNil(found)) ? error((String("No restart named: ") + String(inspect(restartName)))) : (function() {
var entry = first(found);
var restartFrame = nth(found, 1);
var restKont = nth(found, 2);
return (function() {
var params = nth(entry, 1);
var body = nth(entry, 2);
var restartEnv = envExtend(get(restartFrame, "env"));
if (isSxTruthy(!isSxTruthy(isEmpty(params)))) {
envBind(restartEnv, first(params), restartArg);
}
return makeCekState(body, restartEnv, restKont);
})();
})());
})(); };
PRIMITIVES["step-sf-invoke-restart"] = stepSfInvokeRestart;
// step-sf-if
var stepSfIf = function(args, env, kont) { return makeCekState(first(args), env, kontPush(makeIfFrame(nth(args, 1), (isSxTruthy((len(args) > 2)) ? nth(args, 2) : NIL), env), kont)); };
PRIMITIVES["step-sf-if"] = stepSfIf;
// step-sf-when
var stepSfWhen = function(args, env, kont) { return makeCekState(first(args), env, kontPush(makeWhenFrame(rest(args), env), kont)); };
PRIMITIVES["step-sf-when"] = stepSfWhen;
// step-sf-begin
var stepSfBegin = function(args, env, kont) { return (isSxTruthy(isEmpty(args)) ? makeCekValue(NIL, env, kont) : (isSxTruthy(sxEq(len(args), 1)) ? makeCekState(first(args), env, kont) : makeCekState(first(args), env, kontPush(makeBeginFrame(rest(args), env), kont)))); };
PRIMITIVES["step-sf-begin"] = stepSfBegin;
// step-sf-let
var stepSfLet = function(args, env, kont) { return (isSxTruthy(sxEq(typeOf(first(args)), "symbol")) ? makeCekValue(sfNamedLet(args, env), env, kont) : (function() {
var bindings = first(args);
var body = rest(args);
var local = envExtend(env);
return (isSxTruthy(isEmpty(bindings)) ? stepSfBegin(body, local, kont) : (function() {
var firstBinding = (isSxTruthy((isSxTruthy(sxEq(typeOf(first(bindings)), "list")) && sxEq(len(first(bindings)), 2))) ? first(bindings) : [first(bindings), nth(bindings, 1)]);
var restBindings = (isSxTruthy((isSxTruthy(sxEq(typeOf(first(bindings)), "list")) && sxEq(len(first(bindings)), 2))) ? rest(bindings) : (function() {
var pairs = [];
reduce(function(acc, i) { return append_b(pairs, [nth(bindings, (i * 2)), nth(bindings, ((i * 2) + 1))]); }, NIL, range(1, (len(bindings) / 2)));
return pairs;
})());
return (function() {
var vname = (isSxTruthy(sxEq(typeOf(first(firstBinding)), "symbol")) ? symbolName(first(firstBinding)) : first(firstBinding));
return makeCekState(nth(firstBinding, 1), local, kontPush(makeLetFrame(vname, restBindings, body, local), kont));
})();
})());
})()); };
PRIMITIVES["step-sf-let"] = stepSfLet;
// step-sf-define
var stepSfDefine = function(args, env, kont) { return (function() {
var resolvedArgs = (isSxTruthy(sxEq(typeOf(first(args)), "list")) ? (function() {
var fnName = first(first(args));
var params = rest(first(args));
var bodyParts = rest(args);
return [fnName, concat([makeSymbol("fn")], [params], bodyParts)];
})() : args);
return (function() {
var nameSym = first(resolvedArgs);
var hasEffects = (isSxTruthy((len(resolvedArgs) >= 4)) && isSxTruthy(sxEq(typeOf(nth(resolvedArgs, 1)), "keyword")) && sxEq(keywordName(nth(resolvedArgs, 1)), "effects"));
var valIdx = (isSxTruthy((isSxTruthy((len(resolvedArgs) >= 4)) && isSxTruthy(sxEq(typeOf(nth(resolvedArgs, 1)), "keyword")) && sxEq(keywordName(nth(resolvedArgs, 1)), "effects"))) ? 3 : 1);
var effectList = (isSxTruthy((isSxTruthy((len(resolvedArgs) >= 4)) && isSxTruthy(sxEq(typeOf(nth(resolvedArgs, 1)), "keyword")) && sxEq(keywordName(nth(resolvedArgs, 1)), "effects"))) ? nth(resolvedArgs, 2) : NIL);
return makeCekState(nth(resolvedArgs, valIdx), env, kontPush(makeDefineFrame(symbolName(nameSym), env, hasEffects, effectList), kont));
})();
})(); };
PRIMITIVES["step-sf-define"] = stepSfDefine;
// step-sf-set!
var stepSfSet = function(args, env, kont) { return makeCekState(nth(args, 1), env, kontPush(makeSetFrame(symbolName(first(args)), env), kont)); };
PRIMITIVES["step-sf-set!"] = stepSfSet;
// step-sf-and
var stepSfAnd = function(args, env, kont) { return (isSxTruthy(isEmpty(args)) ? makeCekValue(true, env, kont) : makeCekState(first(args), env, kontPush(makeAndFrame(rest(args), env), kont))); };
PRIMITIVES["step-sf-and"] = stepSfAnd;
// step-sf-or
var stepSfOr = function(args, env, kont) { return (isSxTruthy(isEmpty(args)) ? makeCekValue(false, env, kont) : makeCekState(first(args), env, kontPush(makeOrFrame(rest(args), env), kont))); };
PRIMITIVES["step-sf-or"] = stepSfOr;
// step-sf-cond
var stepSfCond = function(args, env, kont) { return (function() {
var scheme_p = condScheme_p(args);
return (isSxTruthy(scheme_p) ? (isSxTruthy(isEmpty(args)) ? makeCekValue(NIL, env, kont) : (function() {
var clause = first(args);
var test = first(clause);
return (isSxTruthy(isElseClause(test)) ? makeCekState(nth(clause, 1), env, kont) : makeCekState(test, env, kontPush(makeCondFrame(args, env, true), kont)));
})()) : (isSxTruthy((len(args) < 2)) ? makeCekValue(NIL, env, kont) : (function() {
var test = first(args);
return (isSxTruthy(isElseClause(test)) ? makeCekState(nth(args, 1), env, kont) : makeCekState(test, env, kontPush(makeCondFrame(args, env, false), kont)));
})()));
})(); };
PRIMITIVES["step-sf-cond"] = stepSfCond;
// step-sf-thread-first
var stepSfThreadFirst = function(args, env, kont) { return makeCekState(first(args), env, kontPush(makeThreadFrame(rest(args), env, "first", NIL), kont)); };
PRIMITIVES["step-sf-thread-first"] = stepSfThreadFirst;
// step-sf-thread-last
var stepSfThreadLast = function(args, env, kont) { return makeCekState(first(args), env, kontPush(makeThreadFrame(rest(args), env, "last", NIL), kont)); };
PRIMITIVES["step-sf-thread-last"] = stepSfThreadLast;
// step-sf-thread-as
var stepSfThreadAs = function(args, env, kont) { return (function() {
var init = first(args);
var name = nth(args, 1);
var forms = rest(rest(args));
return makeCekState(init, env, kontPush(makeThreadFrame(forms, env, "as", name), kont));
})(); };
PRIMITIVES["step-sf-thread-as"] = stepSfThreadAs;
// step-sf-lambda
var stepSfLambda = function(args, env, kont) { return makeCekValue(sfLambda(args, env), env, kont); };
PRIMITIVES["step-sf-lambda"] = stepSfLambda;
// step-sf-scope
var stepSfScope = function(args, env, kont) { return (function() {
var name = trampoline(evalExpr(first(args), env));
var restArgs = slice(args, 1);
var val = NIL;
var body = NIL;
(isSxTruthy((isSxTruthy((len(restArgs) >= 2)) && isSxTruthy(sxEq(typeOf(first(restArgs)), "keyword")) && sxEq(keywordName(first(restArgs)), "value"))) ? ((val = trampoline(evalExpr(nth(restArgs, 1), env))), (body = slice(restArgs, 2))) : (body = restArgs));
return (isSxTruthy(isEmpty(body)) ? makeCekValue(NIL, env, kont) : makeCekState(first(body), env, kontPush(makeScopeAccFrame(name, val, rest(body), env), kont)));
})(); };
PRIMITIVES["step-sf-scope"] = stepSfScope;
// step-sf-provide
var stepSfProvide = function(args, env, kont) { return (function() {
var name = trampoline(evalExpr(first(args), env));
var val = trampoline(evalExpr(nth(args, 1), env));
var body = slice(args, 2);
scopePush(name, val);
return (isSxTruthy(isEmpty(body)) ? (scopePop(name), makeCekValue(NIL, env, kont)) : makeCekState(first(body), env, kontPush(makeProvideFrame(name, val, rest(body), env), kont)));
})(); };
PRIMITIVES["step-sf-provide"] = stepSfProvide;
// step-sf-context
var stepSfContext = function(args, env, kont) { return (function() {
var name = trampoline(evalExpr(first(args), env));
var defaultVal = (isSxTruthy((len(args) >= 2)) ? trampoline(evalExpr(nth(args, 1), env)) : NIL);
var frame = kontFindProvide(kont, name);
if (isSxTruthy(_bindTracking_)) {
if (isSxTruthy(!isSxTruthy(contains(_bindTracking_, name)))) {
_bindTracking_.push(name);
}
}
return makeCekValue((function() {
var sv = scopePeek(name);
return (isSxTruthy(isNil(sv)) ? (isSxTruthy(frame) ? get(frame, "value") : defaultVal) : sv);
})(), env, kont);
})(); };
PRIMITIVES["step-sf-context"] = stepSfContext;
// step-sf-peek
var stepSfPeek = function(args, env, kont) { return (function() {
var name = trampoline(evalExpr(first(args), env));
var defaultVal = (isSxTruthy((len(args) >= 2)) ? trampoline(evalExpr(nth(args, 1), env)) : NIL);
var frame = kontFindProvide(kont, name);
return makeCekValue((isSxTruthy(frame) ? get(frame, "value") : (isSxTruthy(envHas(env, "peek")) ? apply(envGet(env, "peek"), [name, defaultVal]) : defaultVal)), env, kont);
})(); };
PRIMITIVES["step-sf-peek"] = stepSfPeek;
// step-sf-provide!
var stepSfProvide_b = function(args, env, kont) { return (function() {
var name = trampoline(evalExpr(first(args), env));
return makeCekState(nth(args, 1), env, kontPush(makeProvideSetFrame(name, env), kont));
})(); };
PRIMITIVES["step-sf-provide!"] = stepSfProvide_b;
// step-sf-emit
var stepSfEmit = function(args, env, kont) { return (function() {
var name = trampoline(evalExpr(first(args), env));
var val = trampoline(evalExpr(nth(args, 1), env));
var frame = kontFindScopeAcc(kont, name);
return (isSxTruthy(frame) ? (dictSet(frame, "emitted", append(get(frame, "emitted"), [val])), makeCekValue(NIL, env, kont)) : ((isSxTruthy(envHas(env, "scope-emit!")) ? apply(envGet(env, "scope-emit!"), [name, val]) : NIL), makeCekValue(NIL, env, kont)));
})(); };
PRIMITIVES["step-sf-emit"] = stepSfEmit;
// step-sf-emitted
var stepSfEmitted = function(args, env, kont) { return (function() {
var name = trampoline(evalExpr(first(args), env));
var frame = kontFindScopeAcc(kont, name);
return makeCekValue((isSxTruthy(frame) ? get(frame, "emitted") : (isSxTruthy(envHas(env, "emitted")) ? apply(envGet(env, "emitted"), [name]) : [])), env, kont);
})(); };
PRIMITIVES["step-sf-emitted"] = stepSfEmitted;
// step-sf-reset
var stepSfReset = function(args, env, kont) { return makeCekState(first(args), env, kontPush(makeResetFrame(env), kont)); };
PRIMITIVES["step-sf-reset"] = stepSfReset;
// step-sf-shift
var stepSfShift = function(args, env, kont) { return (function() {
var kName = symbolName(first(args));
var body = nth(args, 1);
var capturedResult = kontCaptureToReset(kont);
var captured = first(capturedResult);
var restKont = nth(capturedResult, 1);
return (function() {
var k = makeCekContinuation(captured, restKont);
return (function() {
var shiftEnv = envExtend(env);
envBind(shiftEnv, kName, k);
return makeCekState(body, shiftEnv, restKont);
})();
})();
})(); };
PRIMITIVES["step-sf-shift"] = stepSfShift;
// step-sf-deref
var stepSfDeref = function(args, env, kont) { return makeCekState(first(args), env, kontPush(makeDerefFrame(env), kont)); };
PRIMITIVES["step-sf-deref"] = stepSfDeref;
// cek-call
var cekCall = function(f, args) { return (function() {
var a = (isSxTruthy(isNil(args)) ? [] : args);
return (isSxTruthy(isNil(f)) ? NIL : (isSxTruthy(sxOr(isLambda(f), isCallable(f))) ? cekRun(continueWithCall(f, a, makeEnv(), a, [])) : NIL));
})(); };
PRIMITIVES["cek-call"] = cekCall;
// reactive-shift-deref
var reactiveShiftDeref = function(sig, env, kont) { return (function() {
var scanResult = kontCaptureToReactiveReset(kont);
var capturedFrames = first(scanResult);
var resetFrame = nth(scanResult, 1);
var remainingKont = nth(scanResult, 2);
var updateFn = get(resetFrame, "update-fn");
return (function() {
var subDisposers = [];
return (function() {
var subscriber = function() { { var _c = subDisposers; for (var _i = 0; _i < _c.length; _i++) { var d = _c[_i]; cekCall(d, NIL); } }
subDisposers = [];
return (function() {
var newReset = makeReactiveResetFrame(env, updateFn, false);
var newKont = concat(capturedFrames, [newReset], remainingKont);
return withIslandScope(function(d) { return append_b(subDisposers, d); }, function() { return cekRun(makeCekValue(signalValue(sig), env, newKont)); });
})(); };
signalAddSub(sig, subscriber);
registerInScope(function() { signalRemoveSub(sig, subscriber);
return forEach(function(d) { return cekCall(d, NIL); }, subDisposers); });
return (function() {
var initialKont = concat(capturedFrames, [resetFrame], remainingKont);
return makeCekValue(signalValue(sig), env, initialKont);
})();
})();
})();
})(); };
PRIMITIVES["reactive-shift-deref"] = reactiveShiftDeref;
// step-eval-call
var stepEvalCall = function(head, args, env, kont) { return (function() {
var hname = (isSxTruthy(sxEq(typeOf(head), "symbol")) ? symbolName(head) : NIL);
return makeCekState(head, env, kontPush(makeArgFrame(NIL, [], args, env, args, hname), kont));
})(); };
PRIMITIVES["step-eval-call"] = stepEvalCall;
// ho-form-name?
var hoFormName_p = function(name) { return sxOr(sxEq(name, "map"), sxEq(name, "map-indexed"), sxEq(name, "filter"), sxEq(name, "reduce"), sxEq(name, "some"), sxEq(name, "every?"), sxEq(name, "for-each")); };
PRIMITIVES["ho-form-name?"] = hoFormName_p;
// ho-fn?
var hoFn_p = function(v) { return sxOr(isCallable(v), isLambda(v)); };
PRIMITIVES["ho-fn?"] = hoFn_p;
// ho-swap-args
var hoSwapArgs = function(hoType, evaled) { return (isSxTruthy(sxEq(hoType, "reduce")) ? (function() {
var a = first(evaled);
var b = nth(evaled, 1);
return (isSxTruthy((isSxTruthy(!isSxTruthy(hoFn_p(a))) && hoFn_p(b))) ? [b, nth(evaled, 2), a] : evaled);
})() : (function() {
var a = first(evaled);
var b = nth(evaled, 1);
return (isSxTruthy((isSxTruthy(!isSxTruthy(hoFn_p(a))) && hoFn_p(b))) ? [b, a] : evaled);
})()); };
PRIMITIVES["ho-swap-args"] = hoSwapArgs;
// seq-to-list
var seqToList = function(x) { return (isSxTruthy(sxEq(x, NIL)) ? [] : (isSxTruthy(isList(x)) ? x : (isSxTruthy(isVector(x)) ? vectorToList(x) : (isSxTruthy(isString(x)) ? (function() {
var n = len(x);
var loop = function(i, acc) { return (isSxTruthy((i < 0)) ? acc : loop((i - 1), cons(slice(x, i, (i + 1)), acc))); };
PRIMITIVES["loop"] = loop;
return loop((n - 1), []);
})() : x)))); };
PRIMITIVES["seq-to-list"] = seqToList;
// ho-setup-dispatch
var hoSetupDispatch = function(hoType, evaled, env, kont) { return (function() {
var ordered = hoSwapArgs(hoType, evaled);
return (function() {
var f = first(ordered);
return (function() { var _m = hoType; if (_m == "map") return (isSxTruthy((len(ordered) > 2)) ? (function() {
var colls = rest(ordered);
return (isSxTruthy(some(function(c) { return isEmpty(c); }, colls)) ? makeCekValue([], env, kont) : (function() {
var heads = map(function(c) { return first(c); }, colls);
var tails = map(function(c) { return rest(c); }, colls);
return continueWithCall(f, heads, env, [], kontPush(makeMultiMapFrame(f, tails, [], env), kont));
})());
})() : (function() {
var coll = seqToList(nth(ordered, 1));
return (isSxTruthy(isEmpty(coll)) ? makeCekValue([], env, kont) : continueWithCall(f, [first(coll)], env, [], kontPush(makeMapFrame(f, rest(coll), [], env), kont)));
})()); if (_m == "map-indexed") return (function() {
var coll = seqToList(nth(ordered, 1));
return (isSxTruthy(isEmpty(coll)) ? makeCekValue([], env, kont) : continueWithCall(f, [0, first(coll)], env, [], kontPush(makeMapIndexedFrame(f, rest(coll), [], env), kont)));
})(); if (_m == "filter") return (function() {
var coll = seqToList(nth(ordered, 1));
return (isSxTruthy(isEmpty(coll)) ? makeCekValue([], env, kont) : continueWithCall(f, [first(coll)], env, [], kontPush(makeFilterFrame(f, rest(coll), [], first(coll), env), kont)));
})(); if (_m == "reduce") return (function() {
var init = nth(ordered, 1);
var coll = seqToList(nth(ordered, 2));
return (isSxTruthy(isEmpty(coll)) ? makeCekValue(init, env, kont) : continueWithCall(f, [init, first(coll)], env, [], kontPush(makeReduceFrame(f, rest(coll), env), kont)));
})(); if (_m == "some") return (function() {
var coll = seqToList(nth(ordered, 1));
return (isSxTruthy(isEmpty(coll)) ? makeCekValue(false, env, kont) : continueWithCall(f, [first(coll)], env, [], kontPush(makeSomeFrame(f, rest(coll), env), kont)));
})(); if (_m == "every") return (function() {
var coll = seqToList(nth(ordered, 1));
return (isSxTruthy(isEmpty(coll)) ? makeCekValue(true, env, kont) : continueWithCall(f, [first(coll)], env, [], kontPush(makeEveryFrame(f, rest(coll), env), kont)));
})(); if (_m == "for-each") return (function() {
var coll = seqToList(nth(ordered, 1));
return (isSxTruthy(isEmpty(coll)) ? makeCekValue(NIL, env, kont) : continueWithCall(f, [first(coll)], env, [], kontPush(makeForEachFrame(f, rest(coll), env), kont)));
})(); return error((String("Unknown HO type: ") + String(hoType))); })();
})();
})(); };
PRIMITIVES["ho-setup-dispatch"] = hoSetupDispatch;
// sequence-to-list
var sequenceToList = function(s) { return seqToList(s); };
PRIMITIVES["sequence-to-list"] = sequenceToList;
// sequence-to-vector
var sequenceToVector = function(s) { return listToVector(seqToList(s)); };
PRIMITIVES["sequence-to-vector"] = sequenceToVector;
// sequence-length
var sequenceLength = function(s) { return (isSxTruthy(sxEq(s, NIL)) ? 0 : (isSxTruthy(isList(s)) ? len(s) : (isSxTruthy(isVector(s)) ? vectorLength(s) : (isSxTruthy(isString(s)) ? len(s) : len(seqToList(s)))))); };
PRIMITIVES["sequence-length"] = sequenceLength;
// sequence-ref
var sequenceRef = function(s, i) { return (isSxTruthy(sxOr(sxEq(s, NIL), isList(s))) ? nth(s, i) : (isSxTruthy(isVector(s)) ? vectorRef(s, i) : (isSxTruthy(isString(s)) ? slice(s, i, (i + 1)) : nth(seqToList(s), i)))); };
PRIMITIVES["sequence-ref"] = sequenceRef;
// sequence-append
var sequenceAppend = function(s1, s2) { return (isSxTruthy((isSxTruthy(isVector(s1)) && isVector(s2))) ? listToVector(concat(vectorToList(s1), vectorToList(s2))) : (isSxTruthy((isSxTruthy(isString(s1)) && isString(s2))) ? (String(s1) + String(s2)) : concat(seqToList(s1), seqToList(s2)))); };
PRIMITIVES["sequence-append"] = sequenceAppend;
// build-range
var buildRange = function(i, end, step, acc) { return (isSxTruthy((isSxTruthy((step > 0)) ? (i >= end) : (i <= end))) ? reverse(acc) : buildRange((i + step), end, step, cons(i, acc))); };
PRIMITIVES["build-range"] = buildRange;
// in-range
var inRange = function(a) { var rest = Array.prototype.slice.call(arguments, 1); return (function() {
var end = (isSxTruthy(isEmpty(rest)) ? a : first(rest));
var step = (isSxTruthy((len(rest) >= 2)) ? nth(rest, 1) : 1);
var realStart = (isSxTruthy(isEmpty(rest)) ? 0 : a);
return (isSxTruthy(sxEq(step, 0)) ? error("in-range: step cannot be zero") : buildRange(realStart, end, step, []));
})(); };
PRIMITIVES["in-range"] = inRange;
// step-ho-map
var stepHoMap = function(args, env, kont) { return makeCekState(first(args), env, kontPush(makeHoSetupFrame("map", rest(args), [], env), kont)); };
PRIMITIVES["step-ho-map"] = stepHoMap;
// step-ho-map-indexed
var stepHoMapIndexed = function(args, env, kont) { return makeCekState(first(args), env, kontPush(makeHoSetupFrame("map-indexed", rest(args), [], env), kont)); };
PRIMITIVES["step-ho-map-indexed"] = stepHoMapIndexed;
// step-ho-filter
var stepHoFilter = function(args, env, kont) { return makeCekState(first(args), env, kontPush(makeHoSetupFrame("filter", rest(args), [], env), kont)); };
PRIMITIVES["step-ho-filter"] = stepHoFilter;
// step-ho-reduce
var stepHoReduce = function(args, env, kont) { return makeCekState(first(args), env, kontPush(makeHoSetupFrame("reduce", rest(args), [], env), kont)); };
PRIMITIVES["step-ho-reduce"] = stepHoReduce;
// step-ho-some
var stepHoSome = function(args, env, kont) { return makeCekState(first(args), env, kontPush(makeHoSetupFrame("some", rest(args), [], env), kont)); };
PRIMITIVES["step-ho-some"] = stepHoSome;
// step-ho-every
var stepHoEvery = function(args, env, kont) { return makeCekState(first(args), env, kontPush(makeHoSetupFrame("every", rest(args), [], env), kont)); };
PRIMITIVES["step-ho-every"] = stepHoEvery;
// step-ho-for-each
var stepHoForEach = function(args, env, kont) { return makeCekState(first(args), env, kontPush(makeHoSetupFrame("for-each", rest(args), [], env), kont)); };
PRIMITIVES["step-ho-for-each"] = stepHoForEach;
// step-continue
var stepContinue = function(state) { return (function() {
var value = cekValue(state);
var env = cekEnv(state);
var kont = cekKont(state);
return (isSxTruthy(kontEmpty_p(kont)) ? state : (function() {
var frame = kontTop(kont);
var restK = kontPop(kont);
var ft = frameType(frame);
return (function() { var _m = ft; if (_m == "if") return (isSxTruthy((isSxTruthy(value) && !isSxTruthy(isNil(value)))) ? makeCekState(get(frame, "then"), get(frame, "env"), restK) : (isSxTruthy(isNil(get(frame, "else"))) ? makeCekValue(NIL, env, restK) : makeCekState(get(frame, "else"), get(frame, "env"), restK))); if (_m == "when") return (isSxTruthy((isSxTruthy(value) && !isSxTruthy(isNil(value)))) ? (function() {
var body = get(frame, "body");
var fenv = get(frame, "env");
return (isSxTruthy(isEmpty(body)) ? makeCekValue(NIL, fenv, restK) : (isSxTruthy(sxEq(len(body), 1)) ? makeCekState(first(body), fenv, restK) : makeCekState(first(body), fenv, kontPush(makeBeginFrame(rest(body), fenv), restK))));
})() : makeCekValue(NIL, env, restK)); if (_m == "begin") return (function() {
var remaining = get(frame, "remaining");
var fenv = get(frame, "env");
return (isSxTruthy(isEmpty(remaining)) ? makeCekValue(value, fenv, restK) : (isSxTruthy(sxEq(len(remaining), 1)) ? makeCekState(first(remaining), fenv, restK) : makeCekState(first(remaining), fenv, kontPush(makeBeginFrame(rest(remaining), fenv), restK))));
})(); if (_m == "let") return (function() {
var name = get(frame, "name");
var remaining = get(frame, "remaining");
var body = get(frame, "body");
var local = get(frame, "env");
envBind(local, name, value);
return (isSxTruthy(isEmpty(remaining)) ? stepSfBegin(body, local, restK) : (function() {
var nextBinding = first(remaining);
var vname = (isSxTruthy(sxEq(typeOf(first(nextBinding)), "symbol")) ? symbolName(first(nextBinding)) : first(nextBinding));
return makeCekState(nth(nextBinding, 1), local, kontPush(makeLetFrame(vname, rest(remaining), body, local), restK));
})());
})(); if (_m == "define") return (function() {
var name = get(frame, "name");
var fenv = get(frame, "env");
var hasEffects = get(frame, "has-effects");
var effectList = get(frame, "effect-list");
if (isSxTruthy((isSxTruthy(isLambda(value)) && isNil(lambdaName(value))))) {
value.name = name;
}
envBind(fenv, name, value);
if (isSxTruthy(hasEffects)) {
(function() {
var effectNames = map(function(e) { return (isSxTruthy(sxEq(typeOf(e), "symbol")) ? symbolName(e) : e); }, effectList);
var effectAnns = (isSxTruthy(envHas(fenv, "*effect-annotations*")) ? envGet(fenv, "*effect-annotations*") : {});
effectAnns[name] = effectNames;
return envBind(fenv, "*effect-annotations*", effectAnns);
})();
}
return makeCekValue(value, fenv, restK);
})(); if (_m == "define-foreign") return (function() {
var name = get(frame, "name");
var fenv = get(frame, "env");
if (isSxTruthy((isSxTruthy(isLambda(value)) && isNil(lambdaName(value))))) {
value.name = name;
}
envBind(fenv, name, value);
return makeCekValue(value, fenv, restK);
})(); if (_m == "set") return (function() {
var name = get(frame, "name");
var fenv = get(frame, "env");
envSet(fenv, name, value);
return makeCekValue(value, env, restK);
})(); if (_m == "and") return (isSxTruthy(!isSxTruthy(value)) ? makeCekValue(value, env, restK) : (function() {
var remaining = get(frame, "remaining");
return (isSxTruthy(isEmpty(remaining)) ? makeCekValue(value, env, restK) : makeCekState(first(remaining), get(frame, "env"), (isSxTruthy(sxEq(len(remaining), 1)) ? restK : kontPush(makeAndFrame(rest(remaining), get(frame, "env")), restK))));
})()); if (_m == "or") return (isSxTruthy(value) ? makeCekValue(value, env, restK) : (function() {
var remaining = get(frame, "remaining");
return (isSxTruthy(isEmpty(remaining)) ? makeCekValue(false, env, restK) : makeCekState(first(remaining), get(frame, "env"), (isSxTruthy(sxEq(len(remaining), 1)) ? restK : kontPush(makeOrFrame(rest(remaining), get(frame, "env")), restK))));
})()); if (_m == "cond") return (function() {
var remaining = get(frame, "remaining");
var fenv = get(frame, "env");
var scheme_p = get(frame, "scheme");
return (isSxTruthy(scheme_p) ? (isSxTruthy(value) ? (function() {
var clause = first(remaining);
return (isSxTruthy((isSxTruthy((len(clause) > 2)) && isSxTruthy(sxEq(typeOf(nth(clause, 1)), "symbol")) && sxEq(symbolName(nth(clause, 1)), "=>"))) ? makeCekState(nth(clause, 2), fenv, kontPush(makeCondArrowFrame(value, fenv), restK)) : makeCekState(nth(clause, 1), fenv, restK));
})() : (function() {
var nextClauses = rest(remaining);
return (isSxTruthy(isEmpty(nextClauses)) ? makeCekValue(NIL, fenv, restK) : (function() {
var nextClause = first(nextClauses);
var nextTest = first(nextClause);
return (isSxTruthy(isElseClause(nextTest)) ? makeCekState(nth(nextClause, 1), fenv, restK) : makeCekState(nextTest, fenv, kontPush(makeCondFrame(nextClauses, fenv, true), restK)));
})());
})()) : (isSxTruthy(value) ? makeCekState(nth(remaining, 1), fenv, restK) : (function() {
var next = slice(remaining, 2, len(remaining));
return (isSxTruthy((len(next) < 2)) ? makeCekValue(NIL, fenv, restK) : (function() {
var nextTest = first(next);
return (isSxTruthy(isElseClause(nextTest)) ? makeCekState(nth(next, 1), fenv, restK) : makeCekState(nextTest, fenv, kontPush(makeCondFrame(next, fenv, false), restK)));
})());
})()));
})(); if (_m == "case") return (function() {
var matchVal = get(frame, "match-val");
var remaining = get(frame, "remaining");
var fenv = get(frame, "env");
return (isSxTruthy(isNil(matchVal)) ? sfCaseStepLoop(value, remaining, fenv, restK) : sfCaseStepLoop(matchVal, remaining, fenv, restK));
})(); if (_m == "thread") return (function() {
var remaining = get(frame, "remaining");
var fenv = get(frame, "env");
var mode = get(frame, "extra");
var bindName = get(frame, "name");
return (isSxTruthy(isEmpty(remaining)) ? makeCekValue(value, fenv, restK) : (function() {
var form = first(remaining);
var restForms = rest(remaining);
var newKont = (isSxTruthy(isEmpty(rest(remaining))) ? restK : kontPush(makeThreadFrame(rest(remaining), fenv, mode, bindName), restK));
return (isSxTruthy(sxEq(mode, "as")) ? (function() {
var newEnv = envExtend(fenv);
envBind(newEnv, symbolName(bindName), value);
return makeCekState(form, newEnv, newKont);
})() : (isSxTruthy((isSxTruthy(sxEq(typeOf(form), "list")) && isSxTruthy(!isSxTruthy(isEmpty(form))) && isSxTruthy(sxEq(typeOf(first(form)), "symbol")) && hoFormName_p(symbolName(first(form))))) ? makeCekState(cons(first(form), cons([new Symbol("quote"), value], rest(form))), fenv, newKont) : (isSxTruthy(sxEq(mode, "last")) ? (function() {
var result = threadInsertArgLast(form, value, fenv);
return (isSxTruthy(isEmpty(restForms)) ? makeCekValue(result, fenv, restK) : makeCekValue(result, fenv, kontPush(makeThreadFrame(restForms, fenv, mode, bindName), restK)));
})() : (function() {
var result = threadInsertArg(form, value, fenv);
return (isSxTruthy(isEmpty(restForms)) ? makeCekValue(result, fenv, restK) : makeCekValue(result, fenv, kontPush(makeThreadFrame(restForms, fenv, mode, bindName), restK)));
})())));
})());
})(); if (_m == "arg") return (function() {
var f = get(frame, "f");
var evaled = get(frame, "evaled");
var remaining = get(frame, "remaining");
var fenv = get(frame, "env");
var rawArgs = get(frame, "raw-args");
var hname = get(frame, "head-name");
return (isSxTruthy(isNil(f)) ? ((isSxTruthy((isSxTruthy(_strict_) && hname)) ? strictCheckArgs(hname, []) : NIL), (isSxTruthy(isEmpty(remaining)) ? continueWithCall(value, [], fenv, rawArgs, restK) : makeCekState(first(remaining), fenv, kontPush(makeArgFrame(value, [], rest(remaining), fenv, rawArgs, hname), restK)))) : (function() {
var newEvaled = append(evaled, [value]);
return (isSxTruthy(isEmpty(remaining)) ? ((isSxTruthy((isSxTruthy(_strict_) && hname)) ? strictCheckArgs(hname, newEvaled) : NIL), continueWithCall(f, newEvaled, fenv, rawArgs, restK)) : makeCekState(first(remaining), fenv, kontPush(makeArgFrame(f, newEvaled, rest(remaining), fenv, rawArgs, hname), restK)));
})());
})(); if (_m == "dict") return (function() {
var remaining = get(frame, "remaining");
var results = get(frame, "results");
var fenv = get(frame, "env");
return (function() {
var lastResult = last(results);
var completed = append(slice(results, 0, (len(results) - 1)), [[first(lastResult), value]]);
return (isSxTruthy(isEmpty(remaining)) ? (function() {
var d = {};
{ var _c = completed; for (var _i = 0; _i < _c.length; _i++) { var pair = _c[_i]; d[first(pair)] = nth(pair, 1); } }
return makeCekValue(d, fenv, restK);
})() : (function() {
var nextEntry = first(remaining);
return makeCekState(nth(nextEntry, 1), fenv, kontPush(makeDictFrame(rest(remaining), append(completed, [[first(nextEntry)]]), fenv), restK));
})());
})();
})(); if (_m == "ho-setup") return (function() {
var hoType = get(frame, "ho-type");
var remaining = get(frame, "remaining");
var evaled = append(get(frame, "evaled"), [value]);
var fenv = get(frame, "env");
return (isSxTruthy(isEmpty(remaining)) ? hoSetupDispatch(hoType, evaled, fenv, restK) : makeCekState(first(remaining), fenv, kontPush(makeHoSetupFrame(hoType, rest(remaining), evaled, fenv), restK)));
})(); if (_m == "reset") return makeCekValue(value, env, restK); if (_m == "deref") return (function() {
var val = value;
var fenv = get(frame, "env");
return (isSxTruthy(!isSxTruthy(isSignal(val))) ? makeCekValue(val, fenv, restK) : (isSxTruthy(hasReactiveResetFrame_p(restK)) ? reactiveShiftDeref(val, fenv, restK) : ((function() {
var ctx = sxContext("sx-reactive", NIL);
return (isSxTruthy(ctx) ? (function() {
var depList = get(ctx, "deps");
var notifyFn = get(ctx, "notify");
return (isSxTruthy(!isSxTruthy(contains(depList, val))) ? (append_b(depList, val), signalAddSub(val, notifyFn)) : NIL);
})() : NIL);
})(), makeCekValue(signalValue(val), fenv, restK))));
})(); if (_m == "reactive-reset") return (function() {
var updateFn = get(frame, "update-fn");
var first_p = get(frame, "first-render");
if (isSxTruthy((isSxTruthy(updateFn) && !isSxTruthy(first_p)))) {
cekCall(updateFn, [value]);
}
return makeCekValue(value, env, restK);
})(); if (_m == "scope") return (function() {
var name = get(frame, "name");
var remaining = get(frame, "remaining");
var fenv = get(frame, "env");
return (isSxTruthy(isEmpty(remaining)) ? (scopePop(name), makeCekValue(value, fenv, restK)) : makeCekState(first(remaining), fenv, kontPush(makeScopeFrame(name, rest(remaining), fenv), restK)));
})(); if (_m == "provide") return (function() {
var remaining = get(frame, "remaining");
var fenv = get(frame, "env");
return (isSxTruthy(isEmpty(remaining)) ? (scopePop(get(frame, "name")), makeCekValue(value, fenv, restK)) : (function() {
var newFrame = makeProvideFrame(get(frame, "name"), get(frame, "value"), rest(remaining), fenv);
newFrame["subscribers"] = get(frame, "subscribers");
return makeCekState(first(remaining), fenv, kontPush(newFrame, restK));
})());
})(); if (_m == "bind") return (function() {
var tracked = _bindTracking_;
var body = get(frame, "body");
var fenv = get(frame, "env");
var prev = get(frame, "prev-tracking");
_bindTracking_ = prev;
(function() {
var subscriber = function(fireKont) { return cekRun(makeCekState(body, fenv, [])); };
return forEach(function(name) { return (function() {
var existing = get(_provideSubscribers_, name);
return dictSet(_provideSubscribers_, name, append((isSxTruthy(existing) ? existing : []), [subscriber]));
})(); }, tracked);
})();
return makeCekValue(value, fenv, restK);
})(); if (_m == "provide-set") return (function() {
var name = get(frame, "name");
var fenv = get(frame, "env");
var target = kontFindProvide(restK, name);
return (function() {
var oldVal = (isSxTruthy(target) ? get(target, "value") : scopePeek(name));
if (isSxTruthy(target)) {
target["value"] = value;
}
scopePop(name);
scopePush(name, value);
if (isSxTruthy(!isSxTruthy(sxEq(oldVal, value)))) {
fireProvideSubscribers(name);
}
return makeCekValue(value, fenv, restK);
})();
})(); if (_m == "scope-acc") return (function() {
var remaining = get(frame, "remaining");
var fenv = get(frame, "env");
return (isSxTruthy(isEmpty(remaining)) ? makeCekValue(value, fenv, restK) : makeCekState(first(remaining), fenv, kontPush((function() {
var newFrame = makeScopeAccFrame(get(frame, "name"), get(frame, "value"), rest(remaining), fenv);
newFrame["emitted"] = get(frame, "emitted");
return newFrame;
})(), restK)));
})(); if (_m == "map") return (function() {
var f = get(frame, "f");
var remaining = get(frame, "remaining");
var results = get(frame, "results");
var indexed = get(frame, "indexed");
var fenv = get(frame, "env");
return (function() {
var newResults = append(results, [value]);
return (isSxTruthy(isEmpty(remaining)) ? makeCekValue(newResults, fenv, restK) : (function() {
var callArgs = (isSxTruthy(indexed) ? [len(newResults), first(remaining)] : [first(remaining)]);
var nextFrame = (isSxTruthy(indexed) ? makeMapIndexedFrame(f, rest(remaining), newResults, fenv) : makeMapFrame(f, rest(remaining), newResults, fenv));
return continueWithCall(f, callArgs, fenv, [], kontPush(nextFrame, restK));
})());
})();
})(); if (_m == "filter") return (function() {
var f = get(frame, "f");
var remaining = get(frame, "remaining");
var results = get(frame, "results");
var currentItem = get(frame, "current-item");
var fenv = get(frame, "env");
return (function() {
var newResults = (isSxTruthy(value) ? append(results, [currentItem]) : results);
return (isSxTruthy(isEmpty(remaining)) ? makeCekValue(newResults, fenv, restK) : continueWithCall(f, [first(remaining)], fenv, [], kontPush(makeFilterFrame(f, rest(remaining), newResults, first(remaining), fenv), restK)));
})();
})(); if (_m == "reduce") return (function() {
var f = get(frame, "f");
var remaining = get(frame, "remaining");
var fenv = get(frame, "env");
return (isSxTruthy(isEmpty(remaining)) ? makeCekValue(value, fenv, restK) : continueWithCall(f, [value, first(remaining)], fenv, [], kontPush(makeReduceFrame(f, rest(remaining), fenv), restK)));
})(); if (_m == "for-each") return (function() {
var f = get(frame, "f");
var remaining = get(frame, "remaining");
var fenv = get(frame, "env");
return (isSxTruthy(isEmpty(remaining)) ? makeCekValue(NIL, fenv, restK) : continueWithCall(f, [first(remaining)], fenv, [], kontPush(makeForEachFrame(f, rest(remaining), fenv), restK)));
})(); if (_m == "some") return (function() {
var f = get(frame, "f");
var remaining = get(frame, "remaining");
var fenv = get(frame, "env");
return (isSxTruthy(value) ? makeCekValue(value, fenv, restK) : (isSxTruthy(isEmpty(remaining)) ? makeCekValue(false, fenv, restK) : continueWithCall(f, [first(remaining)], fenv, [], kontPush(makeSomeFrame(f, rest(remaining), fenv), restK))));
})(); if (_m == "every") return (function() {
var f = get(frame, "f");
var remaining = get(frame, "remaining");
var fenv = get(frame, "env");
return (isSxTruthy(!isSxTruthy(value)) ? makeCekValue(false, fenv, restK) : (isSxTruthy(isEmpty(remaining)) ? makeCekValue(true, fenv, restK) : continueWithCall(f, [first(remaining)], fenv, [], kontPush(makeEveryFrame(f, rest(remaining), fenv), restK))));
})(); if (_m == "handler") return (function() {
var remaining = get(frame, "remaining");
var fenv = get(frame, "env");
return (isSxTruthy(isEmpty(remaining)) ? makeCekValue(value, fenv, restK) : makeCekState(first(remaining), fenv, kontPush(makeHandlerFrame(get(frame, "f"), rest(remaining), fenv), restK)));
})(); if (_m == "restart") return makeCekValue(value, env, restK); if (_m == "signal-return") return (function() {
var savedKont = get(frame, "saved-kont");
return makeCekValue(value, get(frame, "env"), savedKont);
})(); if (_m == "comp-trace") return makeCekValue(value, env, restK); if (_m == "cond-arrow") return (function() {
var testValue = get(frame, "match-val");
var fenv = get(frame, "env");
return continueWithCall(value, [testValue], fenv, [testValue], restK);
})(); if (_m == "wind-after") return (function() {
var afterThunk = get(frame, "after-thunk");
var windersLen = get(frame, "winders-len");
var bodyResult = value;
var fenv = get(frame, "env");
return ((isSxTruthy((len(_winders_) > windersLen)) ? (_winders_ = rest(_winders_)) : NIL), continueWithCall(afterThunk, [], fenv, [], kontPush(makeWindReturnFrame(bodyResult, fenv), restK)));
})(); if (_m == "wind-return") return makeCekValue(get(frame, "body-result"), get(frame, "env"), restK); if (_m == "raise-eval") return (function() {
var condition = value;
var fenv = get(frame, "env");
var continuable_p = get(frame, "scheme");
var unwindResult = kontUnwindToHandler(restK, condition);
var handlerFn = get(unwindResult, "handler");
var unwoundK = get(unwindResult, "kont");
return (isSxTruthy(isNil(handlerFn)) ? ((_lastErrorKont_ = unwoundK), hostError((String("Unhandled exception: ") + String(inspect(condition))))) : continueWithCall(handlerFn, [condition], fenv, [condition], (isSxTruthy(continuable_p) ? kontPush(makeSignalReturnFrame(fenv, unwoundK), unwoundK) : kontPush(makeRaiseGuardFrame(fenv, unwoundK), unwoundK))));
})(); if (_m == "raise-guard") return ((_lastErrorKont_ = restK), hostError("exception handler returned from non-continuable raise")); if (_m == "multi-map") return (function() {
var f = get(frame, "f");
var remaining = get(frame, "remaining");
var newResults = append(get(frame, "results"), [value]);
var fenv = get(frame, "env");
return (isSxTruthy(some(function(c) { return isEmpty(c); }, remaining)) ? makeCekValue(newResults, fenv, restK) : (function() {
var heads = map(function(c) { return first(c); }, remaining);
var tails = map(function(c) { return rest(c); }, remaining);
return continueWithCall(f, heads, fenv, [], kontPush(makeMultiMapFrame(f, tails, newResults, fenv), restK));
})());
})(); if (_m == "callcc") return (function() {
var k = makeCallccContinuation(restK, len(_winders_));
return continueWithCall(value, [k], get(frame, "env"), [k], restK);
})(); if (_m == "vm-resume") return (function() {
var resumeFn = get(frame, "f");
return (function() {
var result = apply(resumeFn, [value]);
return (isSxTruthy((isSxTruthy(isDict(result)) && get(result, "__vm_suspended"))) ? makeCekSuspended(get(result, "request"), get(frame, "env"), kontPush(makeVmResumeFrame(get(result, "resume"), get(frame, "env")), restK)) : makeCekValue(result, get(frame, "env"), restK));
})();
})(); if (_m == "perform") return makeCekSuspended(value, get(frame, "env"), restK); if (_m == "import") return (function() {
var importSet = get(frame, "args");
var remainingSets = get(frame, "remaining");
var fenv = get(frame, "env");
return (bindImportSet(importSet, fenv), (isSxTruthy(isEmpty(remainingSets)) ? makeCekValue(NIL, fenv, restK) : stepSfImport(remainingSets, fenv, restK)));
})(); if (_m == "parameterize") return (function() {
var remaining = get(frame, "remaining");
var currentParam = get(frame, "f");
var results = get(frame, "results");
var body = get(frame, "body");
var fenv = get(frame, "env");
return (isSxTruthy(isNil(currentParam)) ? (function() {
var paramObj = value;
var valExpr = nth(first(remaining), 1);
return makeCekState(valExpr, fenv, kontPush(makeParameterizeFrame(remaining, paramObj, results, body, fenv), restK));
})() : (function() {
var convertedVal = value;
var newResults = append(results, [[parameterUid(currentParam), convertedVal]]);
var restBindings = rest(remaining);
return (isSxTruthy(isEmpty(restBindings)) ? (function() {
var bodyExpr = (isSxTruthy(sxEq(len(body), 1)) ? first(body) : cons(new Symbol("begin"), body));
var provideKont = kontPushProvides(newResults, fenv, restK);
return makeCekState(bodyExpr, fenv, provideKont);
})() : makeCekState(first(first(restBindings)), fenv, kontPush(makeParameterizeFrame(restBindings, NIL, newResults, body, fenv), restK)));
})());
})(); return ((_lastErrorKont_ = restK), error((String("Unknown frame type: ") + String(ft)))); })();
})());
})(); };
PRIMITIVES["step-continue"] = stepContinue;
// continue-with-call
var continueWithCall = function(f, args, env, rawArgs, kont) { return (isSxTruthy(parameter_p(f)) ? (function() {
var uid = parameterUid(f);
var frame = kontFindProvide(kont, uid);
return makeCekValue((isSxTruthy(frame) ? get(frame, "value") : parameterDefault(f)), env, kont);
})() : (isSxTruthy(callccContinuation_p(f)) ? (function() {
var arg = (isSxTruthy(isEmpty(args)) ? NIL : first(args));
var captured = callccContinuationData(f);
var wLen = callccContinuationWindersLen(f);
return (windEscapeTo(wLen), makeCekValue(arg, env, captured));
})() : (isSxTruthy(continuation_p(f)) ? (function() {
var arg = (isSxTruthy(isEmpty(args)) ? NIL : first(args));
var contData = continuationData(f);
return (function() {
var captured = get(contData, "captured");
return (function() {
var result = cekRun(makeCekValue(arg, env, captured));
return makeCekValue(result, env, kont);
})();
})();
})() : (isSxTruthy((isSxTruthy(isCallable(f)) && isSxTruthy(!isSxTruthy(isLambda(f))) && isSxTruthy(!isSxTruthy(isComponent(f))) && !isSxTruthy(isIsland(f)))) ? (function() {
var result = sxApplyCek(f, args);
return (isSxTruthy(evalError_p(result)) ? makeCekValue(get(result, "message"), env, kontPush(makeRaiseEvalFrame(env, false), kont)) : (isSxTruthy((isSxTruthy(isDict(result)) && get(result, "__vm_suspended"))) ? makeCekSuspended(get(result, "request"), env, kontPush(makeVmResumeFrame(get(result, "resume"), env), kont)) : makeCekValue(result, env, kont)));
})() : (isSxTruthy(isLambda(f)) ? (function() {
var params = lambdaParams(f);
var local = envMerge(lambdaClosure(f), env);
if (isSxTruthy(!isSxTruthy(bindLambdaParams(params, args, local)))) {
if (isSxTruthy((len(args) > len(params)))) {
error((String(sxOr(lambdaName(f), "lambda")) + String(" expects ") + String(len(params)) + String(" args, got ") + String(len(args))));
}
{ var _c = zip(params, args); for (var _i = 0; _i < _c.length; _i++) { var pair = _c[_i]; envBind(local, first(pair), nth(pair, 1)); } }
{ var _c = slice(params, len(args)); for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; envBind(local, p, NIL); } }
}
return (function() {
var jitResult = jitTryCall(f, args);
return (isSxTruthy(jitSkip_p(jitResult)) ? makeCekState(lambdaBody(f), local, kont) : (isSxTruthy((isSxTruthy(isDict(jitResult)) && get(jitResult, "__vm_suspended"))) ? makeCekSuspended(get(jitResult, "request"), env, kontPush(makeVmResumeFrame(get(jitResult, "resume"), env), kont)) : makeCekValue(jitResult, local, kont)));
})();
})() : (isSxTruthy(sxOr(isComponent(f), isIsland(f))) ? (function() {
var parsed = parseKeywordArgs(rawArgs, env);
var kwargs = first(parsed);
var children = nth(parsed, 1);
var local = envMerge(componentClosure(f), env);
{ var _c = componentParams(f); for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; envBind(local, p, sxOr(dictGet(kwargs, p), NIL)); } }
if (isSxTruthy(componentHasChildren(f))) {
envBind(local, "children", children);
}
return makeCekState(componentBody(f), local, kontPush(makeCompTraceFrame(componentName(f), componentFile(f)), kont));
})() : error((String("Not callable: ") + String(inspect(f)))))))))); };
PRIMITIVES["continue-with-call"] = continueWithCall;
// sf-case-step-loop
var sfCaseStepLoop = function(matchVal, clauses, env, kont) { return (isSxTruthy((len(clauses) < 2)) ? makeCekValue(NIL, env, kont) : (function() {
var test = first(clauses);
var body = nth(clauses, 1);
return (isSxTruthy(isElseClause(test)) ? makeCekState(body, env, kont) : (function() {
var testVal = trampoline(evalExpr(test, env));
return (isSxTruthy(sxEq(matchVal, testVal)) ? makeCekState(body, env, kont) : sfCaseStepLoop(matchVal, slice(clauses, 2), env, kont));
})());
})()); };
PRIMITIVES["sf-case-step-loop"] = sfCaseStepLoop;
// eval-expr-cek
var evalExprCek = function(expr, env) { return cekRun(makeCekState(expr, env, [])); };
PRIMITIVES["eval-expr-cek"] = evalExprCek;
// trampoline-cek
var trampolineCek = function(val) { return (isSxTruthy(isThunk(val)) ? evalExprCek(thunkExpr(val), thunkEnv(val)) : val); };
PRIMITIVES["trampoline-cek"] = trampolineCek;
// make-coroutine
var makeCoroutine = function(thunk) { return {"suspension": NIL, "thunk": thunk, "type": "coroutine", "state": "ready"}; };
PRIMITIVES["make-coroutine"] = makeCoroutine;
// eval-expr
var evalExpr = function(expr, env) { return cekRun(makeCekState(expr, env, [])); };
PRIMITIVES["eval-expr"] = evalExpr;
// trampoline
var trampoline = function(val) { return (isSxTruthy(isThunk(val)) ? evalExpr(thunkExpr(val), thunkEnv(val)) : val); };
PRIMITIVES["trampoline"] = trampoline;
// *gensym-counter*
var _gensymCounter_ = 0;
PRIMITIVES["*gensym-counter*"] = _gensymCounter_;
// gensym
var gensym = function() { var args = Array.prototype.slice.call(arguments, 0); return (function() {
var prefix = (isSxTruthy(isEmpty(args)) ? "g" : (String(first(args))));
return ((_gensymCounter_ = (_gensymCounter_ + 1)), makeSymbol((String(prefix) + String(_gensymCounter_))));
})(); };
PRIMITIVES["gensym"] = gensym;
// string->symbol
var stringToSymbol = function(s) { return makeSymbol(s); };
PRIMITIVES["string->symbol"] = stringToSymbol;
// symbol->string
var symbolToString = function(sym) { return symbolName(sym); };
PRIMITIVES["symbol->string"] = symbolToString;
// intern
var intern = function(s) { return makeSymbol(s); };
PRIMITIVES["intern"] = intern;
// symbol-interned?
var symbolInterned_p = function(sym) { return true; };
PRIMITIVES["symbol-interned?"] = symbolInterned_p;
// integer->char
var integerToChar = makeChar;
PRIMITIVES["integer->char"] = integerToChar;
// === Transpiled from freeze (serializable state boundaries) ===
// === Transpiled from content (content-addressed computation) ===
// === Transpiled from render (core) ===
// === Transpiled from web-forms (defstyle, deftype, defeffect, defrelation) ===
// parse-key-params
var parseKeyParams = function(paramsExpr) { return (function() {
var params = [];
{ var _c = paramsExpr; for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; if (isSxTruthy(sxEq(typeOf(p), "symbol"))) {
(function() {
var name = symbolName(p);
return (isSxTruthy(!isSxTruthy(sxEq(name, "&key"))) ? append_b(params, name) : NIL);
})();
} } }
return params;
})(); };
PRIMITIVES["parse-key-params"] = parseKeyParams;
// parse-handler-args
var parseHandlerArgs = function(args) { return (function() {
var opts = {};
var params = [];
var body = NIL;
var i = 0;
var n = len(args);
var done = false;
{ var _c = range(0, n); for (var _i = 0; _i < _c.length; _i++) { var idx = _c[_i]; if (isSxTruthy((isSxTruthy(!isSxTruthy(done)) && sxEq(idx, i)))) {
(function() {
var arg = nth(args, idx);
return (isSxTruthy(sxEq(typeOf(arg), "keyword")) ? ((isSxTruthy(((idx + 1) < n)) ? (function() {
var val = nth(args, (idx + 1));
return dictSet(opts, keywordName(arg), (isSxTruthy(sxEq(typeOf(val), "keyword")) ? keywordName(val) : val));
})() : NIL), (i = (idx + 2))) : (isSxTruthy(sxEq(typeOf(arg), "list")) ? ((params = parseKeyParams(arg)), (isSxTruthy(((idx + 1) < n)) ? (body = nth(args, (idx + 1))) : NIL), (done = true)) : ((body = arg), (done = true))));
})();
} } }
return {["opts"]: opts, ["params"]: params, ["body"]: body};
})(); };
PRIMITIVES["parse-handler-args"] = parseHandlerArgs;
// (register-special-form! ...)
registerSpecialForm("defhandler", function(args, env) { return (function() {
var nameSym = first(args);
var name = symbolName(first(args));
var parsed = parseHandlerArgs(rest(args));
var opts = get(parsed, "opts");
var params = get(parsed, "params");
var body = get(parsed, "body");
return (function() {
var hdef = {["__type"]: "handler", ["name"]: name, ["params"]: params, ["body"]: body, ["closure"]: env, ["path"]: sxOr(get(opts, "path"), NIL), ["method"]: sxOr(get(opts, "method"), "get"), ["csrf"]: (function() {
var v = get(opts, "csrf");
return (isSxTruthy(isNil(v)) ? true : v);
})(), ["returns"]: sxOr(get(opts, "returns"), "element")};
envBind(env, (String("handler:") + String(name)), hdef);
return hdef;
})();
})(); });
// (register-special-form! ...)
registerSpecialForm("defquery", function(args, env) { return (function() {
var name = symbolName(first(args));
var paramsRaw = nth(args, 1);
var params = parseKeyParams(paramsRaw);
var hasDoc = (isSxTruthy((len(args) >= 4)) && sxEq(typeOf(nth(args, 2)), "string"));
var doc = (isSxTruthy(hasDoc) ? nth(args, 2) : "");
var body = (isSxTruthy(hasDoc) ? nth(args, 3) : nth(args, 2));
return (function() {
var qdef = {["__type"]: "query", ["name"]: name, ["params"]: params, ["doc"]: doc, ["body"]: body, ["closure"]: env};
envBind(env, (String("query:") + String(name)), qdef);
return qdef;
})();
})(); });
// (register-special-form! ...)
registerSpecialForm("defaction", function(args, env) { return (function() {
var name = symbolName(first(args));
var paramsRaw = nth(args, 1);
var params = parseKeyParams(paramsRaw);
var hasDoc = (isSxTruthy((len(args) >= 4)) && sxEq(typeOf(nth(args, 2)), "string"));
var doc = (isSxTruthy(hasDoc) ? nth(args, 2) : "");
var body = (isSxTruthy(hasDoc) ? nth(args, 3) : nth(args, 2));
return (function() {
var adef = {["__type"]: "action", ["name"]: name, ["params"]: params, ["doc"]: doc, ["body"]: body, ["closure"]: env};
envBind(env, (String("action:") + String(name)), adef);
return adef;
})();
})(); });
// (register-special-form! ...)
registerSpecialForm("defpage", function(args, env) { return (function() {
var name = symbolName(first(args));
var slots = {};
var n = len(args);
{ var _c = range(0, ((n - 1) / 2)); for (var _i = 0; _i < _c.length; _i++) { var idx = _c[_i]; (function() {
var kIdx = (1 + (idx * 2));
var vIdx = (2 + (idx * 2));
return (isSxTruthy((isSxTruthy((kIdx < n)) && isSxTruthy((vIdx < n)) && sxEq(typeOf(nth(args, kIdx)), "keyword"))) ? dictSet(slots, keywordName(nth(args, kIdx)), nth(args, vIdx)) : NIL);
})(); } }
return (function() {
var pdef = {["__type"]: "page", ["name"]: name, ["path"]: sxOr(get(slots, "path"), ""), ["auth"]: sxOr(get(slots, "auth"), "public"), ["layout"]: get(slots, "layout"), ["data"]: get(slots, "data"), ["content"]: get(slots, "content"), ["filter"]: get(slots, "filter"), ["aside"]: get(slots, "aside"), ["menu"]: get(slots, "menu"), ["stream"]: get(slots, "stream"), ["fallback"]: get(slots, "fallback"), ["shell"]: get(slots, "shell"), ["closure"]: env};
envBind(env, (String("page:") + String(name)), pdef);
return pdef;
})();
})(); });
// (register-special-form! ...)
registerSpecialForm("defrelation", function(args, env) { return (function() {
var name = symbolName(first(args));
var slots = {};
var n = len(args);
{ var _c = range(0, ((n - 1) / 2)); for (var _i = 0; _i < _c.length; _i++) { var idx = _c[_i]; (function() {
var kIdx = (1 + (idx * 2));
var vIdx = (2 + (idx * 2));
return (isSxTruthy((isSxTruthy((kIdx < n)) && isSxTruthy((vIdx < n)) && sxEq(typeOf(nth(args, kIdx)), "keyword"))) ? dictSet(slots, keywordName(nth(args, kIdx)), nth(args, vIdx)) : NIL);
})(); } }
return (function() {
var rdef = {["__type"]: "relation", ["name"]: name, ["slots"]: slots, ["closure"]: env};
envBind(env, (String("relation:") + String(name)), rdef);
return rdef;
})();
})(); });
// (register-special-form! ...)
registerSpecialForm("defstyle", function(args, env) { return (function() {
var nameSym = first(args);
var value = trampoline(evalExpr(nth(args, 1), env));
envBind(env, symbolName(nameSym), value);
return value;
})(); });
// normalize-type-body
var normalizeTypeBody = function(body) { return (isSxTruthy(isNil(body)) ? "nil" : (isSxTruthy(sxEq(typeOf(body), "symbol")) ? symbolName(body) : (isSxTruthy(sxEq(typeOf(body), "string")) ? body : (isSxTruthy(sxEq(typeOf(body), "keyword")) ? keywordName(body) : (isSxTruthy(sxEq(typeOf(body), "dict")) ? mapDict(function(k, v) { return normalizeTypeBody(v); }, body) : (isSxTruthy(sxEq(typeOf(body), "list")) ? (isSxTruthy(isEmpty(body)) ? "any" : (function() {
var headName = (isSxTruthy(sxEq(typeOf(first(body)), "symbol")) ? symbolName(first(body)) : (String(first(body))));
return (isSxTruthy(sxEq(headName, "union")) ? cons("or", map(normalizeTypeBody, rest(body))) : cons(headName, map(normalizeTypeBody, rest(body))));
})()) : (String(body)))))))); };
PRIMITIVES["normalize-type-body"] = normalizeTypeBody;
// (register-special-form! ...)
registerSpecialForm("deftype", function(args, env) { return (function() {
var nameOrForm = first(args);
var bodyExpr = nth(args, 1);
var typeName = NIL;
var typeParams = [];
(isSxTruthy(sxEq(typeOf(nameOrForm), "symbol")) ? (typeName = symbolName(nameOrForm)) : (isSxTruthy(sxEq(typeOf(nameOrForm), "list")) ? ((typeName = symbolName(first(nameOrForm))), (typeParams = map(function(p) { return (isSxTruthy(sxEq(typeOf(p), "symbol")) ? symbolName(p) : (String(p))); }, rest(nameOrForm)))) : NIL));
return (function() {
var body = normalizeTypeBody(bodyExpr);
var registry = (isSxTruthy(envHas(env, "*type-registry*")) ? envGet(env, "*type-registry*") : {});
registry[typeName] = {"body": body, "params": typeParams, "name": typeName};
envBind(env, "*type-registry*", registry);
return NIL;
})();
})(); });
// (register-special-form! ...)
registerSpecialForm("defeffect", function(args, env) { return (function() {
var effectName = (isSxTruthy(sxEq(typeOf(first(args)), "symbol")) ? symbolName(first(args)) : (String(first(args))));
var registry = (isSxTruthy(envHas(env, "*effect-registry*")) ? envGet(env, "*effect-registry*") : []);
if (isSxTruthy(!isSxTruthy(contains(registry, effectName)))) {
registry.push(effectName);
}
envBind(env, "*effect-registry*", registry);
return NIL;
})(); });
// WEB_FORM_NAMES
var WEB_FORM_NAMES = ["defhandler", "defpage", "defquery", "defaction", "defrelation", "defstyle", "deftype", "defeffect"];
PRIMITIVES["WEB_FORM_NAMES"] = WEB_FORM_NAMES;
// === Transpiled from parser ===
// sx-parse
var sxParse = function(source) { return (function() {
var pos = 0;
var lenSrc = len(source);
var skipComment = function() { while(true) { if (isSxTruthy((isSxTruthy((pos < lenSrc)) && !isSxTruthy(sxEq(nth(source, pos), "\n"))))) { pos = (pos + 1);
continue; } else { return NIL; } } };
PRIMITIVES["skip-comment"] = skipComment;
var skipWs = function() { while(true) { if (isSxTruthy((pos < lenSrc))) { { var ch = nth(source, pos);
if (isSxTruthy(sxOr(sxEq(ch, " "), sxEq(ch, "\t"), sxEq(ch, "\n"), sxEq(ch, "\r")))) { pos = (pos + 1);
continue; } else if (isSxTruthy(sxEq(ch, ";"))) { pos = (pos + 1);
skipComment();
continue; } else { return NIL; } } } else { return NIL; } } };
PRIMITIVES["skip-ws"] = skipWs;
var hexDigitValue = function(ch) { return indexOf_("0123456789abcdef", lower(ch)); };
PRIMITIVES["hex-digit-value"] = hexDigitValue;
var readString = function() { pos = (pos + 1);
return (function() {
var buf = "";
var readStrLoop = function() { while(true) { if (isSxTruthy((pos >= lenSrc))) { return error("Unterminated string"); } else { { var ch = nth(source, pos);
if (isSxTruthy(sxEq(ch, "\""))) { pos = (pos + 1);
return NIL; } else if (isSxTruthy(sxEq(ch, "\\"))) { pos = (pos + 1);
{ var esc = nth(source, pos);
if (isSxTruthy(sxEq(esc, "u"))) { pos = (pos + 1);
{ var d0 = hexDigitValue(nth(source, pos));
var _ = (pos = (pos + 1));
var d1 = hexDigitValue(nth(source, pos));
var _ = (pos = (pos + 1));
var d2 = hexDigitValue(nth(source, pos));
var _ = (pos = (pos + 1));
var d3 = hexDigitValue(nth(source, pos));
var _ = (pos = (pos + 1));
buf = (String(buf) + String(charFromCode(((((d0 * 4096) + (d1 * 256)) + (d2 * 16)) + d3))));
continue; } } else { buf = (String(buf) + String((isSxTruthy(sxEq(esc, "n")) ? "\n" : (isSxTruthy(sxEq(esc, "t")) ? "\t" : (isSxTruthy(sxEq(esc, "r")) ? "\r" : esc)))));
pos = (pos + 1);
continue; } } } else { buf = (String(buf) + String(ch));
pos = (pos + 1);
continue; } } } } };
PRIMITIVES["read-str-loop"] = readStrLoop;
readStrLoop();
return buf;
})(); };
PRIMITIVES["read-string"] = readString;
var readIdent = function() { return (function() {
var start = pos;
var readIdentLoop = function() { while(true) { if (isSxTruthy((isSxTruthy((pos < lenSrc)) && isIdentChar(nth(source, pos))))) { pos = (pos + 1);
continue; } else { return NIL; } } };
PRIMITIVES["read-ident-loop"] = readIdentLoop;
readIdentLoop();
return slice(source, start, pos);
})(); };
PRIMITIVES["read-ident"] = readIdent;
var readKeyword = function() { pos = (pos + 1);
return makeKeyword(readIdent()); };
PRIMITIVES["read-keyword"] = readKeyword;
var readNumber = function() { return (function() {
var start = pos;
if (isSxTruthy((isSxTruthy((pos < lenSrc)) && sxEq(nth(source, pos), "-")))) {
pos = (pos + 1);
}
var readDigits = function() { while(true) { if (isSxTruthy((isSxTruthy((pos < lenSrc)) && (function() {
var c = nth(source, pos);
return (isSxTruthy((c >= "0")) && (c <= "9"));
})()))) { pos = (pos + 1);
continue; } else { return NIL; } } };
PRIMITIVES["read-digits"] = readDigits;
readDigits();
return (isSxTruthy((isSxTruthy((pos < lenSrc)) && isSxTruthy(sxEq(nth(source, pos), "/")) && isSxTruthy(((pos + 1) < lenSrc)) && (function() {
var nc = nth(source, (pos + 1));
return (isSxTruthy((nc >= "0")) && (nc <= "9"));
})())) ? (function() {
var numer = parseNumber(slice(source, start, pos));
pos = (pos + 1);
return (function() {
var denomStart = pos;
readDigits();
return makeRational(numer, parseNumber(slice(source, denomStart, pos)));
})();
})() : ((isSxTruthy((isSxTruthy((pos < lenSrc)) && sxEq(nth(source, pos), "."))) ? ((pos = (pos + 1)), readDigits()) : NIL), (isSxTruthy((isSxTruthy((pos < lenSrc)) && sxOr(sxEq(nth(source, pos), "e"), sxEq(nth(source, pos), "E")))) ? ((pos = (pos + 1)), (isSxTruthy((isSxTruthy((pos < lenSrc)) && sxOr(sxEq(nth(source, pos), "+"), sxEq(nth(source, pos), "-")))) ? (pos = (pos + 1)) : NIL), readDigits()) : NIL), parseNumber(slice(source, start, pos))));
})(); };
PRIMITIVES["read-number"] = readNumber;
var readSymbol = function() { return (function() {
var name = readIdent();
return (isSxTruthy(sxEq(name, "true")) ? true : (isSxTruthy(sxEq(name, "false")) ? false : (isSxTruthy(sxEq(name, "nil")) ? NIL : makeSymbol(name))));
})(); };
PRIMITIVES["read-symbol"] = readSymbol;
var readList = function(closeCh) { return (function() {
var items = [];
var readListLoop = function() { while(true) { skipWs();
if (isSxTruthy((pos >= lenSrc))) { return error("Unterminated list"); } else { if (isSxTruthy(sxEq(nth(source, pos), closeCh))) { pos = (pos + 1);
return NIL; } else { items.push(readExpr());
continue; } } } };
PRIMITIVES["read-list-loop"] = readListLoop;
readListLoop();
return items;
})(); };
PRIMITIVES["read-list"] = readList;
var readMap = function() { return (function() {
var result = {};
var readMapLoop = function() { while(true) { skipWs();
if (isSxTruthy((pos >= lenSrc))) { return error("Unterminated map"); } else { if (isSxTruthy(sxEq(nth(source, pos), "}"))) { pos = (pos + 1);
return NIL; } else { { var keyExpr = readExpr();
var keyStr = (isSxTruthy(sxEq(typeOf(keyExpr), "keyword")) ? keywordName(keyExpr) : (String(keyExpr)));
var valExpr = readExpr();
result[keyStr] = valExpr;
continue; } } } } };
PRIMITIVES["read-map-loop"] = readMapLoop;
readMapLoop();
return result;
})(); };
PRIMITIVES["read-map"] = readMap;
var readRawString = function() { return (function() {
var buf = "";
var rawLoop = function() { while(true) { if (isSxTruthy((pos >= lenSrc))) { return error("Unterminated raw string"); } else { { var ch = nth(source, pos);
if (isSxTruthy(sxEq(ch, "|"))) { pos = (pos + 1);
return NIL; } else { buf = (String(buf) + String(ch));
pos = (pos + 1);
continue; } } } } };
PRIMITIVES["raw-loop"] = rawLoop;
rawLoop();
return buf;
})(); };
PRIMITIVES["read-raw-string"] = readRawString;
var readCharLiteral = function() { return (isSxTruthy((pos >= lenSrc)) ? error("Unexpected end of input after #\\") : (function() {
var firstCh = nth(source, pos);
return (isSxTruthy(isIdentStart(firstCh)) ? (function() {
var charStart = pos;
var readCharNameLoop = function() { while(true) { if (isSxTruthy((isSxTruthy((pos < lenSrc)) && isIdentChar(nth(source, pos))))) { pos = (pos + 1);
continue; } else { return NIL; } } };
PRIMITIVES["read-char-name-loop"] = readCharNameLoop;
readCharNameLoop();
return (function() {
var charName = slice(source, charStart, pos);
return makeChar((isSxTruthy(sxEq(charName, "space")) ? 32 : (isSxTruthy(sxEq(charName, "newline")) ? 10 : (isSxTruthy(sxEq(charName, "tab")) ? 9 : (isSxTruthy(sxEq(charName, "nul")) ? 0 : (isSxTruthy(sxEq(charName, "null")) ? 0 : (isSxTruthy(sxEq(charName, "return")) ? 13 : (isSxTruthy(sxEq(charName, "escape")) ? 27 : (isSxTruthy(sxEq(charName, "delete")) ? 127 : (isSxTruthy(sxEq(charName, "backspace")) ? 8 : (isSxTruthy(sxEq(charName, "altmode")) ? 27 : (isSxTruthy(sxEq(charName, "rubout")) ? 127 : charCode(firstCh)))))))))))));
})();
})() : ((pos = (pos + 1)), makeChar(charCode(firstCh))));
})()); };
PRIMITIVES["read-char-literal"] = readCharLiteral;
var readExpr = function() { while(true) { skipWs();
if (isSxTruthy((pos >= lenSrc))) { return error("Unexpected end of input"); } else { { var ch = nth(source, pos);
if (isSxTruthy(sxEq(ch, "("))) { pos = (pos + 1);
return readList(")"); } else if (isSxTruthy(sxEq(ch, "["))) { pos = (pos + 1);
return readList("]"); } else if (isSxTruthy(sxEq(ch, "{"))) { pos = (pos + 1);
return readMap(); } else if (isSxTruthy(sxEq(ch, "\""))) { return readString(); } else if (isSxTruthy(sxEq(ch, ":"))) { return readKeyword(); } else if (isSxTruthy(sxEq(ch, "'"))) { pos = (pos + 1);
return [makeSymbol("quote"), readExpr()]; } else if (isSxTruthy(sxEq(ch, "`"))) { pos = (pos + 1);
return [makeSymbol("quasiquote"), readExpr()]; } else if (isSxTruthy(sxEq(ch, ","))) { pos = (pos + 1);
if (isSxTruthy((isSxTruthy((pos < lenSrc)) && sxEq(nth(source, pos), "@")))) { pos = (pos + 1);
return [makeSymbol("splice-unquote"), readExpr()]; } else { return [makeSymbol("unquote"), readExpr()]; } } else if (isSxTruthy(sxEq(ch, "#"))) { pos = (pos + 1);
if (isSxTruthy((pos >= lenSrc))) { return error("Unexpected end of input after #"); } else { { var dispatchCh = nth(source, pos);
if (isSxTruthy(sxEq(dispatchCh, ";"))) { pos = (pos + 1);
readExpr();
continue; } else if (isSxTruthy(sxEq(dispatchCh, "|"))) { pos = (pos + 1);
return readRawString(); } else if (isSxTruthy(sxEq(dispatchCh, "'"))) { pos = (pos + 1);
return [makeSymbol("quote"), readExpr()]; } else if (isSxTruthy(sxEq(dispatchCh, "\\"))) { pos = (pos + 1);
return readCharLiteral(); } else if (isSxTruthy(isIdentStart(dispatchCh))) { { var macroName = readIdent();
{ var handler = readerMacroGet(macroName);
if (isSxTruthy(handler)) { return handler(readExpr()); } else { return error((String("Unknown reader macro: #") + String(macroName))); } } } } else { return error((String("Unknown reader macro: #") + String(dispatchCh))); } } } } else if (isSxTruthy(sxOr((isSxTruthy((ch >= "0")) && (ch <= "9")), (isSxTruthy(sxEq(ch, "-")) && isSxTruthy(((pos + 1) < lenSrc)) && (function() {
var nextCh = nth(source, (pos + 1));
return (isSxTruthy((nextCh >= "0")) && (nextCh <= "9"));
})())))) { return readNumber(); } else if (isSxTruthy((isSxTruthy(sxEq(ch, ".")) && isSxTruthy(((pos + 2) < lenSrc)) && isSxTruthy(sxEq(nth(source, (pos + 1)), ".")) && sxEq(nth(source, (pos + 2)), ".")))) { pos = (pos + 3);
return makeSymbol("..."); } else if (isSxTruthy(isIdentStart(ch))) { return readSymbol(); } else { return error((String("Unexpected character: ") + String(ch))); } } } } };
PRIMITIVES["read-expr"] = readExpr;
return (function() {
var exprs = [];
var parseLoop = function() { while(true) { skipWs();
if (isSxTruthy((pos < lenSrc))) { exprs.push(readExpr());
continue; } else { return NIL; } } };
PRIMITIVES["parse-loop"] = parseLoop;
parseLoop();
return exprs;
})();
})(); };
PRIMITIVES["sx-parse"] = sxParse;
// sx-serialize
var sxSerialize = function(val) { return (function() { var _m = typeOf(val); if (_m == "nil") return "nil"; if (_m == "boolean") return (isSxTruthy(val) ? "true" : "false"); if (_m == "number") return (String(val)); if (_m == "rational") return (String(numerator(val)) + String("/") + String(denominator(val))); if (_m == "string") return (String("\"") + String(escapeString(val)) + String("\"")); if (_m == "symbol") return symbolName(val); if (_m == "keyword") return (String(":") + String(keywordName(val))); if (_m == "list") return (String("(") + String(join(" ", map(sxSerialize, val))) + String(")")); if (_m == "dict") return sxSerializeDict(val); if (_m == "sx-expr") return sxExprSource(val); if (_m == "spread") return (String("(make-spread ") + String(sxSerializeDict(spreadAttrs(val))) + String(")")); if (_m == "char") return (function() {
var n = charToInteger(val);
return (String("#\\") + String((isSxTruthy(sxEq(n, 32)) ? "space" : (isSxTruthy(sxEq(n, 10)) ? "newline" : (isSxTruthy(sxEq(n, 9)) ? "tab" : (isSxTruthy(sxEq(n, 13)) ? "return" : (isSxTruthy(sxEq(n, 0)) ? "nul" : (isSxTruthy(sxEq(n, 27)) ? "escape" : (isSxTruthy(sxEq(n, 127)) ? "delete" : (isSxTruthy(sxEq(n, 8)) ? "backspace" : charFromCode(n)))))))))));
})(); return (String(val)); })(); };
PRIMITIVES["sx-serialize"] = sxSerialize;
// sx-serialize-dict
var sxSerializeDict = function(d) { return (String("{") + String(join(" ", reduce(function(acc, key) { return concat(acc, [(String(":") + String(key)), sxSerialize(dictGet(d, key))]); }, [], keys(d)))) + String("}")); };
PRIMITIVES["sx-serialize-dict"] = sxSerializeDict;
// serialize
var serialize = sxSerialize;
PRIMITIVES["serialize"] = serialize;
// === Transpiled from adapter-html ===
// === Transpiled from adapter-sx ===
// === Transpiled from lib/dom (DOM library) ===
// dom-visible?
var domVisible_p = function(el) { return (isSxTruthy(el) ? !isSxTruthy(sxEq(hostGet(hostGet(el, "style"), "display"), "none")) : false); };
PRIMITIVES["dom-visible?"] = domVisible_p;
// === Transpiled from lib/browser (browser API library) ===
// json-stringify
var jsonStringify = function(v) { return hostCall(hostGlobal("JSON"), "stringify", v); };
PRIMITIVES["json-stringify"] = jsonStringify;
// === Transpiled from adapter-dom ===
// === Transpiled from engine ===
// === Transpiled from orchestration ===
// === Transpiled from boot ===
// HEAD_HOIST_SELECTOR
var HEAD_HOIST_SELECTOR = "meta, title, link[rel='canonical'], script[type='application/ld+json']";
PRIMITIVES["HEAD_HOIST_SELECTOR"] = HEAD_HOIST_SELECTOR;
// hoist-head-elements-full
var hoistHeadElementsFull = function(root) { return (function() {
var els = domQueryAll(root, HEAD_HOIST_SELECTOR);
return forEach(function(el) { return (function() {
var tag = lower(domTagName(el));
return (isSxTruthy(sxEq(tag, "title")) ? (setDocumentTitle(domTextContent(el)), domRemoveChild(domParent(el), el)) : (isSxTruthy(sxEq(tag, "meta")) ? ((function() {
var name = domGetAttr(el, "name");
var prop = domGetAttr(el, "property");
if (isSxTruthy(name)) {
removeHeadElement((String("meta[name=\"") + String(name) + String("\"]")));
}
return (isSxTruthy(prop) ? removeHeadElement((String("meta[property=\"") + String(prop) + String("\"]"))) : NIL);
})(), domRemoveChild(domParent(el), el), domAppendToHead(el)) : (isSxTruthy((isSxTruthy(sxEq(tag, "link")) && sxEq(domGetAttr(el, "rel"), "canonical"))) ? (removeHeadElement("link[rel=\"canonical\"]"), domRemoveChild(domParent(el), el), domAppendToHead(el)) : (domRemoveChild(domParent(el), el), domAppendToHead(el)))));
})(); }, els);
})(); };
PRIMITIVES["hoist-head-elements-full"] = hoistHeadElementsFull;
// sx-mount
var sxMount = function(target, source, extraEnv) { return (function() {
var el = resolveMountTarget(target);
return (isSxTruthy(el) ? ((isSxTruthy(isEmpty(domChildList(el))) ? (function() {
var node = sxRenderWithEnv(source, extraEnv);
domSetTextContent(el, "");
domAppend(el, node);
return hoistHeadElementsFull(el);
})() : NIL), processElements(el), sxHydrateElements(el), sxHydrateIslands(el), runPostRenderHooks()) : NIL);
})(); };
PRIMITIVES["sx-mount"] = sxMount;
// resolve-suspense
var resolveSuspense = function(id, sx) { processSxScripts(NIL);
return (function() {
var el = domQuery((String("[data-suspense=\"") + String(id) + String("\"]")));
return (isSxTruthy(el) ? (function() {
var exprs = parse(sx);
var env = getRenderEnv(NIL);
domSetTextContent(el, "");
{ var _c = exprs; for (var _i = 0; _i < _c.length; _i++) { var expr = _c[_i]; domAppend(el, renderToDom(expr, env, NIL)); } }
processElements(el);
sxHydrateElements(el);
sxHydrateIslands(el);
runPostRenderHooks();
return domDispatch(el, "sx:resolved", {"id": id});
})() : logWarn((String("resolveSuspense: no element for id=") + String(id))));
})(); };
PRIMITIVES["resolve-suspense"] = resolveSuspense;
// sx-hydrate-elements
var sxHydrateElements = function(root) { return (function() {
var els = domQueryAll(sxOr(root, domBody()), "[data-sx]");
return forEach(function(el) { return (isSxTruthy(!isSxTruthy(isProcessed(el, "hydrated"))) ? (markProcessed(el, "hydrated"), sxUpdateElement(el, NIL)) : NIL); }, els);
})(); };
PRIMITIVES["sx-hydrate-elements"] = sxHydrateElements;
// sx-update-element
var sxUpdateElement = function(el, newEnv) { return (function() {
var target = resolveMountTarget(el);
return (isSxTruthy(target) ? (function() {
var source = domGetAttr(target, "data-sx");
return (isSxTruthy(source) ? (function() {
var baseEnv = parseEnvAttr(target);
var env = mergeEnvs(baseEnv, newEnv);
return (function() {
var node = sxRenderWithEnv(source, env);
domSetTextContent(target, "");
domAppend(target, node);
return (isSxTruthy(newEnv) ? storeEnvAttr(target, baseEnv, newEnv) : NIL);
})();
})() : NIL);
})() : NIL);
})(); };
PRIMITIVES["sx-update-element"] = sxUpdateElement;
// sx-render-component
var sxRenderComponent = function(name, kwargs, extraEnv) { return (function() {
var fullName = (isSxTruthy(startsWith(name, "~")) ? name : (String("~") + String(name)));
return (function() {
var env = getRenderEnv(extraEnv);
var comp = envGet(env, fullName);
return (isSxTruthy(!isSxTruthy(isComponent(comp))) ? error((String("Unknown component: ") + String(fullName))) : (function() {
var callExpr = [makeSymbol(fullName)];
{ var _c = keys(kwargs); for (var _i = 0; _i < _c.length; _i++) { var k = _c[_i]; callExpr.push(makeKeyword(toKebab(k)));
callExpr.push(dictGet(kwargs, k)); } }
return renderToDom(callExpr, env, NIL);
})());
})();
})(); };
PRIMITIVES["sx-render-component"] = sxRenderComponent;
// process-sx-scripts
var processSxScripts = function(root) { return (function() {
var scripts = querySxScripts(root);
return forEach(function(s) { return (isSxTruthy(!isSxTruthy(isProcessed(s, "script"))) ? (markProcessed(s, "script"), (function() {
var text = domTextContent(s);
return (isSxTruthy(domHasAttr(s, "data-components")) ? processComponentScript(s, text) : (isSxTruthy(sxOr(isNil(text), isEmpty(trim(text)))) ? NIL : (isSxTruthy(domHasAttr(s, "data-init")) ? (function() {
var exprs = sxParse(text);
return forEach(function(expr) { return cekEval(expr); }, exprs);
})() : (isSxTruthy(domHasAttr(s, "data-mount")) ? (function() {
var mountSel = domGetAttr(s, "data-mount");
var target = domQuery(mountSel);
return (isSxTruthy(target) ? sxMount(target, text, NIL) : NIL);
})() : sxLoadComponents(text)))));
})()) : NIL); }, scripts);
})(); };
PRIMITIVES["process-sx-scripts"] = processSxScripts;
// process-component-script
var processComponentScript = function(script, text) { return (function() {
var hash = domGetAttr(script, "data-hash");
return (isSxTruthy(isNil(hash)) ? (isSxTruthy((isSxTruthy(text) && !isSxTruthy(isEmpty(trim(text))))) ? sxLoadComponents(text) : NIL) : (function() {
var hasInline = (isSxTruthy(text) && !isSxTruthy(isEmpty(trim(text))));
(function() {
var cachedHash = localStorageGet("sx-components-hash");
return (isSxTruthy(sxEq(cachedHash, hash)) ? (isSxTruthy(hasInline) ? (localStorageSet("sx-components-hash", hash), localStorageSet("sx-components-src", text), sxLoadComponents(text), logInfo("components: downloaded (cookie stale)")) : (function() {
var cached = localStorageGet("sx-components-src");
return (isSxTruthy(cached) ? (sxLoadComponents(cached), logInfo((String("components: cached (") + String(hash) + String(")")))) : (clearSxCompCookie(), browserReload()));
})()) : (isSxTruthy(hasInline) ? (localStorageSet("sx-components-hash", hash), localStorageSet("sx-components-src", text), sxLoadComponents(text), logInfo((String("components: downloaded (") + String(hash) + String(")")))) : (localStorageRemove("sx-components-hash"), localStorageRemove("sx-components-src"), clearSxCompCookie(), browserReload())));
})();
return setSxCompCookie(hash);
})());
})(); };
PRIMITIVES["process-component-script"] = processComponentScript;
// _page-routes
var _pageRoutes = [];
PRIMITIVES["_page-routes"] = _pageRoutes;
// process-page-scripts
var processPageScripts = function() { return (function() {
var scripts = queryPageScripts();
logInfo((String("pages: found ") + String(len(scripts)) + String(" script tags")));
{ var _c = scripts; for (var _i = 0; _i < _c.length; _i++) { var s = _c[_i]; if (isSxTruthy(!isSxTruthy(isProcessed(s, "pages")))) {
markProcessed(s, "pages");
(function() {
var text = domTextContent(s);
logInfo((String("pages: script text length=") + String((isSxTruthy(text) ? len(text) : 0))));
return (isSxTruthy((isSxTruthy(text) && !isSxTruthy(isEmpty(trim(text))))) ? (function() {
var pages = parse(text);
logInfo((String("pages: parsed ") + String(len(pages)) + String(" entries")));
return forEach(function(page) { return append_b(_pageRoutes, merge(page, {"parsed": parseRoutePattern(get(page, "path"))})); }, pages);
})() : logWarn("pages: script tag is empty"));
})();
} } }
return logInfo((String("pages: ") + String(len(_pageRoutes)) + String(" routes loaded")));
})(); };
PRIMITIVES["process-page-scripts"] = processPageScripts;
// sx-hydrate-islands
var sxHydrateIslands = function(root) { return (function() {
var els = domQueryAll(sxOr(root, domBody()), "[data-sx-island]");
preloadIslandDefs();
logInfo((String("sx-hydrate-islands: ") + String(len(els)) + String(" island(s) in ") + String((isSxTruthy(root) ? "subtree" : "document"))));
return forEach(function(el) { return (isSxTruthy(isProcessed(el, "island-hydrated")) ? logInfo((String(" skip (already hydrated): ") + String(domGetAttr(el, "data-sx-island")))) : (logInfo((String(" hydrating: ") + String(domGetAttr(el, "data-sx-island")))), markProcessed(el, "island-hydrated"), hydrateIsland(el))); }, els);
})(); };
PRIMITIVES["sx-hydrate-islands"] = sxHydrateIslands;
// hydrate-island
var hydrateIsland = function(el) { return (function() {
var name = domGetAttr(el, "data-sx-island");
var stateSx = sxOr(domGetAttr(el, "data-sx-state"), "{}");
return (function() {
var compName = (String("~") + String(name));
var env = getRenderEnv(NIL);
return (function() {
var comp = envGet(globalEnv(), compName);
return (isSxTruthy(!isSxTruthy(sxOr(isComponent(comp), isIsland(comp)))) ? logWarn((String("hydrate-island: unknown island ") + String(compName))) : (function() {
var kwargs = sxOr(first(sxParse(stateSx)), {});
var disposers = [];
var local = envMerge(componentClosure(comp), env);
{ var _c = componentParams(comp); for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; envBind(local, p, (isSxTruthy(dictHas(kwargs, p)) ? dictGet(kwargs, p) : NIL)); } }
return (function() {
var cursor = {["parent"]: el, ["index"]: 0};
hostCall(el, "replaceChildren");
scopePush("sx-hydrating", NIL);
cekTry(function() { return withIslandScope(function(disposable) { return append_b(disposers, disposable); }, function() { return (function() {
var bodyDom = renderToDom(componentBody(comp), local, NIL);
return (isSxTruthy(bodyDom) ? domAppend(el, bodyDom) : NIL);
})(); }); }, function(err) { scopePop("sx-hydrating");
logWarn((String("hydrate fallback: ") + String(compName) + String(" — ") + String(err)));
return (function() {
var fallback = cekTry(function() { return withIslandScope(function(d) { return append_b(disposers, d); }, function() { return renderToDom(componentBody(comp), local, NIL); }); }, function(err2) { return (function() {
var e = domCreateElement("div", NIL);
domSetTextContent(e, (String("Island error: ") + String(compName) + String("\n") + String(err2)));
return e;
})(); });
hostCall(el, "replaceChildren", fallback);
return NIL;
})(); });
scopePop("sx-hydrating");
domSetData(el, "sx-disposers", disposers);
setTimeout_(function() { return processElements(el); }, 0);
return logInfo((String("hydrated island: ~") + String(compName) + String(" (") + String(len(disposers)) + String(" disposers)")));
})();
})());
})();
})();
})(); };
PRIMITIVES["hydrate-island"] = hydrateIsland;
// dispose-island
var disposeIsland = function(el) { (function() {
var disposers = domGetData(el, "sx-disposers");
return (isSxTruthy(disposers) ? (forEach(function(d) { return (isSxTruthy(isCallable(d)) ? d() : NIL); }, disposers), domSetData(el, "sx-disposers", NIL)) : NIL);
})();
return clearProcessed(el, "island-hydrated"); };
PRIMITIVES["dispose-island"] = disposeIsland;
// dispose-islands-in
var disposeIslandsIn = function(root) { return (isSxTruthy(root) ? (function() {
var islands = domQueryAll(root, "[data-sx-island]");
return (isSxTruthy((isSxTruthy(islands) && !isSxTruthy(isEmpty(islands)))) ? (function() {
var toDispose = filter(function(el) { return !isSxTruthy(isProcessed(el, "island-hydrated")); }, islands);
return (isSxTruthy(!isSxTruthy(isEmpty(toDispose))) ? (logInfo((String("disposing ") + String(len(toDispose)) + String(" island(s)"))), forEach(disposeIsland, toDispose)) : NIL);
})() : NIL);
})() : NIL); };
PRIMITIVES["dispose-islands-in"] = disposeIslandsIn;
// force-dispose-islands-in
var forceDisposeIslandsIn = function(root) { return (isSxTruthy(root) ? (function() {
var islands = domQueryAll(root, "[data-sx-island]");
return (isSxTruthy((isSxTruthy(islands) && !isSxTruthy(isEmpty(islands)))) ? (logInfo((String("force-disposing ") + String(len(islands)) + String(" island(s)"))), forEach(disposeIsland, islands)) : NIL);
})() : NIL); };
PRIMITIVES["force-dispose-islands-in"] = forceDisposeIslandsIn;
// *pre-render-hooks*
var _preRenderHooks_ = [];
PRIMITIVES["*pre-render-hooks*"] = _preRenderHooks_;
// *post-render-hooks*
var _postRenderHooks_ = [];
PRIMITIVES["*post-render-hooks*"] = _postRenderHooks_;
// register-pre-render-hook
var registerPreRenderHook = function(hookFn) { return append_b(_preRenderHooks_, hookFn); };
PRIMITIVES["register-pre-render-hook"] = registerPreRenderHook;
// register-post-render-hook
var registerPostRenderHook = function(hookFn) { return append_b(_postRenderHooks_, hookFn); };
PRIMITIVES["register-post-render-hook"] = registerPostRenderHook;
// run-pre-render-hooks
var runPreRenderHooks = function() { return forEach(function(hook) { return cekCall(hook, NIL); }, _preRenderHooks_); };
PRIMITIVES["run-pre-render-hooks"] = runPreRenderHooks;
// run-post-render-hooks
var runPostRenderHooks = function() { logInfo((String("run-post-render-hooks: ") + String(len(_postRenderHooks_)) + String(" hooks")));
{ var _c = _postRenderHooks_; for (var _i = 0; _i < _c.length; _i++) { var hook = _c[_i]; logInfo((String(" hook type: ") + String(typeOf(hook)) + String(" callable: ") + String(isCallable(hook)) + String(" lambda: ") + String(isLambda(hook))));
cekCall(hook, NIL); } }
return flushCollectedStyles(); };
PRIMITIVES["run-post-render-hooks"] = runPostRenderHooks;
// boot-init
var bootInit = function() { return (logInfo((String("sx-browser ") + String(SX_VERSION))), processPageScripts(), processSxScripts(NIL), sxHydrateElements(NIL), sxHydrateIslands(NIL), runPostRenderHooks(), flushCollectedStyles(), setTimeout_(function() { return processElements(NIL); }, 0), domSetAttr(hostGet(domDocument(), "documentElement"), "data-sx-ready", "true"), domDispatch(domDocument(), "sx:ready", NIL), logInfo("sx:ready")); };
PRIMITIVES["boot-init"] = bootInit;
// === Transpiled from deps (component dependency analysis) ===
// === Transpiled from page-helpers (pure data transformation helpers) ===
// === Transpiled from router (client-side route matching) ===
// === Transpiled from signals (reactive signal runtime) ===
// === Transpiled from signals-web (stores, events, resources) ===
// =========================================================================
// Post-transpilation fixups
// =========================================================================
// The reference spec's call-lambda only handles Lambda objects, but HO forms
// (map, reduce, etc.) may receive native primitives. Wrap to handle both.
var _rawCallLambda = callLambda;
callLambda = function(f, args, callerEnv) {
if (typeof f === "function") return f.apply(null, args);
return _rawCallLambda(f, args, callerEnv);
};
// -----------------------------------------------------------------------
// Core primitives that require native JS (cannot be expressed via FFI)
// -----------------------------------------------------------------------
PRIMITIVES["error"] = function(msg) { throw new Error(msg); };
PRIMITIVES["host-error"] = function(msg) { throw new Error(typeof msg === "string" ? msg : inspect(msg)); };
PRIMITIVES["try-catch"] = function(tryFn, catchFn) {
try {
return cekRun(continueWithCall(tryFn, [], makeEnv(), [], []));
} catch(e) {
var msg = e && e.message ? e.message : String(e);
return cekRun(continueWithCall(catchFn, [msg], makeEnv(), [msg], []));
}
};
PRIMITIVES["without-io-hook"] = function(thunk) {
return cekRun(continueWithCall(thunk, [], makeEnv(), [], []));
};
PRIMITIVES["sort"] = function(lst) {
if (!Array.isArray(lst)) return lst;
return lst.slice().sort(function(a, b) {
if (a < b) return -1; if (a > b) return 1; return 0;
});
};
// Aliases for VM bytecode compatibility
PRIMITIVES["length"] = PRIMITIVES["len"];
// FFI library functions — defined in dom.sx/browser.sx but not transpiled.
// Registered here so runtime-evaluated SX code (data-init, islands) can use them.
PRIMITIVES["prevent-default"] = preventDefault_;
PRIMITIVES["stop-propagation"] = stopPropagation_;
PRIMITIVES["event-modifier-key?"] = eventModifierKey_p;
PRIMITIVES["element-value"] = elementValue;
PRIMITIVES["error-message"] = errorMessage;
PRIMITIVES["schedule-idle"] = scheduleIdle;
PRIMITIVES["console-log"] = function() {
var args = Array.prototype.slice.call(arguments);
console.log.apply(console, ["[sx]"].concat(args));
return args.length > 0 ? args[0] : NIL;
};
PRIMITIVES["set-cookie"] = function(name, value, days) {
var d = days || 365;
var expires = new Date(Date.now() + d * 864e5).toUTCString();
document.cookie = name + "=" + encodeURIComponent(value) + ";expires=" + expires + ";path=/;SameSite=Lax";
return NIL;
};
PRIMITIVES["get-cookie"] = function(name) {
var m = document.cookie.match(new RegExp("(?:^|;\\s*)" + name + "=([^;]*)"));
return m ? decodeURIComponent(m[1]) : NIL;
};
// dom.sx / browser.sx library functions — not transpiled, registered from
// native platform implementations so runtime-eval'd SX code can use them.
if (typeof domBody === "function") PRIMITIVES["dom-body"] = domBody;
if (typeof domQuery === "function") PRIMITIVES["dom-query"] = domQuery;
if (typeof domQueryAll === "function") PRIMITIVES["dom-query-all"] = domQueryAll;
if (typeof domQueryById === "function") PRIMITIVES["dom-query-by-id"] = domQueryById;
if (typeof domSetAttr === "function") PRIMITIVES["dom-set-attr"] = domSetAttr;
if (typeof domGetAttr === "function") PRIMITIVES["dom-get-attr"] = domGetAttr;
if (typeof domRemoveAttr === "function") PRIMITIVES["dom-remove-attr"] = domRemoveAttr;
if (typeof domHasAttr === "function") PRIMITIVES["dom-has-attr?"] = domHasAttr;
if (typeof domAddClass === "function") PRIMITIVES["dom-add-class"] = domAddClass;
if (typeof domRemoveClass === "function") PRIMITIVES["dom-remove-class"] = domRemoveClass;
if (typeof domHasClass === "function") PRIMITIVES["dom-has-class?"] = domHasClass;
if (typeof domClosest === "function") PRIMITIVES["dom-closest"] = domClosest;
if (typeof domMatches === "function") PRIMITIVES["dom-matches?"] = domMatches;
if (typeof domOuterHtml === "function") PRIMITIVES["dom-outer-html"] = domOuterHtml;
if (typeof domInnerHtml === "function") PRIMITIVES["dom-inner-html"] = domInnerHtml;
if (typeof domTextContent === "function") PRIMITIVES["dom-text-content"] = domTextContent;
if (typeof domCreateElement === "function") PRIMITIVES["dom-create-element"] = domCreateElement;
if (typeof domAppend === "function") PRIMITIVES["dom-append"] = domAppend;
if (typeof domAppendToHead === "function") PRIMITIVES["dom-append-to-head"] = domAppendToHead;
if (typeof jsonParse === "function") PRIMITIVES["json-parse"] = jsonParse;
if (typeof nowMs === "function") PRIMITIVES["now-ms"] = nowMs;
PRIMITIVES["log-info"] = logInfo;
PRIMITIVES["log-warn"] = logWarn;
PRIMITIVES["dom-listen"] = domListen;
PRIMITIVES["dom-dispatch"] = domDispatch;
PRIMITIVES["event-detail"] = eventDetail;
PRIMITIVES["create-text-node"] = createTextNode;
PRIMITIVES["dom-set-text-content"] = domSetTextContent;
PRIMITIVES["dom-focus"] = domFocus;
PRIMITIVES["dom-tag-name"] = domTagName;
PRIMITIVES["dom-get-prop"] = domGetProp;
PRIMITIVES["dom-set-prop"] = domSetProp;
if (typeof reactiveText === "function") PRIMITIVES["reactive-text"] = reactiveText;
PRIMITIVES["set-interval"] = setInterval_;
PRIMITIVES["clear-interval"] = clearInterval_;
PRIMITIVES["promise-then"] = promiseThen;
PRIMITIVES["promise-delayed"] = promiseDelayed;
PRIMITIVES["local-storage-get"] = function(key) {
try { var v = localStorage.getItem(key); return v === null ? NIL : v; }
catch (e) { return NIL; }
};
PRIMITIVES["local-storage-set"] = function(key, val) {
try { localStorage.setItem(key, val); } catch (e) {}
return NIL;
};
PRIMITIVES["local-storage-remove"] = function(key) {
try { localStorage.removeItem(key); } catch (e) {}
return NIL;
};
if (typeof sxParse === "function") PRIMITIVES["sx-parse"] = sxParse;
PRIMITIVES["cek-try"] = function(thunkFn, handlerFn) {
try {
var result = _wrapSxFn(thunkFn)();
if (!handlerFn || handlerFn === NIL) return [makeSymbol("ok"), result];
return result;
} catch (e) {
var msg = (e && e.message) ? e.message : String(e);
if (handlerFn && handlerFn !== NIL) return _wrapSxFn(handlerFn)(msg);
return [makeSymbol("error"), msg];
}
};
// Named stores — global mutable registry (mirrors OCaml sx_primitives.ml)
var _storeRegistry = {};
function defStore(name, initFn) {
if (!_storeRegistry.hasOwnProperty(name)) {
_storeRegistry[name] = _wrapSxFn(initFn)();
}
return _storeRegistry[name];
}
function useStore(name) {
if (!_storeRegistry.hasOwnProperty(name)) throw new Error("Store not found: " + name);
return _storeRegistry[name];
}
function clearStores() { _storeRegistry = {}; return NIL; }
PRIMITIVES["def-store"] = defStore;
PRIMITIVES["use-store"] = useStore;
PRIMITIVES["clear-stores"] = clearStores;
// -----------------------------------------------------------------------
// define-type override — produces native AdtValue instances (Step 6).
// The transpiled sfDefineType from evaluator.sx creates plain dict
// instances. We override here to construct AdtValue via makeAdtValue so
// type-of returns the type name and adt? can distinguish from dicts.
// dict? still returns true for AdtValue (shim) so spec-level match-pattern
// continues to work without changes.
// -----------------------------------------------------------------------
var _sfDefineTypeAdt = function(args, env) {
var typeSym = first(args);
var ctorSpecs = rest(args);
var typeName = symbolName(typeSym);
var ctorNames = map(function(spec) { return symbolName(first(spec)); }, ctorSpecs);
if (!isSxTruthy(envHas(env, "*adt-registry*"))) {
envBind(env, "*adt-registry*", {});
}
envGet(env, "*adt-registry*")[typeName] = ctorNames;
envBind(env, typeName + "?", function(v) { return isAdtValue(v) && v._type === typeName; });
for (var _i = 0; _i < ctorSpecs.length; _i++) {
(function(spec) {
var cn = symbolName(first(spec));
var fieldNames = map(function(f) { return symbolName(f); }, rest(spec));
var arity = fieldNames.length;
envBind(env, cn, function() {
var ctorArgs = Array.prototype.slice.call(arguments, 0);
if (ctorArgs.length !== arity) {
throw new Error(cn + ": expected " + arity + " args, got " + ctorArgs.length);
}
return makeAdtValue(typeName, cn, ctorArgs);
});
envBind(env, cn + "?", function(v) { return isAdtValue(v) && v._ctor === cn; });
for (var _j = 0; _j < fieldNames.length; _j++) {
(function(idx, fieldName) {
envBind(env, cn + "-" + fieldName, function(v) {
if (!isAdtValue(v)) throw new Error(cn + "-" + fieldName + ": not an ADT");
if (idx >= v._fields.length) throw new Error(cn + "-" + fieldName + ": index out of bounds");
return v._fields[idx];
});
})(_j, fieldNames[_j]);
}
})(ctorSpecs[_i]);
}
return NIL;
};
PRIMITIVES["sf-define-type"] = _sfDefineTypeAdt;
registerSpecialForm("define-type", _sfDefineTypeAdt);
PRIMITIVES["make-adt-value"] = makeAdtValue;
PRIMITIVES["adt-value?"] = isAdtValue;
// Platform deps functions (native JS, not transpiled — need explicit registration)
PRIMITIVES["component-deps"] = componentDeps;
PRIMITIVES["component-set-deps!"] = componentSetDeps;
PRIMITIVES["component-css-classes"] = componentCssClasses;
PRIMITIVES["regex-find-all"] = regexFindAll;
PRIMITIVES["scan-css-classes"] = scanCssClasses;
// Override recursive cekRun with iterative loop (avoids stack overflow)
cekRun = function(state) {
while (!cekTerminal_p(state) && !cekSuspended_p(state)) { state = cekStep(state); }
if (cekSuspended_p(state)) { throw new Error("IO suspension in non-IO context"); }
return cekValue(state);
};
// CEK is the canonical evaluator — override evalExpr to use it.
// The tree-walk evaluator (evalExpr from eval.sx) is superseded.
var _treeWalkEvalExpr = evalExpr;
evalExpr = function(expr, env) {
return cekRun(makeCekState(expr, env, []));
};
// CEK never produces thunks — trampoline resolves any legacy thunks
var _treeWalkTrampoline = trampoline;
trampoline = function(val) {
if (isThunk(val)) return evalExpr(thunkExpr(val), thunkEnv(val));
return val;
};
// Platform functions — defined in platform_js.py, not in .sx spec files.
// Spec defines self-register via js-emit-define; these are the platform interface.
PRIMITIVES["type-of"] = typeOf;
PRIMITIVES["inspect"] = inspect;
PRIMITIVES["symbol-name"] = symbolName;
PRIMITIVES["keyword-name"] = keywordName;
PRIMITIVES["callable?"] = isCallable;
PRIMITIVES["lambda?"] = isLambda;
PRIMITIVES["lambda-name"] = lambdaName;
PRIMITIVES["component?"] = isComponent;
PRIMITIVES["island?"] = isIsland;
PRIMITIVES["parameter?"] = parameter_p;
PRIMITIVES["parameter-uid"] = parameterUid;
PRIMITIVES["parameter-default"] = parameterDefault;
PRIMITIVES["make-parameter"] = function(defaultVal, converter) {
var p = new SxParameter(defaultVal, converter || null);
return p;
};
PRIMITIVES["make-symbol"] = function(n) { return new Symbol(n); };
PRIMITIVES["is-html-tag?"] = function(n) { return HTML_TAGS.indexOf(n) >= 0; };
function makeEnv() { return merge(componentEnv, PRIMITIVES); }
PRIMITIVES["make-env"] = makeEnv;
// === stdlib.sx (eval'd at runtime, not transpiled) ===
(function() {
var src = ";; ==========================================================================\n;; stdlib.sx — Pure SX standard library functions\n;;\n;; Loaded by test runners after primitives. These functions are implemented\n;; in SX and require no host-specific code.\n;;\n;; IMPORTANT: SX let/when bodies evaluate only the LAST expression.\n;; Multi-step bodies must be wrapped in (do expr1 expr2 ...).\n;; ==========================================================================\n\n;; --------------------------------------------------------------------------\n;; format — CL-style string formatting\n;;\n;; Directives:\n;; ~a display (no quotes) ~s write (with quotes)\n;; ~d decimal ~x hex ~o octal ~b binary\n;; ~f fixed-point (6dp) ~% newline\n;; ~& fresh line ~~ literal tilde\n;; ~t tab\n;;\n;; Signature: (format template arg...) -> string\n;; --------------------------------------------------------------------------\n\n(define\n (format template &rest args)\n (let\n ((buf (make-string-buffer)) (n (string-length template)))\n (define\n (consume-arg args)\n (if\n (nil? args)\n (list \"\" nil)\n (list (display-to-string (first args)) (rest args))))\n (define\n (consume-num args radix)\n (if\n (nil? args)\n (list \"\" nil)\n (list (number->string (first args) radix) (rest args))))\n (define\n (loop i args)\n (cond\n ((>= i n) (string-buffer->string buf))\n ((and (= (substring template i (+ i 1)) \"~\") (< (+ i 1) n))\n (let\n ((dir (substring template (+ i 1) (+ i 2))))\n (cond\n ((= dir \"a\")\n (let\n ((p (consume-arg args)))\n (do\n (string-buffer-append! buf (first p))\n (loop (+ i 2) (first (rest p))))))\n ((= dir \"s\")\n (if\n (nil? args)\n (loop (+ i 2) args)\n (do\n (string-buffer-append!\n buf\n (write-to-string (first args)))\n (loop (+ i 2) (rest args)))))\n ((= dir \"d\")\n (let\n ((p (consume-num args 10)))\n (do\n (string-buffer-append! buf (first p))\n (loop (+ i 2) (first (rest p))))))\n ((= dir \"x\")\n (let\n ((p (consume-num args 16)))\n (do\n (string-buffer-append! buf (first p))\n (loop (+ i 2) (first (rest p))))))\n ((= dir \"o\")\n (let\n ((p (consume-num args 8)))\n (do\n (string-buffer-append! buf (first p))\n (loop (+ i 2) (first (rest p))))))\n ((= dir \"b\")\n (let\n ((p (consume-num args 2)))\n (do\n (string-buffer-append! buf (first p))\n (loop (+ i 2) (first (rest p))))))\n ((= dir \"f\")\n (if\n (nil? args)\n (loop (+ i 2) args)\n (do\n (string-buffer-append!\n buf\n (format-decimal (first args) 6))\n (loop (+ i 2) (rest args)))))\n ((= dir \"%\")\n (do\n (string-buffer-append! buf \"\\n\")\n (loop (+ i 2) args)))\n ((= dir \"&\")\n (do\n (let\n ((so-far (string-buffer->string buf)))\n (when\n (or\n (= (string-length so-far) 0)\n (not\n (=\n (substring\n so-far\n (- (string-length so-far) 1)\n (string-length so-far))\n \"\\n\")))\n (string-buffer-append! buf \"\\n\")))\n (loop (+ i 2) args)))\n ((= dir \"~\")\n (do\n (string-buffer-append! buf \"~\")\n (loop (+ i 2) args)))\n ((= dir \"t\")\n (do\n (string-buffer-append! buf \"\\t\")\n (loop (+ i 2) args)))\n (else\n (do\n (string-buffer-append! buf \"~\")\n (loop (+ i 1) args))))))\n (else\n (do\n (string-buffer-append!\n buf\n (substring template i (+ i 1)))\n (loop (+ i 1) args)))))\n (loop 0 args)))\n";
var forms = sxParse(src);
var tmpEnv = merge({}, PRIMITIVES);
for (var i = 0; i < forms.length; i++) {
trampoline(evalExpr(forms[i], tmpEnv));
}
for (var k in tmpEnv) {
if (!PRIMITIVES[k]) PRIMITIVES[k] = tmpEnv[k];
}
})();
// =========================================================================
// Platform interface — DOM adapter (browser-only)
// =========================================================================
var _hasDom = typeof document !== "undefined";
// Register DOM adapter as the render dispatch target for the evaluator.
_renderExprFn = function(expr, env) { return renderToDom(expr, env, null); };
_renderMode = true; // Browser always evaluates in render context.
// Wire CEK render hooks — evaluator checks _renderCheck/_renderFn instead of
// the old renderActiveP()/isRenderExpr()/renderExpr() triple.
_renderCheck = function(expr, env) { return _renderMode && isRenderExpr(expr); };
_renderFn = function(expr, env) { return renderToDom(expr, env, null); };
var SVG_NS = "http://www.w3.org/2000/svg";
var MATH_NS = "http://www.w3.org/1998/Math/MathML";
function domCreateElement(tag, ns) {
if (!_hasDom) return null;
if (ns && ns !== NIL) return document.createElementNS(ns, tag);
return document.createElement(tag);
}
function createTextNode(s) {
return _hasDom ? document.createTextNode(s) : null;
}
function createComment(s) {
return _hasDom ? document.createComment(s || "") : null;
}
function createFragment() {
return _hasDom ? document.createDocumentFragment() : null;
}
function domAppend(parent, child) {
if (parent && child && !child._spread) parent.appendChild(child);
}
function domPrepend(parent, child) {
if (parent && child) parent.insertBefore(child, parent.firstChild);
}
function domSetAttr(el, name, val) {
if (el && el.setAttribute) el.setAttribute(name, val);
}
function domGetAttr(el, name) {
if (!el || !el.getAttribute) return NIL;
var v = el.getAttribute(name);
return v === null ? NIL : v;
}
function domRemoveAttr(el, name) {
if (el && el.removeAttribute) el.removeAttribute(name);
}
function domHasAttr(el, name) {
return !!(el && el.hasAttribute && el.hasAttribute(name));
}
function domParseHtml(html) {
if (!_hasDom) return null;
var tpl = document.createElement("template");
tpl.innerHTML = html;
return tpl.content;
}
function domClone(node) {
return node && node.cloneNode ? node.cloneNode(true) : node;
}
function domParent(el) { return el ? el.parentNode : null; }
function domId(el) { return el && el.id ? el.id : NIL; }
function domNodeType(el) { return el ? el.nodeType : 0; }
function domNodeName(el) { return el ? el.nodeName : ""; }
function domTextContent(el) { return el ? el.textContent || el.nodeValue || "" : ""; }
function domSetTextContent(el, s) { if (el) { if (el.nodeType === 3 || el.nodeType === 8) el.nodeValue = s; else el.textContent = s; } }
function domIsFragment(el) { return el ? el.nodeType === 11 : false; }
function domIsChildOf(child, parent) { return !!(parent && child && child.parentNode === parent); }
function domIsActiveElement(el) { return _hasDom && el === document.activeElement; }
function domIsInputElement(el) {
if (!el || !el.tagName) return false;
var t = el.tagName;
return t === "INPUT" || t === "TEXTAREA" || t === "SELECT";
}
function domFirstChild(el) { return el ? el.firstChild : null; }
function domNextSibling(el) { return el ? el.nextSibling : null; }
function domChildList(el) {
if (!el || !el.childNodes) return [];
return Array.prototype.slice.call(el.childNodes);
}
function domAttrList(el) {
if (!el || !el.attributes) return [];
var r = [];
for (var i = 0; i < el.attributes.length; i++) {
r.push([el.attributes[i].name, el.attributes[i].value]);
}
return r;
}
function domInsertBefore(parent, node, ref) {
if (parent && node) parent.insertBefore(node, ref || null);
}
function domInsertAfter(ref, node) {
if (ref && ref.parentNode && node && !node._spread) {
ref.parentNode.insertBefore(node, ref.nextSibling);
}
}
function domRemoveChild(parent, child) {
if (parent && child && child.parentNode === parent) parent.removeChild(child);
}
function domReplaceChild(parent, newChild, oldChild) {
if (parent && newChild && oldChild) parent.replaceChild(newChild, oldChild);
}
function domSetInnerHtml(el, html) {
if (el) el.innerHTML = html;
}
function domInsertAdjacentHtml(el, pos, html) {
if (el && el.insertAdjacentHTML) el.insertAdjacentHTML(pos, html);
}
function domGetStyle(el, prop) {
return el && el.style ? el.style[prop] || "" : "";
}
function domSetStyle(el, prop, val) {
if (el && el.style) el.style[prop] = val;
}
function domGetProp(el, name) { return el ? el[name] : NIL; }
function domSetProp(el, name, val) { if (el) el[name] = val; }
// Call a method on an object with correct this binding: (dom-call-method obj "methodName" arg1 arg2 ...)
function domCallMethod() {
var obj = arguments[0], method = arguments[1];
var args = Array.prototype.slice.call(arguments, 2);
if (obj && typeof obj[method] === 'function') {
try { return obj[method].apply(obj, args); }
catch(e) { console.error("[sx] dom-call-method error:", e); return NIL; }
}
return NIL;
}
// Post a message to an iframe's contentWindow without exposing the cross-origin
// Window object to the SX evaluator (which would trigger _thunk access errors).
function domPostMessage(iframe, msg, origin) {
try {
if (iframe && iframe.contentWindow) {
iframe.contentWindow.postMessage(msg, origin || '*');
}
} catch(e) { console.error("[sx] domPostMessage error:", e); }
return NIL;
}
function domAddClass(el, cls) {
if (el && el.classList) el.classList.add(cls);
}
function domRemoveClass(el, cls) {
if (el && el.classList) el.classList.remove(cls);
}
function domDispatch(el, name, detail) {
if (!_hasDom || !el || typeof el.dispatchEvent !== "function") return false;
var evt = new CustomEvent(name, { bubbles: true, cancelable: true, detail: detail || {} });
return el.dispatchEvent(evt);
}
function domListen(el, name, handler) {
if (!_hasDom || !el) return function() {};
// Wrap SX lambdas from runtime-evaluated island code into native fns
// If lambda takes 0 params, call without event arg (convenience for on-click handlers)
var wrapped = isLambda(handler)
? (lambdaParams(handler).length === 0
? function(e) { try { var r = cekCall(handler, NIL); if (globalThis._driveAsync) globalThis._driveAsync(r); } catch(err) { console.error("[sx-ref] domListen handler error:", name, err); } }
: function(e) { try { var r = cekCall(handler, [e]); if (globalThis._driveAsync) globalThis._driveAsync(r); } catch(err) { console.error("[sx-ref] domListen handler error:", name, err); } })
: handler;
if (name === "click") logInfo("domListen: click on <" + (el.tagName||"?").toLowerCase() + "> text=" + (el.textContent||"").substring(0,20) + " isLambda=" + isLambda(handler));
var passiveEvents = { touchstart: 1, touchmove: 1, wheel: 1, scroll: 1 };
var opts = passiveEvents[name] ? { passive: true } : undefined;
el.addEventListener(name, wrapped, opts);
return function() { el.removeEventListener(name, wrapped, opts); };
}
function eventDetail(e) {
return (e && e.detail != null) ? e.detail : NIL;
}
function domQuery(sel) {
return _hasDom ? document.querySelector(sel) : null;
}
function domEnsureElement(sel) {
if (!_hasDom) return null;
var el = document.querySelector(sel);
if (el) return el;
// Parse #id selector → create div with that id, append to body
if (sel.charAt(0) === '#') {
el = document.createElement('div');
el.id = sel.slice(1);
document.body.appendChild(el);
return el;
}
return null;
}
function domQueryAll(root, sel) {
if (!root || !root.querySelectorAll) return [];
return Array.prototype.slice.call(root.querySelectorAll(sel));
}
function domTagName(el) { return el && el.tagName ? el.tagName : ""; }
// Island DOM helpers
function domRemove(node) {
if (node && node.parentNode) node.parentNode.removeChild(node);
}
function domChildNodes(el) {
if (!el || !el.childNodes) return [];
return Array.prototype.slice.call(el.childNodes);
}
function domRemoveChildrenAfter(marker) {
if (!marker || !marker.parentNode) return;
var parent = marker.parentNode;
while (marker.nextSibling) parent.removeChild(marker.nextSibling);
}
function domSetData(el, key, val) {
if (el) { if (!el._sxData) el._sxData = {}; el._sxData[key] = val; }
}
function domGetData(el, key) {
return (el && el._sxData) ? (el._sxData[key] != null ? el._sxData[key] : NIL) : NIL;
}
function domInnerHtml(el) {
return (el && el.innerHTML != null) ? el.innerHTML : "";
}
function jsonParse(s) {
try { return JSON.parse(s); } catch(e) { return {}; }
}
// renderDomComponent and renderDomElement are transpiled from
// adapter-dom.sx — no imperative overrides needed.
// =========================================================================
// Platform interface — Engine pure logic (browser + node compatible)
// =========================================================================
function browserLocationHref() {
return typeof location !== "undefined" ? location.href : "";
}
function browserSameOrigin(url) {
try { return new URL(url, location.href).origin === location.origin; }
catch (e) { return true; }
}
function browserPushState(url) {
if (typeof history !== "undefined") {
try { history.pushState({ sxUrl: url, scrollY: typeof window !== "undefined" ? window.scrollY : 0 }, "", url); }
catch (e) {}
}
}
function browserReplaceState(url) {
if (typeof history !== "undefined") {
try { history.replaceState({ sxUrl: url, scrollY: typeof window !== "undefined" ? window.scrollY : 0 }, "", url); }
catch (e) {}
}
}
function nowMs() { return (typeof performance !== "undefined") ? performance.now() : Date.now(); }
function parseHeaderValue(s) {
if (!s) return null;
try {
if (s.charAt(0) === "{" && s.charAt(1) === ":") return parse(s);
return JSON.parse(s);
} catch (e) { return null; }
}
// =========================================================================
// Platform interface — Orchestration (browser-only)
// =========================================================================
// --- Stubs for define-library functions not transpiled by extract_defines ---
// These are defined in orchestration.sx's define-library and called from
// boot.sx top-level defines. The JS bootstrapper only transpiles top-level
// defines, so we provide stubs here for functions that need a JS identity.
function flushCollectedStyles() { return NIL; }
function processElements(root) { return NIL; }
// --- Browser/Network ---
function browserNavigate(url) {
if (typeof location !== "undefined") location.assign(url);
}
function browserReload() {
if (typeof location !== "undefined") location.reload();
}
function browserScrollTo(x, y) {
if (typeof window !== "undefined") window.scrollTo(x, y);
}
function browserMediaMatches(query) {
if (typeof window === "undefined") return false;
return window.matchMedia(query).matches;
}
function browserConfirm(msg) {
if (typeof window === "undefined") return false;
return window.confirm(msg);
}
function browserPrompt(msg) {
if (typeof window === "undefined") return NIL;
var r = window.prompt(msg);
return r === null ? NIL : r;
}
function csrfToken() {
if (!_hasDom) return NIL;
var m = document.querySelector('meta[name="csrf-token"]');
return m ? m.getAttribute("content") : NIL;
}
function isCrossOrigin(url) {
try {
var h = new URL(url, location.href).hostname;
return h !== location.hostname &&
(h.indexOf(".rose-ash.com") >= 0 || h.indexOf(".localhost") >= 0);
} catch (e) { return false; }
}
// --- Promises ---
function promiseResolve(val) { return Promise.resolve(val); }
function promiseThen(p, onResolve, onReject) {
if (!p || !p.then) return p;
return onReject ? p.then(onResolve, onReject) : p.then(onResolve);
}
function promiseCatch(p, fn) { return p && p.catch ? p.catch(fn) : p; }
function promiseDelayed(ms, value) {
return new Promise(function(resolve) {
setTimeout(function() { resolve(value); }, ms);
});
}
// --- Abort controllers ---
var _controllers = typeof WeakMap !== "undefined" ? new WeakMap() : null;
function abortPrevious(el) {
if (_controllers) {
var prev = _controllers.get(el);
if (prev) prev.abort();
}
}
function trackController(el, ctrl) {
if (_controllers) _controllers.set(el, ctrl);
}
var _targetControllers = typeof WeakMap !== "undefined" ? new WeakMap() : null;
function abortPreviousTarget(el) {
if (_targetControllers) {
var prev = _targetControllers.get(el);
if (prev) prev.abort();
}
}
function trackControllerTarget(el, ctrl) {
if (_targetControllers) _targetControllers.set(el, ctrl);
}
function newAbortController() {
return typeof AbortController !== "undefined" ? new AbortController() : { signal: null, abort: function() {} };
}
function controllerSignal(ctrl) { return ctrl ? ctrl.signal : null; }
function isAbortError(err) { return err && err.name === "AbortError"; }
// --- Timers ---
function _wrapSxFn(fn) {
if (fn && fn._lambda) {
return function() { return trampoline(callLambda(fn, [], lambdaClosure(fn))); };
}
return fn;
}
function setTimeout_(fn, ms) { return setTimeout(_wrapSxFn(fn), ms || 0); }
function setInterval_(fn, ms) { return setInterval(_wrapSxFn(fn), ms || 1000); }
function clearTimeout_(id) { clearTimeout(id); }
function clearInterval_(id) { clearInterval(id); }
function requestAnimationFrame_(fn) {
var cb = _wrapSxFn(fn);
if (typeof requestAnimationFrame !== "undefined") requestAnimationFrame(cb);
else setTimeout(cb, 16);
}
// --- Fetch ---
function fetchRequest(config, successFn, errorFn) {
var opts = { method: config.method, headers: config.headers };
if (config.signal) opts.signal = config.signal;
if (config.body && config.method !== "GET") opts.body = config.body;
if (config["cross-origin"]) opts.credentials = "include";
var p = (config.preloaded && config.preloaded !== NIL)
? Promise.resolve({
ok: true, status: 200,
headers: new Headers({ "Content-Type": config.preloaded["content-type"] || "" }),
text: function() { return Promise.resolve(config.preloaded.text); }
})
: fetch(config.url, opts);
return p.then(function(resp) {
return resp.text().then(function(text) {
var getHeader = function(name) {
var v = resp.headers.get(name);
return v === null ? NIL : v;
};
return successFn(resp.ok, resp.status, getHeader, text);
});
}).catch(function(err) {
return errorFn(err);
});
}
function fetchLocation(headerVal) {
if (!_hasDom) return;
var locUrl = headerVal;
try { var obj = JSON.parse(headerVal); locUrl = obj.path || obj; } catch (e) {}
fetch(locUrl, { headers: { "SX-Request": "true" } }).then(function(r) {
return r.text().then(function(t) {
var main = document.getElementById("main-panel");
if (main) {
main.innerHTML = t;
postSwap(main);
try { history.pushState({ sxUrl: locUrl }, "", locUrl); } catch (e) {}
}
});
});
}
function fetchAndRestore(main, url, headers, scrollY) {
var opts = { headers: headers };
try {
var h = new URL(url, location.href).hostname;
if (h !== location.hostname &&
(h.indexOf(".rose-ash.com") >= 0 || h.indexOf(".localhost") >= 0)) {
opts.credentials = "include";
}
} catch (e) {}
fetch(url, opts).then(function(resp) {
return resp.text().then(function(text) {
text = stripComponentScripts(text);
text = extractResponseCss(text);
text = text.trim();
if (text.charAt(0) === "(") {
try {
var dom = sxRender(text);
var container = document.createElement("div");
container.appendChild(dom);
processOobSwaps(container, function(t, oob, s) {
swapDomNodes(t, oob, s);
sxHydrate(t);
processElements(t);
});
var newMain = container.querySelector("#main-panel");
morphChildren(main, newMain || container);
postSwap(main);
if (typeof window !== "undefined") window.scrollTo(0, scrollY || 0);
} catch (err) {
console.error("sx-ref popstate error:", err);
location.reload();
}
} else {
var parser = new DOMParser();
var doc = parser.parseFromString(text, "text/html");
var newMain = doc.getElementById("main-panel");
if (newMain) {
morphChildren(main, newMain);
postSwap(main);
if (typeof window !== "undefined") window.scrollTo(0, scrollY || 0);
} else {
location.reload();
}
}
});
}).catch(function(err) {
logWarn("sx:popstate fetch error " + url + " — " + (err && err.message ? err.message : err));
location.reload();
});
}
function fetchStreaming(target, url, headers) {
// Streaming fetch for multi-stream pages.
// First chunk = OOB SX swap (shell with skeletons).
// Subsequent chunks = __sxResolve script tags filling suspense slots.
var opts = { headers: headers };
try {
var h = new URL(url, location.href).hostname;
if (h !== location.hostname &&
(h.indexOf(".rose-ash.com") >= 0 || h.indexOf(".localhost") >= 0)) {
opts.credentials = "include";
}
} catch (e) {}
fetch(url, opts).then(function(resp) {
if (!resp.ok || !resp.body) {
// Fallback: non-streaming
return resp.text().then(function(text) {
text = stripComponentScripts(text);
text = extractResponseCss(text);
text = text.trim();
if (text.charAt(0) === "(") {
var dom = sxRender(text);
var container = document.createElement("div");
container.appendChild(dom);
processOobSwaps(container, function(t, oob, s) {
swapDomNodes(t, oob, s);
sxHydrate(t);
processElements(t);
});
var newMain = container.querySelector("#main-panel");
morphChildren(target, newMain || container);
postSwap(target);
}
});
}
var reader = resp.body.getReader();
var decoder = new TextDecoder();
var buffer = "";
var initialSwapDone = false;
// Regex to match __sxResolve script tags
var RESOLVE_START = "";
function processResolveScripts() {
// Strip and load any extra component defs before resolve scripts
buffer = stripSxScripts(buffer);
var idx;
while ((idx = buffer.indexOf(RESOLVE_START)) >= 0) {
var endIdx = buffer.indexOf(RESOLVE_END, idx);
if (endIdx < 0) break; // incomplete, wait for more data
var argsStr = buffer.substring(idx + RESOLVE_START.length, endIdx);
buffer = buffer.substring(endIdx + RESOLVE_END.length);
// argsStr is: "stream-id","sx source"
var commaIdx = argsStr.indexOf(",");
if (commaIdx >= 0) {
try {
var id = JSON.parse(argsStr.substring(0, commaIdx));
var sx = JSON.parse(argsStr.substring(commaIdx + 1));
if (typeof Sx !== "undefined" && Sx.resolveSuspense) {
Sx.resolveSuspense(id, sx);
}
} catch (e) {
console.error("[sx-ref] resolve parse error:", e);
}
}
}
}
function pump() {
return reader.read().then(function(result) {
buffer += decoder.decode(result.value || new Uint8Array(), { stream: !result.done });
if (!initialSwapDone) {
// Look for the first resolve script — everything before it is OOB content
var scriptIdx = buffer.indexOf(" (without data-components or data-init).
// These contain extra component defs from streaming resolve chunks.
// data-init scripts are preserved for process-sx-scripts to evaluate as side effects.
var SxObj = typeof Sx !== "undefined" ? Sx : null;
return text.replace(/]*type="text\/sx"[^>]*>[\s\S]*?<\/script>/gi,
function(match) {
if (/data-init/.test(match)) return match; // preserve data-init scripts
var m = match.match(/]*>([\s\S]*?)<\/script>/i);
if (m && SxObj && SxObj.loadComponents) SxObj.loadComponents(m[1]);
return "";
});
}
function extractResponseCss(text) {
if (!_hasDom) return text;
var target = document.getElementById("sx-css");
if (!target) return text;
return text.replace(/]*data-sx-css[^>]*>([\s\S]*?)<\/style>/gi,
function(_, css) { target.textContent += css; return ""; });
}
function selectFromContainer(container, sel) {
var frag = document.createDocumentFragment();
sel.split(",").forEach(function(s) {
container.querySelectorAll(s.trim()).forEach(function(m) { frag.appendChild(m); });
});
return frag;
}
function childrenToFragment(container) {
var frag = document.createDocumentFragment();
while (container.firstChild) frag.appendChild(container.firstChild);
return frag;
}
function selectHtmlFromDoc(doc, sel) {
var parts = sel.split(",").map(function(s) { return s.trim(); });
var frags = [];
parts.forEach(function(s) {
doc.querySelectorAll(s).forEach(function(m) { frags.push(m.outerHTML); });
});
return frags.join("");
}
// --- Parsing ---
function tryParseJson(s) {
if (!s) return NIL;
try { return JSON.parse(s); } catch (e) { return NIL; }
}
// =========================================================================
// Platform interface — Boot (mount, hydrate, scripts, cookies)
// =========================================================================
function preloadIslandDefs() { return NIL; }
function resolveMountTarget(target) {
if (typeof target === "string") return _hasDom ? document.querySelector(target) : null;
return target;
}
function sxRenderWithEnv(source, extraEnv) {
var env = extraEnv ? merge(componentEnv, extraEnv) : componentEnv;
var exprs = parse(source);
if (!_hasDom) return null;
var frag = document.createDocumentFragment();
for (var i = 0; i < exprs.length; i++) {
var node = renderToDom(exprs[i], env, null);
if (node && !node._spread) frag.appendChild(node);
}
return frag;
}
function getRenderEnv(extraEnv) {
return extraEnv ? merge(componentEnv, PRIMITIVES, extraEnv) : merge(componentEnv, PRIMITIVES);
}
function mergeEnvs(base, newEnv) {
return newEnv ? merge(componentEnv, base, newEnv) : merge(componentEnv, base);
}
function sxLoadComponents(text) {
try {
var exprs = parse(text);
for (var i = 0; i < exprs.length; i++) trampoline(evalExpr(exprs[i], componentEnv));
} catch (err) {
logParseError("loadComponents", text, err);
throw err;
}
}
function setDocumentTitle(s) {
if (_hasDom) document.title = s || "";
}
function removeHeadElement(sel) {
if (!_hasDom) return;
var old = document.head.querySelector(sel);
if (old) old.parentNode.removeChild(old);
}
function querySxScripts(root) {
if (!_hasDom) return [];
var r = (root && root !== NIL) ? root : document;
return Array.prototype.slice.call(
r.querySelectorAll('script[type="text/sx"]'));
}
function queryPageScripts() {
if (!_hasDom) return [];
return Array.prototype.slice.call(
document.querySelectorAll('script[type="text/sx-pages"]'));
}
// --- localStorage ---
function localStorageGet(key) {
try { var v = localStorage.getItem(key); return v === null ? NIL : v; }
catch (e) { return NIL; }
}
function localStorageSet(key, val) {
try { localStorage.setItem(key, val); } catch (e) {}
}
function localStorageRemove(key) {
try { localStorage.removeItem(key); } catch (e) {}
}
// localStorage primitives registered in CEK_FIXUPS_JS for ordering
// --- Cookies ---
function setSxCompCookie(hash) {
if (_hasDom) document.cookie = "sx-comp-hash=" + hash + ";path=/;max-age=31536000;SameSite=Lax";
}
function clearSxCompCookie() {
if (_hasDom) document.cookie = "sx-comp-hash=;path=/;max-age=0;SameSite=Lax";
}
// --- Env helpers ---
function parseEnvAttr(el) {
var attr = el && el.getAttribute ? el.getAttribute("data-sx-env") : null;
if (!attr) return {};
try { return JSON.parse(attr); } catch (e) { return {}; }
}
function storeEnvAttr(el, base, newEnv) {
var merged = merge(base, newEnv);
if (el && el.setAttribute) el.setAttribute("data-sx-env", JSON.stringify(merged));
}
function toKebab(s) { return s.replace(/_/g, "-"); }
// --- Logging ---
function logInfo(msg) {
if (typeof console !== "undefined") console.log("[sx-ref] " + msg);
}
function logWarn(msg) {
if (typeof console !== "undefined") console.warn("[sx-ref] " + msg);
}
function logParseError(label, text, err) {
if (typeof console === "undefined") return;
var msg = err && err.message ? err.message : String(err);
var colMatch = msg.match(/col (\d+)/);
var lineMatch = msg.match(/line (\d+)/);
if (colMatch && text) {
var errLine = lineMatch ? parseInt(lineMatch[1]) : 1;
var errCol = parseInt(colMatch[1]);
var lines = text.split("\n");
var pos = 0;
for (var i = 0; i < errLine - 1 && i < lines.length; i++) pos += lines[i].length + 1;
pos += errCol;
var ws = 80;
var start = Math.max(0, pos - ws);
var end = Math.min(text.length, pos + ws);
console.error("[sx-ref] " + label + ":", msg,
"\n around error (pos ~" + pos + "):",
"\n \u00ab" + text.substring(start, pos) + "\u26d4" + text.substring(pos, end) + "\u00bb");
} else {
console.error("[sx-ref] " + label + ":", msg);
}
}
// =========================================================================
// Async IO: Promise-aware rendering for client-side IO primitives
// =========================================================================
//
// IO primitives (query, current-user, etc.) return Promises on the client.
// asyncRenderToDom walks the component tree; when it encounters an IO
// primitive, it awaits the Promise and continues rendering.
//
// The sync evaluator/renderer is untouched. This is a separate async path
// used only when a page's component tree contains IO references.
var IO_PRIMITIVES = {};
function registerIoPrimitive(name, fn) {
IO_PRIMITIVES[name] = fn;
}
function isPromise(x) {
return x != null && typeof x === "object" && typeof x.then === "function";
}
// Async trampoline: resolves thunks, awaits Promises
function asyncTrampoline(val) {
if (isPromise(val)) return val.then(asyncTrampoline);
if (isThunk(val)) return asyncTrampoline(evalExpr(thunkExpr(val), thunkEnv(val)));
return val;
}
// Async eval: like trampoline(evalExpr(...)) but handles IO primitives
function asyncEval(expr, env) {
// Intercept IO primitive calls at the AST level
if (Array.isArray(expr) && expr.length > 0) {
var head = expr[0];
if (head && head._sym) {
var name = head.name;
if (IO_PRIMITIVES[name]) {
// Evaluate args, then call the IO primitive
return asyncEvalIoCall(name, expr.slice(1), env);
}
}
}
// Non-IO: use sync eval, but result might be a thunk
var result = evalExpr(expr, env);
return asyncTrampoline(result);
}
function asyncEvalIoCall(name, rawArgs, env) {
// Parse keyword args and positional args, evaluating each (may be async)
var kwargs = {};
var args = [];
var promises = [];
var i = 0;
while (i < rawArgs.length) {
var arg = rawArgs[i];
if (arg && arg._kw && (i + 1) < rawArgs.length) {
var kName = arg.name;
var kVal = asyncEval(rawArgs[i + 1], env);
if (isPromise(kVal)) {
(function(k) { promises.push(kVal.then(function(v) { kwargs[k] = v; })); })(kName);
} else {
kwargs[kName] = kVal;
}
i += 2;
} else {
var aVal = asyncEval(arg, env);
if (isPromise(aVal)) {
(function(idx) { promises.push(aVal.then(function(v) { args[idx] = v; })); })(args.length);
args.push(null); // placeholder
} else {
args.push(aVal);
}
i++;
}
}
var ioFn = IO_PRIMITIVES[name];
if (promises.length > 0) {
return Promise.all(promises).then(function() { return ioFn(args, kwargs); });
}
return ioFn(args, kwargs);
}
// Async render-to-dom: returns Promise or Node
function asyncRenderToDom(expr, env, ns) {
// Literals
if (expr === NIL || expr === null || expr === undefined) return null;
if (expr === true || expr === false) return null;
if (typeof expr === "string") return document.createTextNode(expr);
if (typeof expr === "number") return document.createTextNode(String(expr));
// Symbol -> async eval then render
if (expr && expr._sym) {
var val = asyncEval(expr, env);
if (isPromise(val)) return val.then(function(v) { return asyncRenderToDom(v, env, ns); });
return asyncRenderToDom(val, env, ns);
}
// Keyword
if (expr && expr._kw) return document.createTextNode(expr.name);
// DocumentFragment / DOM nodes pass through
if (expr instanceof DocumentFragment || (expr && expr.nodeType)) return expr;
// Dict -> skip
if (expr && typeof expr === "object" && !Array.isArray(expr)) return null;
// List
if (!Array.isArray(expr) || expr.length === 0) return null;
var head = expr[0];
if (!head) return null;
// Symbol head
if (head._sym) {
var hname = head.name;
// IO primitive
if (IO_PRIMITIVES[hname]) {
var ioResult = asyncEval(expr, env);
if (isPromise(ioResult)) return ioResult.then(function(v) { return asyncRenderToDom(v, env, ns); });
return asyncRenderToDom(ioResult, env, ns);
}
// Fragment
if (hname === "<>") return asyncRenderChildren(expr.slice(1), env, ns);
// raw!
if (hname === "raw!") {
return asyncEvalRaw(expr.slice(1), env);
}
// Special forms that need async handling
if (hname === "if") return asyncRenderIf(expr, env, ns);
if (hname === "when") return asyncRenderWhen(expr, env, ns);
if (hname === "cond") return asyncRenderCond(expr, env, ns);
if (hname === "case") return asyncRenderCase(expr, env, ns);
if (hname === "let" || hname === "let*") return asyncRenderLet(expr, env, ns);
if (hname === "begin" || hname === "do") return asyncRenderChildren(expr.slice(1), env, ns);
if (hname === "map") return asyncRenderMap(expr, env, ns);
if (hname === "map-indexed") return asyncRenderMapIndexed(expr, env, ns);
if (hname === "for-each") return asyncRenderMap(expr, env, ns);
// define/defcomp/defmacro and custom special forms — eval for side effects
if (hname === "define" || hname === "defcomp" || hname === "defmacro" ||
hname === "defstyle" || hname === "defhandler" ||
hname === "deftype" || hname === "defeffect" ||
(typeof _customSpecialForms !== "undefined" && _customSpecialForms[hname])) {
trampoline(evalExpr(expr, env));
return null;
}
// quote
if (hname === "quote") return null;
// lambda/fn
if (hname === "lambda" || hname === "fn") {
trampoline(evalExpr(expr, env));
return null;
}
// and/or — eval and render result
if (hname === "and" || hname === "or" || hname === "->") {
var aoResult = asyncEval(expr, env);
if (isPromise(aoResult)) return aoResult.then(function(v) { return asyncRenderToDom(v, env, ns); });
return asyncRenderToDom(aoResult, env, ns);
}
// set!
if (hname === "set!") {
asyncEval(expr, env);
return null;
}
// Component or Island
if (hname.charAt(0) === "~") {
var comp = env[hname];
if (comp && comp._island) return renderDomIsland(comp, expr.slice(1), env, ns);
if (comp && comp._component) return asyncRenderComponent(comp, expr.slice(1), env, ns);
if (comp && comp._macro) {
var expanded = trampoline(expandMacro(comp, expr.slice(1), env));
return asyncRenderToDom(expanded, env, ns);
}
}
// Macro
if (env[hname] && env[hname]._macro) {
var mac = env[hname];
var expanded = trampoline(expandMacro(mac, expr.slice(1), env));
return asyncRenderToDom(expanded, env, ns);
}
// HTML tag
if (typeof renderDomElement === "function" && contains(HTML_TAGS, hname)) {
return asyncRenderElement(hname, expr.slice(1), env, ns);
}
// html: prefix
if (hname.indexOf("html:") === 0) {
return asyncRenderElement(hname.slice(5), expr.slice(1), env, ns);
}
// Custom element
if (hname.indexOf("-") >= 0 && expr.length > 1 && expr[1] && expr[1]._kw) {
return asyncRenderElement(hname, expr.slice(1), env, ns);
}
// SVG context
if (ns) return asyncRenderElement(hname, expr.slice(1), env, ns);
// Fallback: eval and render
var fResult = asyncEval(expr, env);
if (isPromise(fResult)) return fResult.then(function(v) { return asyncRenderToDom(v, env, ns); });
return asyncRenderToDom(fResult, env, ns);
}
// Non-symbol head: eval call
var cResult = asyncEval(expr, env);
if (isPromise(cResult)) return cResult.then(function(v) { return asyncRenderToDom(v, env, ns); });
return asyncRenderToDom(cResult, env, ns);
}
function asyncRenderChildren(exprs, env, ns) {
var frag = document.createDocumentFragment();
var pending = [];
for (var i = 0; i < exprs.length; i++) {
var result = asyncRenderToDom(exprs[i], env, ns);
if (isPromise(result)) {
// Insert placeholder, replace when resolved
var placeholder = document.createComment("async");
frag.appendChild(placeholder);
(function(ph) {
pending.push(result.then(function(node) {
if (node) ph.parentNode.replaceChild(node, ph);
else ph.parentNode.removeChild(ph);
}));
})(placeholder);
} else if (result && !result._spread) {
frag.appendChild(result);
}
}
if (pending.length > 0) {
return Promise.all(pending).then(function() { return frag; });
}
return frag;
}
function asyncRenderElement(tag, args, env, ns) {
var newNs = tag === "svg" ? SVG_NS : tag === "math" ? MATH_NS : ns;
var el = domCreateElement(tag, newNs);
var pending = [];
var isVoid = contains(VOID_ELEMENTS, tag);
for (var i = 0; i < args.length; i++) {
var arg = args[i];
if (arg && arg._kw && (i + 1) < args.length) {
var attrName = arg.name;
var attrVal = asyncEval(args[i + 1], env);
i++;
if (isPromise(attrVal)) {
(function(an, av) {
pending.push(av.then(function(v) {
if (!isNil(v) && v !== false) {
if (contains(BOOLEAN_ATTRS, an)) { if (isSxTruthy(v)) el.setAttribute(an, ""); }
else if (v === true) el.setAttribute(an, "");
else el.setAttribute(an, String(v));
}
}));
})(attrName, attrVal);
} else {
if (!isNil(attrVal) && attrVal !== false) {
if (contains(BOOLEAN_ATTRS, attrName)) {
if (isSxTruthy(attrVal)) el.setAttribute(attrName, "");
} else if (attrVal === true) {
el.setAttribute(attrName, "");
} else {
el.setAttribute(attrName, String(attrVal));
}
}
}
} else if (!isVoid) {
var child = asyncRenderToDom(arg, env, newNs);
if (isPromise(child)) {
var placeholder = document.createComment("async");
el.appendChild(placeholder);
(function(ph) {
pending.push(child.then(function(node) {
if (node) ph.parentNode.replaceChild(node, ph);
else ph.parentNode.removeChild(ph);
}));
})(placeholder);
} else if (child) {
if (child._spread) {
// Spread: merge attrs onto parent element
var sa = child.attrs || {};
for (var sk in sa) {
if (sk === "class") {
var ec = el.getAttribute("class") || "";
el.setAttribute("class", ec ? ec + " " + sa[sk] : sa[sk]);
} else if (sk === "style") {
var es = el.getAttribute("style") || "";
el.setAttribute("style", es ? es + ";" + sa[sk] : sa[sk]);
} else {
el.setAttribute(sk, String(sa[sk]));
}
}
} else {
el.appendChild(child);
}
}
}
}
if (pending.length > 0) return Promise.all(pending).then(function() { return el; });
return el;
}
function asyncRenderComponent(comp, args, env, ns) {
var kwargs = {};
var children = [];
var pending = [];
for (var i = 0; i < args.length; i++) {
var arg = args[i];
if (arg && arg._kw && (i + 1) < args.length) {
var kName = arg.name;
var kVal = asyncEval(args[i + 1], env);
if (isPromise(kVal)) {
(function(k) { pending.push(kVal.then(function(v) { kwargs[k] = v; })); })(kName);
} else {
kwargs[kName] = kVal;
}
i++;
} else {
children.push(arg);
}
}
function doRender() {
var local = Object.create(componentClosure(comp));
for (var k in env) if (env.hasOwnProperty(k)) local[k] = env[k];
var params = componentParams(comp);
for (var j = 0; j < params.length; j++) {
local[params[j]] = params[j] in kwargs ? kwargs[params[j]] : NIL;
}
if (componentHasChildren(comp)) {
var childResult = asyncRenderChildren(children, env, ns);
if (isPromise(childResult)) {
return childResult.then(function(childFrag) {
local["children"] = childFrag;
return asyncRenderToDom(componentBody(comp), local, ns);
});
}
local["children"] = childResult;
}
return asyncRenderToDom(componentBody(comp), local, ns);
}
if (pending.length > 0) return Promise.all(pending).then(doRender);
return doRender();
}
function asyncRenderIf(expr, env, ns) {
var cond = asyncEval(expr[1], env);
if (isPromise(cond)) {
return cond.then(function(v) {
return isSxTruthy(v)
? asyncRenderToDom(expr[2], env, ns)
: (expr.length > 3 ? asyncRenderToDom(expr[3], env, ns) : null);
});
}
return isSxTruthy(cond)
? asyncRenderToDom(expr[2], env, ns)
: (expr.length > 3 ? asyncRenderToDom(expr[3], env, ns) : null);
}
function asyncRenderWhen(expr, env, ns) {
var cond = asyncEval(expr[1], env);
if (isPromise(cond)) {
return cond.then(function(v) {
return isSxTruthy(v) ? asyncRenderChildren(expr.slice(2), env, ns) : null;
});
}
return isSxTruthy(cond) ? asyncRenderChildren(expr.slice(2), env, ns) : null;
}
function asyncRenderCond(expr, env, ns) {
var clauses = expr.slice(1);
function step(idx) {
if (idx >= clauses.length) return null;
var clause = clauses[idx];
if (!Array.isArray(clause) || clause.length < 2) return step(idx + 1);
var test = clause[0];
if ((test && test._sym && (test.name === "else" || test.name === ":else")) ||
(test && test._kw && test.name === "else")) {
return asyncRenderToDom(clause[1], env, ns);
}
var v = asyncEval(test, env);
if (isPromise(v)) return v.then(function(r) { return isSxTruthy(r) ? asyncRenderToDom(clause[1], env, ns) : step(idx + 1); });
return isSxTruthy(v) ? asyncRenderToDom(clause[1], env, ns) : step(idx + 1);
}
return step(0);
}
function asyncRenderCase(expr, env, ns) {
var matchVal = asyncEval(expr[1], env);
function doCase(mv) {
var clauses = expr.slice(2);
for (var i = 0; i < clauses.length - 1; i += 2) {
var test = clauses[i];
if ((test && test._kw && test.name === "else") ||
(test && test._sym && (test.name === "else" || test.name === ":else"))) {
return asyncRenderToDom(clauses[i + 1], env, ns);
}
var tv = trampoline(evalExpr(test, env));
if (mv === tv || (typeof mv === "string" && typeof tv === "string" && mv === tv)) {
return asyncRenderToDom(clauses[i + 1], env, ns);
}
}
return null;
}
if (isPromise(matchVal)) return matchVal.then(doCase);
return doCase(matchVal);
}
function asyncRenderLet(expr, env, ns) {
var bindings = expr[1];
var local = Object.create(env);
for (var k in env) if (env.hasOwnProperty(k)) local[k] = env[k];
function bindStep(idx) {
if (!Array.isArray(bindings)) return asyncRenderChildren(expr.slice(2), local, ns);
// Nested pairs: ((a 1) (b 2))
if (bindings.length > 0 && Array.isArray(bindings[0])) {
if (idx >= bindings.length) return asyncRenderChildren(expr.slice(2), local, ns);
var b = bindings[idx];
var vname = b[0]._sym ? b[0].name : String(b[0]);
var val = asyncEval(b[1], local);
if (isPromise(val)) return val.then(function(v) { local[vname] = v; return bindStep(idx + 1); });
local[vname] = val;
return bindStep(idx + 1);
}
// Flat pairs: (a 1 b 2)
if (idx >= bindings.length) return asyncRenderChildren(expr.slice(2), local, ns);
var vn = bindings[idx]._sym ? bindings[idx].name : String(bindings[idx]);
var vv = asyncEval(bindings[idx + 1], local);
if (isPromise(vv)) return vv.then(function(v) { local[vn] = v; return bindStep(idx + 2); });
local[vn] = vv;
return bindStep(idx + 2);
}
return bindStep(0);
}
function asyncRenderMap(expr, env, ns) {
var fn = asyncEval(expr[1], env);
var coll = asyncEval(expr[2], env);
function doMap(f, c) {
if (!Array.isArray(c)) return null;
var frag = document.createDocumentFragment();
var pending = [];
for (var i = 0; i < c.length; i++) {
var item = c[i];
var result;
if (f && f._lambda) {
var lenv = Object.create(f.closure || env);
for (var k in env) if (env.hasOwnProperty(k)) lenv[k] = env[k];
lenv[f.params[0]] = item;
result = asyncRenderToDom(f.body, lenv, null);
} else if (typeof f === "function") {
var r = f(item);
result = isPromise(r) ? r.then(function(v) { return asyncRenderToDom(v, env, null); }) : asyncRenderToDom(r, env, null);
} else {
result = asyncRenderToDom(item, env, null);
}
if (isPromise(result)) {
var ph = document.createComment("async");
frag.appendChild(ph);
(function(p) { pending.push(result.then(function(n) { if (n) p.parentNode.replaceChild(n, p); else p.parentNode.removeChild(p); })); })(ph);
} else if (result && !result._spread) {
frag.appendChild(result);
}
}
if (pending.length) return Promise.all(pending).then(function() { return frag; });
return frag;
}
if (isPromise(fn) || isPromise(coll)) {
return Promise.all([isPromise(fn) ? fn : Promise.resolve(fn), isPromise(coll) ? coll : Promise.resolve(coll)])
.then(function(r) { return doMap(r[0], r[1]); });
}
return doMap(fn, coll);
}
function asyncRenderMapIndexed(expr, env, ns) {
var fn = asyncEval(expr[1], env);
var coll = asyncEval(expr[2], env);
function doMap(f, c) {
if (!Array.isArray(c)) return null;
var frag = document.createDocumentFragment();
var pending = [];
for (var i = 0; i < c.length; i++) {
var item = c[i];
var result;
if (f && f._lambda) {
var lenv = Object.create(f.closure || env);
for (var k in env) if (env.hasOwnProperty(k)) lenv[k] = env[k];
lenv[f.params[0]] = i;
lenv[f.params[1]] = item;
result = asyncRenderToDom(f.body, lenv, null);
} else if (typeof f === "function") {
var r = f(i, item);
result = isPromise(r) ? r.then(function(v) { return asyncRenderToDom(v, env, null); }) : asyncRenderToDom(r, env, null);
} else {
result = asyncRenderToDom(item, env, null);
}
if (isPromise(result)) {
var ph = document.createComment("async");
frag.appendChild(ph);
(function(p) { pending.push(result.then(function(n) { if (n) p.parentNode.replaceChild(n, p); else p.parentNode.removeChild(p); })); })(ph);
} else if (result && !result._spread) {
frag.appendChild(result);
}
}
if (pending.length) return Promise.all(pending).then(function() { return frag; });
return frag;
}
if (isPromise(fn) || isPromise(coll)) {
return Promise.all([isPromise(fn) ? fn : Promise.resolve(fn), isPromise(coll) ? coll : Promise.resolve(coll)])
.then(function(r) { return doMap(r[0], r[1]); });
}
return doMap(fn, coll);
}
function asyncEvalRaw(args, env) {
var parts = [];
var pending = [];
for (var i = 0; i < args.length; i++) {
var val = asyncEval(args[i], env);
if (isPromise(val)) {
(function(idx) {
pending.push(val.then(function(v) { parts[idx] = v; }));
})(parts.length);
parts.push(null);
} else {
parts.push(val);
}
}
function assemble() {
var html = "";
for (var j = 0; j < parts.length; j++) {
var p = parts[j];
if (p && p._rawHtml) html += p.html;
else if (typeof p === "string") html += p;
else if (p != null && !isNil(p)) html += String(p);
}
var el = document.createElement("span");
el.innerHTML = html;
var frag = document.createDocumentFragment();
while (el.firstChild) frag.appendChild(el.firstChild);
return frag;
}
if (pending.length) return Promise.all(pending).then(assemble);
return assemble();
}
// Async version of sxRenderWithEnv — returns Promise
function asyncSxRenderWithEnv(source, extraEnv) {
var env = extraEnv ? merge(componentEnv, extraEnv) : componentEnv;
var exprs = parse(source);
if (!_hasDom) return Promise.resolve(null);
return asyncRenderChildren(exprs, env, null);
}
// IO proxy cache: key → { value, expires }
var _ioCache = {};
var IO_CACHE_TTL = 300000; // 5 minutes
// Register a server-proxied IO primitive: fetches from /sx/io/
// Uses GET for short args, POST for long payloads (URL length safety).
// Results are cached client-side by (name + args) with a TTL.
function registerProxiedIo(name) {
registerIoPrimitive(name, function(args, kwargs) {
// Cache key: name + serialized args
var cacheKey = name;
for (var ci = 0; ci < args.length; ci++) cacheKey += " " + String(args[ci]);
for (var ck in kwargs) {
if (kwargs.hasOwnProperty(ck)) cacheKey += " " + ck + "=" + String(kwargs[ck]);
}
var cached = _ioCache[cacheKey];
if (cached && cached.expires > Date.now()) return cached.value;
var url = "/sx/io/" + encodeURIComponent(name);
var qs = [];
for (var i = 0; i < args.length; i++) {
qs.push("_arg" + i + "=" + encodeURIComponent(String(args[i])));
}
for (var k in kwargs) {
if (kwargs.hasOwnProperty(k)) {
qs.push(encodeURIComponent(k) + "=" + encodeURIComponent(String(kwargs[k])));
}
}
var queryStr = qs.join("&");
var fetchOpts;
if (queryStr.length > 1500) {
// POST with JSON body for long payloads
var sArgs = [];
for (var j = 0; j < args.length; j++) sArgs.push(String(args[j]));
var sKwargs = {};
for (var kk in kwargs) {
if (kwargs.hasOwnProperty(kk)) sKwargs[kk] = String(kwargs[kk]);
}
var postHeaders = { "SX-Request": "true", "Content-Type": "application/json" };
var csrf = csrfToken();
if (csrf && csrf !== NIL) postHeaders["X-CSRFToken"] = csrf;
fetchOpts = {
method: "POST",
headers: postHeaders,
body: JSON.stringify({ args: sArgs, kwargs: sKwargs })
};
} else {
if (queryStr) url += "?" + queryStr;
fetchOpts = { headers: { "SX-Request": "true" } };
}
var result = fetch(url, fetchOpts)
.then(function(resp) {
if (!resp.ok) {
logWarn("sx:io " + name + " failed " + resp.status);
return NIL;
}
return resp.text();
})
.then(function(text) {
if (!text || text === "nil") return NIL;
try {
var exprs = parse(text);
var val = exprs.length === 1 ? exprs[0] : exprs;
_ioCache[cacheKey] = { value: val, expires: Date.now() + IO_CACHE_TTL };
return val;
} catch (e) {
logWarn("sx:io " + name + " parse error: " + (e && e.message ? e.message : e));
return NIL;
}
})
.catch(function(e) {
logWarn("sx:io " + name + " network error: " + (e && e.message ? e.message : e));
return NIL;
});
// Cache the in-flight promise too (dedup concurrent calls for same args)
_ioCache[cacheKey] = { value: result, expires: Date.now() + IO_CACHE_TTL };
return result;
});
}
// Register IO deps as proxied primitives (idempotent, called per-page)
function registerIoDeps(names) {
if (!names || !names.length) return;
var registered = 0;
for (var i = 0; i < names.length; i++) {
var name = names[i];
if (!IO_PRIMITIVES[name]) {
registerProxiedIo(name);
registered++;
}
}
if (registered > 0) {
logInfo("sx:io registered " + registered + " proxied primitives: " + names.join(", "));
}
}
// Parser — compiled from parser.sx (see PLATFORM_PARSER_JS for ident char classes)
var parse = sxParse;
// =========================================================================
// Public API
// =========================================================================
var componentEnv = {};
function loadComponents(source) {
var exprs = parse(source);
for (var i = 0; i < exprs.length; i++) {
trampoline(evalExpr(exprs[i], componentEnv));
}
}
function render(source) {
if (!_hasDom) {
var exprs = parse(source);
var parts = [];
for (var i = 0; i < exprs.length; i++) parts.push(renderToHtml(exprs[i], merge(componentEnv)));
return parts.join("");
}
var exprs = parse(source);
var frag = document.createDocumentFragment();
for (var i = 0; i < exprs.length; i++) { var _r = renderToDom(exprs[i], merge(componentEnv), null); if (_r && !_r._spread) frag.appendChild(_r); }
return frag;
}
function renderToString(source) {
var exprs = parse(source);
var parts = [];
for (var i = 0; i < exprs.length; i++) parts.push(renderToHtml(exprs[i], merge(componentEnv)));
return parts.join("");
}
var Sx = {
VERSION: "ref-2.0",
parse: parse,
parseAll: parse,
eval: function(expr, env) { return trampoline(evalExpr(expr, env || merge(componentEnv))); },
loadComponents: loadComponents,
render: render,
renderToString: renderToString,
serialize: serialize,
NIL: NIL,
Symbol: Symbol,
Keyword: Keyword,
isTruthy: isSxTruthy,
isNil: isNil,
componentEnv: componentEnv,
setRenderActive: function(val) { setRenderActiveB(val); },
renderToHtml: function(expr, env) { return renderToHtml(expr, env || merge(componentEnv)); },
renderToSx: function(expr, env) { return renderToSx(expr, env || merge(componentEnv)); },
renderToDom: _hasDom ? function(expr, env, ns) { return renderToDom(expr, env || merge(componentEnv), ns || null); } : null,
parseTriggerSpec: typeof parseTriggerSpec === "function" ? parseTriggerSpec : null,
parseTime: typeof parseTime === "function" ? parseTime : null,
defaultTrigger: typeof defaultTrigger === "function" ? defaultTrigger : null,
parseSwapSpec: typeof parseSwapSpec === "function" ? parseSwapSpec : null,
parseRetrySpec: typeof parseRetrySpec === "function" ? parseRetrySpec : null,
nextRetryMs: typeof nextRetryMs === "function" ? nextRetryMs : null,
filterParams: typeof filterParams === "function" ? filterParams : null,
morphNode: typeof morphNode === "function" ? morphNode : null,
morphChildren: typeof morphChildren === "function" ? morphChildren : null,
swapDomNodes: typeof swapDomNodes === "function" ? swapDomNodes : null,
process: typeof processElements === "function" ? processElements : null,
executeRequest: typeof executeRequest === "function" ? executeRequest : null,
postSwap: typeof postSwap === "function" ? postSwap : null,
processScripts: typeof processSxScripts === "function" ? processSxScripts : null,
mount: typeof sxMount === "function" ? sxMount : null,
hydrate: typeof sxHydrateElements === "function" ? sxHydrateElements : null,
update: typeof sxUpdateElement === "function" ? sxUpdateElement : null,
renderComponent: typeof sxRenderComponent === "function" ? sxRenderComponent : null,
getEnv: function() { return componentEnv; },
resolveSuspense: typeof resolveSuspense === "function" ? resolveSuspense : null,
hydrateIslands: typeof sxHydrateIslands === "function" ? sxHydrateIslands : null,
disposeIsland: typeof disposeIsland === "function" ? disposeIsland : null,
init: typeof bootInit === "function" ? bootInit : null,
scanRefs: typeof scanRefs === "function" ? scanRefs : null,
scanComponentsFromSource: typeof scanComponentsFromSource === "function" ? scanComponentsFromSource : null,
transitiveDeps: typeof transitiveDeps === "function" ? transitiveDeps : null,
computeAllDeps: typeof computeAllDeps === "function" ? computeAllDeps : null,
componentsNeeded: typeof componentsNeeded === "function" ? componentsNeeded : null,
pageComponentBundle: typeof pageComponentBundle === "function" ? pageComponentBundle : null,
pageCssClasses: typeof pageCssClasses === "function" ? pageCssClasses : null,
scanIoRefs: typeof scanIoRefs === "function" ? scanIoRefs : null,
transitiveIoRefs: typeof transitiveIoRefs === "function" ? transitiveIoRefs : null,
computeAllIoRefs: typeof computeAllIoRefs === "function" ? computeAllIoRefs : null,
componentPure_p: typeof componentPure_p === "function" ? componentPure_p : null,
categorizeSpecialForms: typeof categorizeSpecialForms === "function" ? categorizeSpecialForms : null,
buildReferenceData: typeof buildReferenceData === "function" ? buildReferenceData : null,
buildAttrDetail: typeof buildAttrDetail === "function" ? buildAttrDetail : null,
buildHeaderDetail: typeof buildHeaderDetail === "function" ? buildHeaderDetail : null,
buildEventDetail: typeof buildEventDetail === "function" ? buildEventDetail : null,
buildComponentSource: typeof buildComponentSource === "function" ? buildComponentSource : null,
buildBundleAnalysis: typeof buildBundleAnalysis === "function" ? buildBundleAnalysis : null,
buildRoutingAnalysis: typeof buildRoutingAnalysis === "function" ? buildRoutingAnalysis : null,
buildAffinityAnalysis: typeof buildAffinityAnalysis === "function" ? buildAffinityAnalysis : null,
splitPathSegments: typeof splitPathSegments === "function" ? splitPathSegments : null,
parseRoutePattern: typeof parseRoutePattern === "function" ? parseRoutePattern : null,
matchRoute: typeof matchRoute === "function" ? matchRoute : null,
findMatchingRoute: typeof findMatchingRoute === "function" ? findMatchingRoute : null,
urlToExpr: typeof urlToExpr === "function" ? urlToExpr : null,
autoQuoteUnknowns: typeof autoQuoteUnknowns === "function" ? autoQuoteUnknowns : null,
prepareUrlExpr: typeof prepareUrlExpr === "function" ? prepareUrlExpr : null,
registerIo: typeof registerIoPrimitive === "function" ? registerIoPrimitive : null,
registerIoDeps: typeof registerIoDeps === "function" ? registerIoDeps : null,
asyncRender: typeof asyncSxRenderWithEnv === "function" ? asyncSxRenderWithEnv : null,
asyncRenderToDom: typeof asyncRenderToDom === "function" ? asyncRenderToDom : null,
signal: typeof signal === "function" ? signal : null,
deref: typeof deref === "function" ? deref : null,
reset: typeof reset_b === "function" ? reset_b : null,
swap: typeof swap_b === "function" ? swap_b : null,
computed: typeof computed === "function" ? computed : null,
effect: typeof effect === "function" ? effect : null,
batch: typeof batch === "function" ? batch : null,
isSignal: typeof isSignal === "function" ? isSignal : null,
makeSignal: typeof makeSignal === "function" ? makeSignal : null,
defStore: typeof defStore === "function" ? defStore : null,
useStore: typeof useStore === "function" ? useStore : null,
clearStores: typeof clearStores === "function" ? clearStores : null,
emitEvent: typeof emitEvent === "function" ? emitEvent : null,
onEvent: typeof onEvent === "function" ? onEvent : null,
bridgeEvent: typeof bridgeEvent === "function" ? bridgeEvent : null,
makeSpread: makeSpread,
isSpread: isSpread,
spreadAttrs: spreadAttrs,
collect: sxCollect,
collected: sxCollected,
clearCollected: sxClearCollected,
scopePush: scopePush,
scopePop: scopePop,
providePush: providePush,
providePop: providePop,
context: sxContext,
emit: sxEmit,
emitted: sxEmitted,
cekRun: cekRun,
makeCekState: makeCekState,
makeCekValue: makeCekValue,
cekStep: cekStep,
cekTerminal: cekTerminal_p,
cekValue: cekValue,
makeReactiveResetFrame: makeReactiveResetFrame,
evalExpr: evalExpr,
_version: "ref-2.0 (boot+browser-lib+dom+dom-lib+engine+html+orchestration+parser+sx, bootstrap-compiled)"
};
// --- Popstate listener ---
if (typeof window !== "undefined") {
window.addEventListener("popstate", function(e) {
handlePopstate(e && e.state ? e.state.scrollY || 0 : 0);
});
}
// --- Auto-init ---
if (typeof document !== "undefined") {
var _sxInit = function() {
bootInit();
// Process any suspense resolutions that arrived before init
if (global.__sxPending) {
for (var pi = 0; pi < global.__sxPending.length; pi++) {
resolveSuspense(global.__sxPending[pi].id, global.__sxPending[pi].sx);
}
global.__sxPending = null;
}
// Set up direct resolution for future chunks
global.__sxResolve = function(id, sx) { resolveSuspense(id, sx); };
// Register service worker for offline data caching
if ("serviceWorker" in navigator) {
navigator.serviceWorker.register("/sx-sw.js", { scope: "/" }).then(function(reg) {
logInfo("sx:sw registered (scope: " + reg.scope + ")");
}).catch(function(err) {
logWarn("sx:sw registration failed: " + (err && err.message ? err.message : err));
});
}
};
if (document.readyState === "loading") {
document.addEventListener("DOMContentLoaded", _sxInit);
} else {
_sxInit();
}
}
if (typeof module !== "undefined" && module.exports) module.exports = Sx;
else global.Sx = Sx;
})(typeof globalThis !== "undefined" ? globalThis : typeof window !== "undefined" ? window : this);