/**
 * 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";

  // =========================================================================
  // Types
  // =========================================================================

  var NIL = Object.freeze({ _nil: true, toString: function() { return "nil"; } });
  var SX_VERSION = "2026-03-08T19:39:22Z";

  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 SxSignal(value) {
    this.value = value;
    this.subscribers = [];
    this.deps = [];
  }
  SxSignal.prototype._signal = true;

  function TrackingCtx(notifyFn) {
    this.notifyFn = notifyFn;
    this.deps = [];
  }

  var _trackingContext = null;

  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 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._signal) return "signal";
    if (x._macro) return "macro";
    if (x._raw) return "raw-html";
    if (typeof Node !== "undefined" && x instanceof Node) return "dom-node";
    if (Array.isArray(x)) return "list";
    if (typeof x === "object") return "dict";
    return "unknown";
  }

  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, merge(env)); }
  function makeComponent(name, params, hasChildren, body, env, affinity) {
    return new Component(name, params, hasChildren, body, merge(env), affinity);
  }
  function makeMacro(params, restParam, body, env, name) {
    return new Macro(params, restParam, body, merge(env), name);
  }
  function makeThunk(expr, env) { return new Thunk(expr, env); }

  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 componentAffinity(c) { return c.affinity || "auto"; }

  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, merge(env));
  }

  // Signal platform
  function makeSignal(value) { return new SxSignal(value); }
  function isSignal(x) { return x != null && x._signal === true; }
  function signalValue(s) { return s.value; }
  function signalSetValue(s, v) { s.value = v; }
  function signalSubscribers(s) { return s.subscribers.slice(); }
  function signalAddSub(s, fn) { if (s.subscribers.indexOf(fn) < 0) s.subscribers.push(fn); }
  function signalRemoveSub(s, fn) { var i = s.subscribers.indexOf(fn); if (i >= 0) s.subscribers.splice(i, 1); }
  function signalDeps(s) { return s.deps.slice(); }
  function signalSetDeps(s, deps) { s.deps = Array.isArray(deps) ? deps.slice() : []; }
  function setTrackingContext(ctx) { _trackingContext = ctx; }
  function getTrackingContext() { return _trackingContext || NIL; }
  function makeTrackingContext(notifyFn) { return new TrackingCtx(notifyFn); }
  function trackingContextDeps(ctx) { return ctx ? ctx.deps : []; }
  function trackingContextAddDep(ctx, s) { if (ctx && ctx.deps.indexOf(s) < 0) ctx.deps.push(s); }
  function trackingContextNotifyFn(ctx) { return ctx ? ctx.notifyFn : NIL; }

  // invoke — call any callable (native fn or SX lambda) with args.
  // Transpiled code emits direct calls f(args) which fail on SX lambdas
  // from runtime-evaluated island bodies. invoke dispatches correctly.
  function invoke() {
    var f = arguments[0];
    var args = Array.prototype.slice.call(arguments, 1);
    if (isLambda(f)) return trampoline(callLambda(f, args, lambdaClosure(f)));
    if (typeof f === 'function') return f.apply(null, args);
    return NIL;
  }

  // JSON / dict helpers for island state serialization
  function jsonSerialize(obj) {
    try { return JSON.stringify(obj); } catch(e) { return "{}"; }
  }
  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 envSet(env, name, val) { env[name] = val; }
  function envExtend(env) { return Object.create(env); }
  function envMerge(base, overlay) {
    var child = Object.create(base);
    if (overlay) for (var k in overlay) if (overlay.hasOwnProperty(k)) 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; }

  // Render dispatch — call the active adapter's render function.
  // Set by each adapter when loaded; defaults to identity (no rendering).
  var _renderExprFn = null;
  function renderExpr(expr, env) {
    if (_renderExprFn) return _renderExprFn(expr, env);
    // No adapter loaded — just return the expression as-is
    return expr;
  }

  function stripPrefix(s, prefix) {
    return s.indexOf(prefix) === 0 ? s.slice(prefix.length) : s;
  }

  function error(msg) { throw new Error(msg); }
  function inspect(x) { return JSON.stringify(x); }



  // =========================================================================
  // Primitives
  // =========================================================================

  var PRIMITIVES = {};

  // core.arithmetic
  PRIMITIVES["+"] = function() { var s = 0; for (var i = 0; i < arguments.length; i++) s += arguments[i]; return s; };
  PRIMITIVES["-"] = function(a, b) { return arguments.length === 1 ? -a : a - b; };
  PRIMITIVES["*"] = function() { var s = 1; for (var i = 0; i < arguments.length; i++) s *= arguments[i]; return s; };
  PRIMITIVES["/"] = function(a, b) { return a / 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["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)); };


  // core.comparison
  PRIMITIVES["="] = function(a, b) { return a === b; };
  PRIMITIVES["!="] = function(a, b) { return a !== b; };
  PRIMITIVES["<"] = function(a, b) { return a < b; };
  PRIMITIVES[">"] = function(a, b) { return a > b; };
  PRIMITIVES["<="] = function(a, b) { return a <= b; };
  PRIMITIVES[">="] = function(a, b) { 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"; };
  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; };
  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; };


  // 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) { 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) { return b !== undefined ? c.slice(a, b) : c.slice(a); };
  PRIMITIVES["substring"] = function(s, a, b) { return String(s).substring(a, b); };
  PRIMITIVES["string-length"] = function(s) { return String(s).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) { return c ? 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([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 (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;
  };


  // 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,"&amp;").replace(/</g,"&lt;").replace(/>/g,"&gt;").replace(/"/g,"&quot;").replace(/'/g,"&#x27;");
  };
  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;
  };


  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; }

  // 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"];
  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);
  };

  // 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
  function escapeHtml(s) {
    return String(s).replace(/&/g,"&amp;").replace(/</g,"&lt;").replace(/>/g,"&gt;").replace(/"/g,"&quot;");
  }
  function escapeAttr(s) { return escapeHtml(s); }
  function rawHtmlContent(r) { return r.html; }
  function makeRawHtml(s) { return { _raw: true, html: 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; }

  // processBindings and evalCond — now specced in render.sx, bootstrapped above

  function isDefinitionForm(name) {
    return name === "define" || name === "defcomp" || name === "defmacro" ||
           name === "defstyle" || name === "defhandler";
  }

  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);
  };

  // === Transpiled from eval ===

  // trampoline
  var trampoline = function(val) { return (function() {
  var result = val;
  return (isSxTruthy(isThunk(result)) ? trampoline(evalExpr(thunkExpr(result), thunkEnv(result))) : result);
})(); };

  // eval-expr
  var evalExpr = function(expr, env) { return (function() { var _m = typeOf(expr); if (_m == "number") return expr; if (_m == "string") return expr; if (_m == "boolean") return expr; if (_m == "nil") return NIL; if (_m == "symbol") return (function() {
  var name = symbolName(expr);
  return (isSxTruthy(envHas(env, name)) ? envGet(env, name) : (isSxTruthy(isPrimitive(name)) ? getPrimitive(name) : (isSxTruthy((name == "true")) ? true : (isSxTruthy((name == "false")) ? false : (isSxTruthy((name == "nil")) ? NIL : error((String("Undefined symbol: ") + String(name))))))));
})(); if (_m == "keyword") return keywordName(expr); if (_m == "dict") return mapDict(function(k, v) { return trampoline(evalExpr(v, env)); }, expr); if (_m == "list") return (isSxTruthy(isEmpty(expr)) ? [] : evalList(expr, env)); return expr; })(); };

  // eval-list
  var evalList = function(expr, env) { return (function() {
  var head = first(expr);
  var args = rest(expr);
  return (isSxTruthy(!isSxTruthy(sxOr((typeOf(head) == "symbol"), (typeOf(head) == "lambda"), (typeOf(head) == "list")))) ? map(function(x) { return trampoline(evalExpr(x, env)); }, expr) : (isSxTruthy((typeOf(head) == "symbol")) ? (function() {
  var name = symbolName(head);
  return (isSxTruthy((name == "if")) ? sfIf(args, env) : (isSxTruthy((name == "when")) ? sfWhen(args, env) : (isSxTruthy((name == "cond")) ? sfCond(args, env) : (isSxTruthy((name == "case")) ? sfCase(args, env) : (isSxTruthy((name == "and")) ? sfAnd(args, env) : (isSxTruthy((name == "or")) ? sfOr(args, env) : (isSxTruthy((name == "let")) ? sfLet(args, env) : (isSxTruthy((name == "let*")) ? sfLet(args, env) : (isSxTruthy((name == "letrec")) ? sfLetrec(args, env) : (isSxTruthy((name == "lambda")) ? sfLambda(args, env) : (isSxTruthy((name == "fn")) ? sfLambda(args, env) : (isSxTruthy((name == "define")) ? sfDefine(args, env) : (isSxTruthy((name == "defcomp")) ? sfDefcomp(args, env) : (isSxTruthy((name == "defisland")) ? sfDefisland(args, env) : (isSxTruthy((name == "defmacro")) ? sfDefmacro(args, env) : (isSxTruthy((name == "defstyle")) ? sfDefstyle(args, env) : (isSxTruthy((name == "defhandler")) ? sfDefhandler(args, env) : (isSxTruthy((name == "defpage")) ? sfDefpage(args, env) : (isSxTruthy((name == "defquery")) ? sfDefquery(args, env) : (isSxTruthy((name == "defaction")) ? sfDefaction(args, env) : (isSxTruthy((name == "begin")) ? sfBegin(args, env) : (isSxTruthy((name == "do")) ? sfBegin(args, env) : (isSxTruthy((name == "quote")) ? sfQuote(args, env) : (isSxTruthy((name == "quasiquote")) ? sfQuasiquote(args, env) : (isSxTruthy((name == "->")) ? sfThreadFirst(args, env) : (isSxTruthy((name == "set!")) ? sfSetBang(args, env) : (isSxTruthy((name == "reset")) ? sfReset(args, env) : (isSxTruthy((name == "shift")) ? sfShift(args, env) : (isSxTruthy((name == "dynamic-wind")) ? sfDynamicWind(args, env) : (isSxTruthy((name == "map")) ? hoMap(args, env) : (isSxTruthy((name == "map-indexed")) ? hoMapIndexed(args, env) : (isSxTruthy((name == "filter")) ? hoFilter(args, env) : (isSxTruthy((name == "reduce")) ? hoReduce(args, env) : (isSxTruthy((name == "some")) ? hoSome(args, env) : (isSxTruthy((name == "every?")) ? hoEvery(args, env) : (isSxTruthy((name == "for-each")) ? hoForEach(args, env) : (isSxTruthy((isSxTruthy(envHas(env, name)) && isMacro(envGet(env, name)))) ? (function() {
  var mac = envGet(env, name);
  return makeThunk(expandMacro(mac, args, env), env);
})() : (isSxTruthy(isRenderExpr(expr)) ? renderExpr(expr, env) : evalCall(head, args, env)))))))))))))))))))))))))))))))))))))));
})() : evalCall(head, args, env)));
})(); };

  // eval-call
  var evalCall = function(head, args, env) { return (function() {
  var f = trampoline(evalExpr(head, env));
  var evaluatedArgs = map(function(a) { return trampoline(evalExpr(a, env)); }, args);
  return (isSxTruthy((isSxTruthy(isCallable(f)) && isSxTruthy(!isSxTruthy(isLambda(f))) && isSxTruthy(!isSxTruthy(isComponent(f))) && !isSxTruthy(isIsland(f)))) ? apply(f, evaluatedArgs) : (isSxTruthy(isLambda(f)) ? callLambda(f, evaluatedArgs, env) : (isSxTruthy(isComponent(f)) ? callComponent(f, args, env) : (isSxTruthy(isIsland(f)) ? callComponent(f, args, env) : error((String("Not callable: ") + String(inspect(f))))))));
})(); };

  // call-lambda
  var callLambda = function(f, args, callerEnv) { return (function() {
  var params = lambdaParams(f);
  var local = envMerge(lambdaClosure(f), callerEnv);
  return (isSxTruthy((len(args) != len(params))) ? error((String(sxOr(lambdaName(f), "lambda")) + String(" expects ") + String(len(params)) + String(" args, got ") + String(len(args)))) : (forEach(function(pair) { return envSet(local, first(pair), nth(pair, 1)); }, zip(params, args)), makeThunk(lambdaBody(f), local)));
})(); };

  // 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]; local[p] = sxOr(dictGet(kwargs, p), NIL); } }
  if (isSxTruthy(componentHasChildren(comp))) {
  local["children"] = children;
}
  return makeThunk(componentBody(comp), local);
})(); };

  // 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((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];
})(); };

  // sf-if
  var sfIf = function(args, env) { return (function() {
  var condition = trampoline(evalExpr(first(args), env));
  return (isSxTruthy((isSxTruthy(condition) && !isSxTruthy(isNil(condition)))) ? makeThunk(nth(args, 1), env) : (isSxTruthy((len(args) > 2)) ? makeThunk(nth(args, 2), env) : NIL));
})(); };

  // sf-when
  var sfWhen = function(args, env) { return (function() {
  var condition = trampoline(evalExpr(first(args), env));
  return (isSxTruthy((isSxTruthy(condition) && !isSxTruthy(isNil(condition)))) ? (forEach(function(e) { return trampoline(evalExpr(e, env)); }, slice(args, 1, (len(args) - 1))), makeThunk(last(args), env)) : NIL);
})(); };

  // sf-cond
  var sfCond = function(args, env) { return (isSxTruthy((isSxTruthy((typeOf(first(args)) == "list")) && (len(first(args)) == 2))) ? sfCondScheme(args, env) : sfCondClojure(args, env)); };

  // sf-cond-scheme
  var sfCondScheme = function(clauses, env) { return (isSxTruthy(isEmpty(clauses)) ? NIL : (function() {
  var clause = first(clauses);
  var test = first(clause);
  var body = nth(clause, 1);
  return (isSxTruthy(sxOr((isSxTruthy((typeOf(test) == "symbol")) && sxOr((symbolName(test) == "else"), (symbolName(test) == ":else"))), (isSxTruthy((typeOf(test) == "keyword")) && (keywordName(test) == "else")))) ? makeThunk(body, env) : (isSxTruthy(trampoline(evalExpr(test, env))) ? makeThunk(body, env) : sfCondScheme(rest(clauses), env)));
})()); };

  // sf-cond-clojure
  var sfCondClojure = function(clauses, env) { return (isSxTruthy((len(clauses) < 2)) ? NIL : (function() {
  var test = first(clauses);
  var body = nth(clauses, 1);
  return (isSxTruthy(sxOr((isSxTruthy((typeOf(test) == "keyword")) && (keywordName(test) == "else")), (isSxTruthy((typeOf(test) == "symbol")) && sxOr((symbolName(test) == "else"), (symbolName(test) == ":else"))))) ? makeThunk(body, env) : (isSxTruthy(trampoline(evalExpr(test, env))) ? makeThunk(body, env) : sfCondClojure(slice(clauses, 2), env)));
})()); };

  // sf-case
  var sfCase = function(args, env) { return (function() {
  var matchVal = trampoline(evalExpr(first(args), env));
  var clauses = rest(args);
  return sfCaseLoop(matchVal, clauses, env);
})(); };

  // sf-case-loop
  var sfCaseLoop = function(matchVal, clauses, env) { return (isSxTruthy((len(clauses) < 2)) ? NIL : (function() {
  var test = first(clauses);
  var body = nth(clauses, 1);
  return (isSxTruthy(sxOr((isSxTruthy((typeOf(test) == "keyword")) && (keywordName(test) == "else")), (isSxTruthy((typeOf(test) == "symbol")) && sxOr((symbolName(test) == "else"), (symbolName(test) == ":else"))))) ? makeThunk(body, env) : (isSxTruthy((matchVal == trampoline(evalExpr(test, env)))) ? makeThunk(body, env) : sfCaseLoop(matchVal, slice(clauses, 2), env)));
})()); };

  // sf-and
  var sfAnd = function(args, env) { return (isSxTruthy(isEmpty(args)) ? true : (function() {
  var val = trampoline(evalExpr(first(args), env));
  return (isSxTruthy(!isSxTruthy(val)) ? val : (isSxTruthy((len(args) == 1)) ? val : sfAnd(rest(args), env)));
})()); };

  // sf-or
  var sfOr = function(args, env) { return (isSxTruthy(isEmpty(args)) ? false : (function() {
  var val = trampoline(evalExpr(first(args), env));
  return (isSxTruthy(val) ? val : sfOr(rest(args), env));
})()); };

  // sf-let
  var sfLet = function(args, env) { return (isSxTruthy((typeOf(first(args)) == "symbol")) ? sfNamedLet(args, env) : (function() {
  var bindings = first(args);
  var body = rest(args);
  var local = envExtend(env);
  (isSxTruthy((isSxTruthy((typeOf(first(bindings)) == "list")) && (len(first(bindings)) == 2))) ? forEach(function(binding) { return (function() {
  var vname = (isSxTruthy((typeOf(first(binding)) == "symbol")) ? symbolName(first(binding)) : first(binding));
  return envSet(local, vname, trampoline(evalExpr(nth(binding, 1), local)));
})(); }, bindings) : (function() {
  var i = 0;
  return reduce(function(acc, pairIdx) { return (function() {
  var vname = (isSxTruthy((typeOf(nth(bindings, (pairIdx * 2))) == "symbol")) ? symbolName(nth(bindings, (pairIdx * 2))) : nth(bindings, (pairIdx * 2)));
  var valExpr = nth(bindings, ((pairIdx * 2) + 1));
  return envSet(local, vname, trampoline(evalExpr(valExpr, local)));
})(); }, NIL, range(0, (len(bindings) / 2)));
})());
  { 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);
})()); };

  // 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((typeOf(first(bindings)) == "list")) && (len(first(bindings)) == 2))) ? forEach(function(binding) { params.push((isSxTruthy((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((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((len(body) == 1)) ? first(body) : cons(makeSymbol("begin"), body));
  var loopFn = makeLambda(params, loopBody, env);
  loopFn.name = loopName;
  lambdaClosure(loopFn)[loopName] = loopFn;
  return (function() {
  var initVals = map(function(e) { return trampoline(evalExpr(e, env)); }, inits);
  return callLambda(loopFn, initVals, env);
})();
})();
})(); };

  // sf-lambda
  var sfLambda = function(args, env) { return (function() {
  var paramsExpr = first(args);
  var bodyExprs = rest(args);
  var body = (isSxTruthy((len(bodyExprs) == 1)) ? first(bodyExprs) : cons(makeSymbol("begin"), bodyExprs));
  var paramNames = map(function(p) { return (isSxTruthy((typeOf(p) == "symbol")) ? symbolName(p) : p); }, paramsExpr);
  return makeLambda(paramNames, body, env);
})(); };

  // sf-define
  var sfDefine = function(args, env) { return (function() {
  var nameSym = first(args);
  var value = trampoline(evalExpr(nth(args, 1), env));
  if (isSxTruthy((isSxTruthy(isLambda(value)) && isNil(lambdaName(value))))) {
  value.name = symbolName(nameSym);
}
  env[symbolName(nameSym)] = value;
  return value;
})(); };

  // 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 affinity = defcompKwarg(args, "affinity", "auto");
  return (function() {
  var comp = makeComponent(compName, params, hasChildren, body, env, affinity);
  env[symbolName(nameSym)] = comp;
  return comp;
})();
})(); };

  // 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((typeOf(nth(args, i)) == "keyword")) && isSxTruthy((keywordName(nth(args, i)) == key)) && ((i + 1) < end)))) {
  (function() {
  var val = nth(args, (i + 1));
  return (result = (isSxTruthy((typeOf(val) == "keyword")) ? keywordName(val) : val));
})();
} } }
  return result;
})(); };

  // parse-comp-params
  var parseCompParams = function(paramsExpr) { return (function() {
  var params = [];
  var hasChildren = false;
  var inKey = false;
  { var _c = paramsExpr; for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; if (isSxTruthy((typeOf(p) == "symbol"))) {
  (function() {
  var name = symbolName(p);
  return (isSxTruthy((name == "&key")) ? (inKey = true) : (isSxTruthy((name == "&rest")) ? (hasChildren = true) : (isSxTruthy((name == "&children")) ? (hasChildren = true) : (isSxTruthy(hasChildren) ? NIL : (isSxTruthy(inKey) ? append_b(params, name) : append_b(params, name))))));
})();
} } }
  return [params, hasChildren];
})(); };

  // sf-defisland
  var sfDefisland = 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);
  return (function() {
  var island = makeIsland(compName, params, hasChildren, body, env);
  env[symbolName(nameSym)] = island;
  return island;
})();
})(); };

  // 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));
  env[symbolName(nameSym)] = mac;
  return mac;
})();
})(); };

  // parse-macro-params
  var parseMacroParams = function(paramsExpr) { return (function() {
  var params = [];
  var restParam = NIL;
  reduce(function(state, p) { return (isSxTruthy((isSxTruthy((typeOf(p) == "symbol")) && (symbolName(p) == "&rest"))) ? assoc(state, "in-rest", true) : (isSxTruthy(get(state, "in-rest")) ? ((restParam = (isSxTruthy((typeOf(p) == "symbol")) ? symbolName(p) : p)), state) : (append_b(params, (isSxTruthy((typeOf(p) == "symbol")) ? symbolName(p) : p)), state))); }, {["in-rest"]: false}, paramsExpr);
  return [params, restParam];
})(); };

  // sf-defstyle
  var sfDefstyle = function(args, env) { return (function() {
  var nameSym = first(args);
  var value = trampoline(evalExpr(nth(args, 1), env));
  env[symbolName(nameSym)] = value;
  return value;
})(); };

  // sf-begin
  var sfBegin = function(args, env) { return (isSxTruthy(isEmpty(args)) ? NIL : (forEach(function(e) { return trampoline(evalExpr(e, env)); }, slice(args, 0, (len(args) - 1))), makeThunk(last(args), env))); };

  // sf-quote
  var sfQuote = function(args, env) { return (isSxTruthy(isEmpty(args)) ? NIL : first(args)); };

  // sf-quasiquote
  var sfQuasiquote = function(args, env) { return qqExpand(first(args), env); };

  // qq-expand
  var qqExpand = function(template, env) { return (isSxTruthy(!isSxTruthy((typeOf(template) == "list"))) ? template : (isSxTruthy(isEmpty(template)) ? [] : (function() {
  var head = first(template);
  return (isSxTruthy((isSxTruthy((typeOf(head) == "symbol")) && (symbolName(head) == "unquote"))) ? trampoline(evalExpr(nth(template, 1), env)) : reduce(function(result, item) { return (isSxTruthy((isSxTruthy((typeOf(item) == "list")) && isSxTruthy((len(item) == 2)) && isSxTruthy((typeOf(first(item)) == "symbol")) && (symbolName(first(item)) == "splice-unquote"))) ? (function() {
  var spliced = trampoline(evalExpr(nth(item, 1), env));
  return (isSxTruthy((typeOf(spliced) == "list")) ? concat(result, spliced) : (isSxTruthy(isNil(spliced)) ? result : append(result, spliced)));
})() : append(result, qqExpand(item, env))); }, [], template));
})())); };

  // sf-thread-first
  var sfThreadFirst = function(args, env) { return (function() {
  var val = trampoline(evalExpr(first(args), env));
  return reduce(function(result, form) { return (isSxTruthy((typeOf(form) == "list")) ? (function() {
  var f = trampoline(evalExpr(first(form), env));
  var restArgs = map(function(a) { return trampoline(evalExpr(a, env)); }, rest(form));
  var allArgs = cons(result, restArgs);
  return (isSxTruthy((isSxTruthy(isCallable(f)) && !isSxTruthy(isLambda(f)))) ? apply(f, allArgs) : (isSxTruthy(isLambda(f)) ? trampoline(callLambda(f, allArgs, env)) : error((String("-> form not callable: ") + String(inspect(f))))));
})() : (function() {
  var f = trampoline(evalExpr(form, env));
  return (isSxTruthy((isSxTruthy(isCallable(f)) && !isSxTruthy(isLambda(f)))) ? f(result) : (isSxTruthy(isLambda(f)) ? trampoline(callLambda(f, [result], env)) : error((String("-> form not callable: ") + String(inspect(f))))));
})()); }, val, rest(args));
})(); };

  // sf-set!
  var sfSetBang = function(args, env) { return (function() {
  var name = symbolName(first(args));
  var value = trampoline(evalExpr(nth(args, 1), env));
  env[name] = value;
  return value;
})(); };

  // 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((typeOf(first(bindings)) == "list")) && (len(first(bindings)) == 2))) ? forEach(function(binding) { return (function() {
  var vname = (isSxTruthy((typeOf(first(binding)) == "symbol")) ? symbolName(first(binding)) : first(binding));
  names.push(vname);
  valExprs.push(nth(binding, 1));
  return envSet(local, vname, NIL);
})(); }, bindings) : reduce(function(acc, pairIdx) { return (function() {
  var vname = (isSxTruthy((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 envSet(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]; local[first(pair)] = nth(pair, 1); } }
  return forEach(function(val) { return (isSxTruthy(isLambda(val)) ? forEach(function(n) { return envSet(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);
})(); };

  // sf-dynamic-wind
  var sfDynamicWind = function(args, env) { 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));
  callThunk(before, env);
  pushWind(before, after);
  return (function() {
  var result = callThunk(body, env);
  popWind();
  callThunk(after, env);
  return result;
})();
})(); };

  // expand-macro
  var expandMacro = function(mac, rawArgs, env) { return (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]; local[first(pair)] = (isSxTruthy((nth(pair, 1) < len(rawArgs))) ? nth(rawArgs, nth(pair, 1)) : NIL); } }
  if (isSxTruthy(macroRestParam(mac))) {
  local[macroRestParam(mac)] = slice(rawArgs, len(macroParams(mac)));
}
  return trampoline(evalExpr(macroBody(mac), local));
})(); };

  // call-fn
  var callFn = function(f, args, env) { return (isSxTruthy(isLambda(f)) ? trampoline(callLambda(f, args, env)) : (isSxTruthy(isCallable(f)) ? apply(f, args) : error((String("Not callable in HO form: ") + String(inspect(f)))))); };

  // ho-map
  var hoMap = function(args, env) { return (function() {
  var f = trampoline(evalExpr(first(args), env));
  var coll = trampoline(evalExpr(nth(args, 1), env));
  return map(function(item) { return callFn(f, [item], env); }, coll);
})(); };

  // ho-map-indexed
  var hoMapIndexed = function(args, env) { return (function() {
  var f = trampoline(evalExpr(first(args), env));
  var coll = trampoline(evalExpr(nth(args, 1), env));
  return mapIndexed(function(i, item) { return callFn(f, [i, item], env); }, coll);
})(); };

  // ho-filter
  var hoFilter = function(args, env) { return (function() {
  var f = trampoline(evalExpr(first(args), env));
  var coll = trampoline(evalExpr(nth(args, 1), env));
  return filter(function(item) { return callFn(f, [item], env); }, coll);
})(); };

  // ho-reduce
  var hoReduce = function(args, env) { return (function() {
  var f = trampoline(evalExpr(first(args), env));
  var init = trampoline(evalExpr(nth(args, 1), env));
  var coll = trampoline(evalExpr(nth(args, 2), env));
  return reduce(function(acc, item) { return callFn(f, [acc, item], env); }, init, coll);
})(); };

  // ho-some
  var hoSome = function(args, env) { return (function() {
  var f = trampoline(evalExpr(first(args), env));
  var coll = trampoline(evalExpr(nth(args, 1), env));
  return some(function(item) { return callFn(f, [item], env); }, coll);
})(); };

  // ho-every
  var hoEvery = function(args, env) { return (function() {
  var f = trampoline(evalExpr(first(args), env));
  var coll = trampoline(evalExpr(nth(args, 1), env));
  return isEvery(function(item) { return callFn(f, [item], env); }, coll);
})(); };

  // ho-for-each
  var hoForEach = function(args, env) { return (function() {
  var f = trampoline(evalExpr(first(args), env));
  var coll = trampoline(evalExpr(nth(args, 1), env));
  return forEach(function(item) { return callFn(f, [item], env); }, coll);
})(); };


  // === Transpiled from render (core) ===

  // HTML_TAGS
  var HTML_TAGS = ["html", "head", "body", "title", "meta", "link", "script", "style", "noscript", "header", "nav", "main", "section", "article", "aside", "footer", "h1", "h2", "h3", "h4", "h5", "h6", "hgroup", "div", "p", "blockquote", "pre", "figure", "figcaption", "address", "details", "summary", "a", "span", "em", "strong", "small", "b", "i", "u", "s", "mark", "sub", "sup", "abbr", "cite", "code", "time", "br", "wbr", "hr", "ul", "ol", "li", "dl", "dt", "dd", "table", "thead", "tbody", "tfoot", "tr", "th", "td", "caption", "colgroup", "col", "form", "input", "textarea", "select", "option", "optgroup", "button", "label", "fieldset", "legend", "output", "datalist", "img", "video", "audio", "source", "picture", "canvas", "iframe", "svg", "math", "path", "circle", "ellipse", "rect", "line", "polyline", "polygon", "text", "tspan", "g", "defs", "use", "clipPath", "mask", "pattern", "linearGradient", "radialGradient", "stop", "filter", "feGaussianBlur", "feOffset", "feBlend", "feColorMatrix", "feComposite", "feMerge", "feMergeNode", "feTurbulence", "feComponentTransfer", "feFuncR", "feFuncG", "feFuncB", "feFuncA", "feDisplacementMap", "feFlood", "feImage", "feMorphology", "feSpecularLighting", "feDiffuseLighting", "fePointLight", "feSpotLight", "feDistantLight", "animate", "animateTransform", "foreignObject", "template", "slot", "dialog", "menu"];

  // VOID_ELEMENTS
  var VOID_ELEMENTS = ["area", "base", "br", "col", "embed", "hr", "img", "input", "link", "meta", "param", "source", "track", "wbr"];

  // BOOLEAN_ATTRS
  var BOOLEAN_ATTRS = ["async", "autofocus", "autoplay", "checked", "controls", "default", "defer", "disabled", "formnovalidate", "hidden", "inert", "ismap", "loop", "multiple", "muted", "nomodule", "novalidate", "open", "playsinline", "readonly", "required", "reversed", "selected"];

  // definition-form?
  var isDefinitionForm = function(name) { return sxOr((name == "define"), (name == "defcomp"), (name == "defisland"), (name == "defmacro"), (name == "defstyle"), (name == "defhandler")); };

  // parse-element-args
  var parseElementArgs = function(args, env) { return (function() {
  var attrs = {};
  var children = [];
  reduce(function(state, arg) { return (function() {
  var skip = get(state, "skip");
  return (isSxTruthy(skip) ? assoc(state, "skip", false, "i", (get(state, "i") + 1)) : (isSxTruthy((isSxTruthy((typeOf(arg) == "keyword")) && ((get(state, "i") + 1) < len(args)))) ? (function() {
  var val = trampoline(evalExpr(nth(args, (get(state, "i") + 1)), env));
  attrs[keywordName(arg)] = val;
  return assoc(state, "skip", true, "i", (get(state, "i") + 1));
})() : (append_b(children, arg), assoc(state, "i", (get(state, "i") + 1)))));
})(); }, {["i"]: 0, ["skip"]: false}, args);
  return [attrs, children];
})(); };

  // render-attrs
  var renderAttrs = function(attrs) { return join("", map(function(key) { return (function() {
  var val = dictGet(attrs, key);
  return (isSxTruthy((isSxTruthy(contains(BOOLEAN_ATTRS, key)) && val)) ? (String(" ") + String(key)) : (isSxTruthy((isSxTruthy(contains(BOOLEAN_ATTRS, key)) && !isSxTruthy(val))) ? "" : (isSxTruthy(isNil(val)) ? "" : (String(" ") + String(key) + String("=\"") + String(escapeAttr((String(val)))) + String("\"")))));
})(); }, keys(attrs))); };

  // eval-cond
  var evalCond = function(clauses, env) { return (isSxTruthy((isSxTruthy(!isSxTruthy(isEmpty(clauses))) && isSxTruthy((typeOf(first(clauses)) == "list")) && (len(first(clauses)) == 2))) ? evalCondScheme(clauses, env) : evalCondClojure(clauses, env)); };

  // eval-cond-scheme
  var evalCondScheme = function(clauses, env) { return (isSxTruthy(isEmpty(clauses)) ? NIL : (function() {
  var clause = first(clauses);
  var test = first(clause);
  var body = nth(clause, 1);
  return (isSxTruthy(sxOr((isSxTruthy((typeOf(test) == "symbol")) && sxOr((symbolName(test) == "else"), (symbolName(test) == ":else"))), (isSxTruthy((typeOf(test) == "keyword")) && (keywordName(test) == "else")))) ? body : (isSxTruthy(trampoline(evalExpr(test, env))) ? body : evalCondScheme(rest(clauses), env)));
})()); };

  // eval-cond-clojure
  var evalCondClojure = function(clauses, env) { return (isSxTruthy((len(clauses) < 2)) ? NIL : (function() {
  var test = first(clauses);
  var body = nth(clauses, 1);
  return (isSxTruthy(sxOr((isSxTruthy((typeOf(test) == "keyword")) && (keywordName(test) == "else")), (isSxTruthy((typeOf(test) == "symbol")) && sxOr((symbolName(test) == "else"), (symbolName(test) == ":else"))))) ? body : (isSxTruthy(trampoline(evalExpr(test, env))) ? body : evalCondClojure(slice(clauses, 2), env)));
})()); };

  // process-bindings
  var processBindings = function(bindings, env) { return (function() {
  var local = merge(env);
  { var _c = bindings; for (var _i = 0; _i < _c.length; _i++) { var pair = _c[_i]; if (isSxTruthy((isSxTruthy((typeOf(pair) == "list")) && (len(pair) >= 2)))) {
  (function() {
  var name = (isSxTruthy((typeOf(first(pair)) == "symbol")) ? symbolName(first(pair)) : (String(first(pair))));
  return envSet(local, name, trampoline(evalExpr(nth(pair, 1), local)));
})();
} } }
  return local;
})(); };

  // is-render-expr?
  var isRenderExpr = function(expr) { return (isSxTruthy(sxOr(!isSxTruthy((typeOf(expr) == "list")), isEmpty(expr))) ? false : (function() {
  var h = first(expr);
  return (isSxTruthy(!isSxTruthy((typeOf(h) == "symbol"))) ? false : (function() {
  var n = symbolName(h);
  return sxOr((n == "<>"), (n == "raw!"), startsWith(n, "~"), startsWith(n, "html:"), contains(HTML_TAGS, n), (isSxTruthy((indexOf_(n, "-") > 0)) && isSxTruthy((len(expr) > 1)) && (typeOf(nth(expr, 1)) == "keyword")));
})());
})()); };


  // === Transpiled from adapter-html ===

  // render-to-html
  var renderToHtml = function(expr, env) { return (function() { var _m = typeOf(expr); if (_m == "nil") return ""; if (_m == "string") return escapeHtml(expr); if (_m == "number") return (String(expr)); if (_m == "boolean") return (isSxTruthy(expr) ? "true" : "false"); if (_m == "list") return (isSxTruthy(isEmpty(expr)) ? "" : renderListToHtml(expr, env)); if (_m == "symbol") return renderValueToHtml(trampoline(evalExpr(expr, env)), env); if (_m == "keyword") return escapeHtml(keywordName(expr)); if (_m == "raw-html") return rawHtmlContent(expr); return renderValueToHtml(trampoline(evalExpr(expr, env)), env); })(); };

  // render-value-to-html
  var renderValueToHtml = function(val, env) { return (function() { var _m = typeOf(val); if (_m == "nil") return ""; if (_m == "string") return escapeHtml(val); if (_m == "number") return (String(val)); if (_m == "boolean") return (isSxTruthy(val) ? "true" : "false"); if (_m == "list") return renderListToHtml(val, env); if (_m == "raw-html") return rawHtmlContent(val); return escapeHtml((String(val))); })(); };

  // RENDER_HTML_FORMS
  var RENDER_HTML_FORMS = ["if", "when", "cond", "case", "let", "let*", "begin", "do", "define", "defcomp", "defisland", "defmacro", "defstyle", "defhandler", "map", "map-indexed", "filter", "for-each"];

  // render-html-form?
  var isRenderHtmlForm = function(name) { return contains(RENDER_HTML_FORMS, name); };

  // render-list-to-html
  var renderListToHtml = function(expr, env) { return (isSxTruthy(isEmpty(expr)) ? "" : (function() {
  var head = first(expr);
  return (isSxTruthy(!isSxTruthy((typeOf(head) == "symbol"))) ? join("", map(function(x) { return renderValueToHtml(x, env); }, expr)) : (function() {
  var name = symbolName(head);
  var args = rest(expr);
  return (isSxTruthy((name == "<>")) ? join("", map(function(x) { return renderToHtml(x, env); }, args)) : (isSxTruthy((name == "raw!")) ? join("", map(function(x) { return (String(trampoline(evalExpr(x, env)))); }, args)) : (isSxTruthy(contains(HTML_TAGS, name)) ? renderHtmlElement(name, args, env) : (isSxTruthy((isSxTruthy(startsWith(name, "~")) && isSxTruthy(envHas(env, name)) && isIsland(envGet(env, name)))) ? renderHtmlIsland(envGet(env, name), args, env) : (isSxTruthy(startsWith(name, "~")) ? (function() {
  var val = envGet(env, name);
  return (isSxTruthy(isComponent(val)) ? renderHtmlComponent(val, args, env) : (isSxTruthy(isMacro(val)) ? renderToHtml(expandMacro(val, args, env), env) : error((String("Unknown component: ") + String(name)))));
})() : (isSxTruthy(isRenderHtmlForm(name)) ? dispatchHtmlForm(name, expr, env) : (isSxTruthy((isSxTruthy(envHas(env, name)) && isMacro(envGet(env, name)))) ? renderToHtml(expandMacro(envGet(env, name), args, env), env) : renderValueToHtml(trampoline(evalExpr(expr, env)), env))))))));
})());
})()); };

  // dispatch-html-form
  var dispatchHtmlForm = function(name, expr, env) { return (isSxTruthy((name == "if")) ? (function() {
  var condVal = trampoline(evalExpr(nth(expr, 1), env));
  return (isSxTruthy(condVal) ? renderToHtml(nth(expr, 2), env) : (isSxTruthy((len(expr) > 3)) ? renderToHtml(nth(expr, 3), env) : ""));
})() : (isSxTruthy((name == "when")) ? (isSxTruthy(!isSxTruthy(trampoline(evalExpr(nth(expr, 1), env)))) ? "" : join("", map(function(i) { return renderToHtml(nth(expr, i), env); }, range(2, len(expr))))) : (isSxTruthy((name == "cond")) ? (function() {
  var branch = evalCond(rest(expr), env);
  return (isSxTruthy(branch) ? renderToHtml(branch, env) : "");
})() : (isSxTruthy((name == "case")) ? renderToHtml(trampoline(evalExpr(expr, env)), env) : (isSxTruthy(sxOr((name == "let"), (name == "let*"))) ? (function() {
  var local = processBindings(nth(expr, 1), env);
  return join("", map(function(i) { return renderToHtml(nth(expr, i), local); }, range(2, len(expr))));
})() : (isSxTruthy(sxOr((name == "begin"), (name == "do"))) ? join("", map(function(i) { return renderToHtml(nth(expr, i), env); }, range(1, len(expr)))) : (isSxTruthy(isDefinitionForm(name)) ? (trampoline(evalExpr(expr, env)), "") : (isSxTruthy((name == "map")) ? (function() {
  var f = trampoline(evalExpr(nth(expr, 1), env));
  var coll = trampoline(evalExpr(nth(expr, 2), env));
  return join("", map(function(item) { return (isSxTruthy(isLambda(f)) ? renderLambdaHtml(f, [item], env) : renderToHtml(apply(f, [item]), env)); }, coll));
})() : (isSxTruthy((name == "map-indexed")) ? (function() {
  var f = trampoline(evalExpr(nth(expr, 1), env));
  var coll = trampoline(evalExpr(nth(expr, 2), env));
  return join("", mapIndexed(function(i, item) { return (isSxTruthy(isLambda(f)) ? renderLambdaHtml(f, [i, item], env) : renderToHtml(apply(f, [i, item]), env)); }, coll));
})() : (isSxTruthy((name == "filter")) ? renderToHtml(trampoline(evalExpr(expr, env)), env) : (isSxTruthy((name == "for-each")) ? (function() {
  var f = trampoline(evalExpr(nth(expr, 1), env));
  var coll = trampoline(evalExpr(nth(expr, 2), env));
  return join("", map(function(item) { return (isSxTruthy(isLambda(f)) ? renderLambdaHtml(f, [item], env) : renderToHtml(apply(f, [item]), env)); }, coll));
})() : renderValueToHtml(trampoline(evalExpr(expr, env)), env)))))))))))); };

  // render-lambda-html
  var renderLambdaHtml = function(f, args, env) { return (function() {
  var local = envMerge(lambdaClosure(f), env);
  forEachIndexed(function(i, p) { return envSet(local, p, nth(args, i)); }, lambdaParams(f));
  return renderToHtml(lambdaBody(f), local);
})(); };

  // render-html-component
  var renderHtmlComponent = function(comp, args, env) { return (function() {
  var kwargs = {};
  var children = [];
  reduce(function(state, arg) { return (function() {
  var skip = get(state, "skip");
  return (isSxTruthy(skip) ? assoc(state, "skip", false, "i", (get(state, "i") + 1)) : (isSxTruthy((isSxTruthy((typeOf(arg) == "keyword")) && ((get(state, "i") + 1) < len(args)))) ? (function() {
  var val = trampoline(evalExpr(nth(args, (get(state, "i") + 1)), env));
  kwargs[keywordName(arg)] = val;
  return assoc(state, "skip", true, "i", (get(state, "i") + 1));
})() : (append_b(children, arg), assoc(state, "i", (get(state, "i") + 1)))));
})(); }, {["i"]: 0, ["skip"]: false}, args);
  return (function() {
  var local = envMerge(componentClosure(comp), env);
  { var _c = componentParams(comp); for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; local[p] = (isSxTruthy(dictHas(kwargs, p)) ? dictGet(kwargs, p) : NIL); } }
  if (isSxTruthy(componentHasChildren(comp))) {
  local["children"] = makeRawHtml(join("", map(function(c) { return renderToHtml(c, env); }, children)));
}
  return renderToHtml(componentBody(comp), local);
})();
})(); };

  // render-html-element
  var renderHtmlElement = function(tag, args, env) { return (function() {
  var parsed = parseElementArgs(args, env);
  var attrs = first(parsed);
  var children = nth(parsed, 1);
  var isVoid = contains(VOID_ELEMENTS, tag);
  return (String("<") + String(tag) + String(renderAttrs(attrs)) + String((isSxTruthy(isVoid) ? " />" : (String(">") + String(join("", map(function(c) { return renderToHtml(c, env); }, children))) + String("</") + String(tag) + String(">")))));
})(); };

  // render-html-island
  var renderHtmlIsland = function(island, args, env) { return (function() {
  var kwargs = {};
  var children = [];
  reduce(function(state, arg) { return (function() {
  var skip = get(state, "skip");
  return (isSxTruthy(skip) ? assoc(state, "skip", false, "i", (get(state, "i") + 1)) : (isSxTruthy((isSxTruthy((typeOf(arg) == "keyword")) && ((get(state, "i") + 1) < len(args)))) ? (function() {
  var val = trampoline(evalExpr(nth(args, (get(state, "i") + 1)), env));
  kwargs[keywordName(arg)] = val;
  return assoc(state, "skip", true, "i", (get(state, "i") + 1));
})() : (append_b(children, arg), assoc(state, "i", (get(state, "i") + 1)))));
})(); }, {["i"]: 0, ["skip"]: false}, args);
  return (function() {
  var local = envMerge(componentClosure(island), env);
  var islandName = componentName(island);
  { var _c = componentParams(island); for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; local[p] = (isSxTruthy(dictHas(kwargs, p)) ? dictGet(kwargs, p) : NIL); } }
  if (isSxTruthy(componentHasChildren(island))) {
  local["children"] = makeRawHtml(join("", map(function(c) { return renderToHtml(c, env); }, children)));
}
  return (function() {
  var bodyHtml = renderToHtml(componentBody(island), local);
  var stateJson = serializeIslandState(kwargs);
  return (String("<div data-sx-island=\"") + String(escapeAttr(islandName)) + String("\"") + String((isSxTruthy(stateJson) ? (String(" data-sx-state=\"") + String(escapeAttr(stateJson)) + String("\"")) : "")) + String(">") + String(bodyHtml) + String("</div>"));
})();
})();
})(); };

  // serialize-island-state
  var serializeIslandState = function(kwargs) { return (isSxTruthy(isEmptyDict(kwargs)) ? NIL : jsonSerialize(kwargs)); };


  // === Transpiled from adapter-sx ===

  // render-to-sx
  var renderToSx = function(expr, env) { return (function() {
  var result = aser(expr, env);
  return (isSxTruthy((typeOf(result) == "string")) ? result : serialize(result));
})(); };

  // aser
  var aser = function(expr, env) { return (function() { var _m = typeOf(expr); if (_m == "number") return expr; if (_m == "string") return expr; if (_m == "boolean") return expr; if (_m == "nil") return NIL; if (_m == "symbol") return (function() {
  var name = symbolName(expr);
  return (isSxTruthy(envHas(env, name)) ? envGet(env, name) : (isSxTruthy(isPrimitive(name)) ? getPrimitive(name) : (isSxTruthy((name == "true")) ? true : (isSxTruthy((name == "false")) ? false : (isSxTruthy((name == "nil")) ? NIL : error((String("Undefined symbol: ") + String(name))))))));
})(); if (_m == "keyword") return keywordName(expr); if (_m == "list") return (isSxTruthy(isEmpty(expr)) ? [] : aserList(expr, env)); return expr; })(); };

  // aser-list
  var aserList = function(expr, env) { return (function() {
  var head = first(expr);
  var args = rest(expr);
  return (isSxTruthy(!isSxTruthy((typeOf(head) == "symbol"))) ? map(function(x) { return aser(x, env); }, expr) : (function() {
  var name = symbolName(head);
  return (isSxTruthy((name == "<>")) ? aserFragment(args, env) : (isSxTruthy(startsWith(name, "~")) ? aserCall(name, args, env) : (isSxTruthy(contains(HTML_TAGS, name)) ? aserCall(name, args, env) : (isSxTruthy(sxOr(isSpecialForm(name), isHoForm(name))) ? aserSpecial(name, expr, env) : (isSxTruthy((isSxTruthy(envHas(env, name)) && isMacro(envGet(env, name)))) ? aser(expandMacro(envGet(env, name), args, env), env) : (function() {
  var f = trampoline(evalExpr(head, env));
  var evaledArgs = map(function(a) { return trampoline(evalExpr(a, env)); }, args);
  return (isSxTruthy((isSxTruthy(isCallable(f)) && isSxTruthy(!isSxTruthy(isLambda(f))) && isSxTruthy(!isSxTruthy(isComponent(f))) && !isSxTruthy(isIsland(f)))) ? apply(f, evaledArgs) : (isSxTruthy(isLambda(f)) ? trampoline(callLambda(f, evaledArgs, env)) : (isSxTruthy(isComponent(f)) ? aserCall((String("~") + String(componentName(f))), args, env) : (isSxTruthy(isIsland(f)) ? aserCall((String("~") + String(componentName(f))), args, env) : error((String("Not callable: ") + String(inspect(f))))))));
})())))));
})());
})(); };

  // aser-fragment
  var aserFragment = function(children, env) { return (function() {
  var parts = filter(function(x) { return !isSxTruthy(isNil(x)); }, map(function(c) { return aser(c, env); }, children));
  return (isSxTruthy(isEmpty(parts)) ? "" : (String("(<> ") + String(join(" ", map(serialize, parts))) + String(")")));
})(); };

  // aser-call
  var aserCall = function(name, args, env) { return (function() {
  var parts = [name];
  reduce(function(state, arg) { return (function() {
  var skip = get(state, "skip");
  return (isSxTruthy(skip) ? assoc(state, "skip", false, "i", (get(state, "i") + 1)) : (isSxTruthy((isSxTruthy((typeOf(arg) == "keyword")) && ((get(state, "i") + 1) < len(args)))) ? (function() {
  var val = aser(nth(args, (get(state, "i") + 1)), env);
  if (isSxTruthy(!isSxTruthy(isNil(val)))) {
  parts.push((String(":") + String(keywordName(arg))));
  parts.push(serialize(val));
}
  return assoc(state, "skip", true, "i", (get(state, "i") + 1));
})() : (function() {
  var val = aser(arg, env);
  if (isSxTruthy(!isSxTruthy(isNil(val)))) {
  parts.push(serialize(val));
}
  return assoc(state, "i", (get(state, "i") + 1));
})()));
})(); }, {["i"]: 0, ["skip"]: false}, args);
  return (String("(") + String(join(" ", parts)) + String(")"));
})(); };

  // SPECIAL_FORM_NAMES
  var SPECIAL_FORM_NAMES = ["if", "when", "cond", "case", "and", "or", "let", "let*", "lambda", "fn", "define", "defcomp", "defmacro", "defstyle", "defhandler", "defpage", "defquery", "defaction", "defrelation", "begin", "do", "quote", "quasiquote", "->", "set!", "letrec", "dynamic-wind", "defisland"];

  // HO_FORM_NAMES
  var HO_FORM_NAMES = ["map", "map-indexed", "filter", "reduce", "some", "every?", "for-each"];

  // special-form?
  var isSpecialForm = function(name) { return contains(SPECIAL_FORM_NAMES, name); };

  // ho-form?
  var isHoForm = function(name) { return contains(HO_FORM_NAMES, name); };

  // aser-special
  var aserSpecial = function(name, expr, env) { return (function() {
  var args = rest(expr);
  return (isSxTruthy((name == "if")) ? (isSxTruthy(trampoline(evalExpr(first(args), env))) ? aser(nth(args, 1), env) : (isSxTruthy((len(args) > 2)) ? aser(nth(args, 2), env) : NIL)) : (isSxTruthy((name == "when")) ? (isSxTruthy(!isSxTruthy(trampoline(evalExpr(first(args), env)))) ? NIL : (function() {
  var result = NIL;
  { var _c = rest(args); for (var _i = 0; _i < _c.length; _i++) { var body = _c[_i]; result = aser(body, env); } }
  return result;
})()) : (isSxTruthy((name == "cond")) ? (function() {
  var branch = evalCond(args, env);
  return (isSxTruthy(branch) ? aser(branch, env) : NIL);
})() : (isSxTruthy((name == "case")) ? (function() {
  var matchVal = trampoline(evalExpr(first(args), env));
  var clauses = rest(args);
  return evalCaseAser(matchVal, clauses, env);
})() : (isSxTruthy(sxOr((name == "let"), (name == "let*"))) ? (function() {
  var local = processBindings(first(args), env);
  var result = NIL;
  { var _c = rest(args); for (var _i = 0; _i < _c.length; _i++) { var body = _c[_i]; result = aser(body, local); } }
  return result;
})() : (isSxTruthy(sxOr((name == "begin"), (name == "do"))) ? (function() {
  var result = NIL;
  { var _c = args; for (var _i = 0; _i < _c.length; _i++) { var body = _c[_i]; result = aser(body, env); } }
  return result;
})() : (isSxTruthy((name == "and")) ? (function() {
  var result = true;
  some(function(arg) { result = trampoline(evalExpr(arg, env));
return !isSxTruthy(result); }, args);
  return result;
})() : (isSxTruthy((name == "or")) ? (function() {
  var result = false;
  some(function(arg) { result = trampoline(evalExpr(arg, env));
return result; }, args);
  return result;
})() : (isSxTruthy((name == "map")) ? (function() {
  var f = trampoline(evalExpr(first(args), env));
  var coll = trampoline(evalExpr(nth(args, 1), env));
  return map(function(item) { return (isSxTruthy(isLambda(f)) ? (function() {
  var local = envMerge(lambdaClosure(f), env);
  local[first(lambdaParams(f))] = item;
  return aser(lambdaBody(f), local);
})() : invoke(f, item)); }, coll);
})() : (isSxTruthy((name == "map-indexed")) ? (function() {
  var f = trampoline(evalExpr(first(args), env));
  var coll = trampoline(evalExpr(nth(args, 1), env));
  return mapIndexed(function(i, item) { return (isSxTruthy(isLambda(f)) ? (function() {
  var local = envMerge(lambdaClosure(f), env);
  local[first(lambdaParams(f))] = i;
  local[nth(lambdaParams(f), 1)] = item;
  return aser(lambdaBody(f), local);
})() : invoke(f, i, item)); }, coll);
})() : (isSxTruthy((name == "for-each")) ? (function() {
  var f = trampoline(evalExpr(first(args), env));
  var coll = trampoline(evalExpr(nth(args, 1), env));
  var results = [];
  { var _c = coll; for (var _i = 0; _i < _c.length; _i++) { var item = _c[_i]; (isSxTruthy(isLambda(f)) ? (function() {
  var local = envMerge(lambdaClosure(f), env);
  local[first(lambdaParams(f))] = item;
  return append_b(results, aser(lambdaBody(f), local));
})() : invoke(f, item)); } }
  return (isSxTruthy(isEmpty(results)) ? NIL : results);
})() : (isSxTruthy((name == "defisland")) ? (trampoline(evalExpr(expr, env)), serialize(expr)) : (isSxTruthy(sxOr((name == "define"), (name == "defcomp"), (name == "defmacro"), (name == "defstyle"), (name == "defhandler"), (name == "defpage"), (name == "defquery"), (name == "defaction"), (name == "defrelation"))) ? (trampoline(evalExpr(expr, env)), NIL) : trampoline(evalExpr(expr, env)))))))))))))));
})(); };

  // eval-case-aser
  var evalCaseAser = function(matchVal, clauses, env) { return (isSxTruthy((len(clauses) < 2)) ? NIL : (function() {
  var test = first(clauses);
  var body = nth(clauses, 1);
  return (isSxTruthy(sxOr((isSxTruthy((typeOf(test) == "keyword")) && (keywordName(test) == "else")), (isSxTruthy((typeOf(test) == "symbol")) && sxOr((symbolName(test) == ":else"), (symbolName(test) == "else"))))) ? aser(body, env) : (isSxTruthy((matchVal == trampoline(evalExpr(test, env)))) ? aser(body, env) : evalCaseAser(matchVal, slice(clauses, 2), env)));
})()); };


  var _hasDom = false;


  // =========================================================================
  // 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);
  };

  // Expose render functions as primitives so SX code can call them
  if (typeof renderToHtml === "function") PRIMITIVES["render-to-html"] = renderToHtml;
  if (typeof renderToSx === "function") PRIMITIVES["render-to-sx"] = renderToSx;
  if (typeof aser === "function") PRIMITIVES["aser"] = aser;

  // Minimal fallback parser (no parser adapter)
  function parse(text) {
    throw new Error("Parser adapter not included — cannot parse SX source at runtime");
  }

  // =========================================================================
  // 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) {
    var exprs = parse(source);
    var parts = [];
    for (var i = 0; i < exprs.length; i++) parts.push(renderToHtml(exprs[i], merge(componentEnv)));
    return parts.join("");
  }

  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,
    renderToHtml: function(expr, env) { return renderToHtml(expr, env || merge(componentEnv)); },
    renderToSx: function(expr, env) { return renderToSx(expr, env || merge(componentEnv)); },
    _version: "ref-2.0 (html+sx, bootstrap-compiled)"
  };

  if (typeof module !== "undefined" && module.exports) module.exports = Sx;
  else global.Sx = Sx;

})(typeof globalThis !== "undefined" ? globalThis : typeof window !== "undefined" ? window : this);