Restructure SX ref spec into core + selectable adapters

Split monolithic render.sx into core (tag registries, shared utils) plus
four adapter .sx files: adapter-html (server HTML strings), adapter-sx
(SX wire format), adapter-dom (browser DOM nodes), and engine (SxEngine
triggers, morphing, swaps). All adapters written in s-expressions with
platform interface declarations for JS bridge functions.

Bootstrap compiler now accepts --adapters flag to emit targeted builds:
  -a html        → server-only (1108 lines)
  -a dom,engine  → browser-only (1634 lines)
  -a html,sx     → server with SX wire (1169 lines)
  (default)      → all adapters (1800 lines)

Fixes: keyword arg i-counter desync in reduce across all adapters,
render-aware special forms (let/if/when/cond/map) in HTML adapter,
component children double-escaping, ~prefixed macro dispatch.

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>

shared/static/scripts/sx-ref.js

@@ -405,12 +405,23 @@
   function append_b(arr, x) { arr.push(x); return arr; }
   var apply = function(f, args) { 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 }; }
 
   // Serializer
   function serialize(val) {
@@ -434,7 +445,46 @@
     "map":1,"map-indexed":1,"filter":1,"reduce":1,"some":1,"every?":1,"for-each":1
   }; }
 
-  // === Transpiled from eval.sx ===
+  // processBindings and evalCond — exposed for DOM adapter render forms
+  function processBindings(bindings, env) {
+    var local = merge(env);
+    for (var i = 0; i < bindings.length; i++) {
+      var pair = bindings[i];
+      if (Array.isArray(pair) && pair.length >= 2) {
+        var name = isSym(pair[0]) ? pair[0].name : String(pair[0]);
+        local[name] = trampoline(evalExpr(pair[1], local));
+      }
+    }
+    return local;
+  }
+  function evalCond(clauses, env) {
+    for (var i = 0; i < clauses.length; i += 2) {
+      var test = clauses[i];
+      if (isSym(test) && test.name === ":else") return clauses[i + 1];
+      if (isKw(test) && test.name === "else") return clauses[i + 1];
+      if (isSxTruthy(trampoline(evalExpr(test, env)))) return clauses[i + 1];
+    }
+    return null;
+  }
+
+  function isDefinitionForm(name) {
+    return name === "define" || name === "defcomp" || name === "defmacro" ||
+           name === "defstyle" || name === "defkeyframes" || 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;
+  }
+
+  // === Transpiled from eval ===
 
   // trampoline
   var trampoline = function(val) { return (function() {
@@ -620,7 +670,7 @@
   { 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((isSxTruthy(inKey) && !hasChildren)) ? append_b(params, name) : append_b(params, name))));
+  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];
@@ -765,7 +815,7 @@
 })(); };
 
 
-  // === Transpiled from render.sx ===
+  // === 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"];
@@ -776,33 +826,8 @@
   // 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"];
 
-  // 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)); 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); if (_m == "style-value") return styleValueClass(val); return escapeHtml((String(val))); })(); };
-
-  // render-list-to-html
-  var renderListToHtml = function(expr, env) { return (isSxTruthy(isEmpty(expr)) ? "" : (function() {
-  var head = first(expr);
-  return (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(startsWith(name, "~")) ? (function() {
-  var comp = envGet(env, name);
-  return (isSxTruthy(isComponent(comp)) ? renderToHtml(trampoline(callComponent(comp, args, env)), env) : error((String("Unknown component: ") + String(name))));
-})() : (isSxTruthy(sxOr((name == "define"), (name == "defcomp"), (name == "defmacro"), (name == "defstyle"), (name == "defkeyframes"), (name == "defhandler"))) ? (trampoline(evalExpr(expr, env)), "") : (isSxTruthy((isSxTruthy(envHas(env, name)) && isMacro(envGet(env, name)))) ? renderToHtml(trampoline(evalExpr(expandMacro(envGet(env, name), args, env), env)), env) : renderValueToHtml(trampoline(evalExpr(expr, env)), env)))))));
-})());
-})()); };
-
-  // 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(">")))));
-})(); };
+  // definition-form?
+  var isDefinitionForm = function(name) { return sxOr((name == "define"), (name == "defcomp"), (name == "defmacro"), (name == "defstyle"), (name == "defkeyframes"), (name == "defhandler")); };
 
   // parse-element-args
   var parseElementArgs = function(args, env) { return (function() {
@@ -810,7 +835,7 @@
   var children = [];
   reduce(function(state, arg) { return (function() {
   var skip = get(state, "skip");
-  return (isSxTruthy(skip) ? assoc(state, "skip", false) : (isSxTruthy((isSxTruthy((typeOf(arg) == "keyword")) && ((get(state, "i") + 1) < len(args)))) ? (function() {
+  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));
@@ -825,10 +850,103 @@
   return (isSxTruthy((isSxTruthy(contains(BOOLEAN_ATTRS, key)) && val)) ? (String(" ") + String(key)) : (isSxTruthy((isSxTruthy(contains(BOOLEAN_ATTRS, key)) && !val)) ? "" : (isSxTruthy(isNil(val)) ? "" : (isSxTruthy((isSxTruthy((key == "style")) && isStyleValue(val))) ? (String(" class=\"") + String(styleValueClass(val)) + String("\"")) : (String(" ") + String(key) + String("=\"") + String(escapeAttr((String(val)))) + String("\""))))));
 })(); }, keys(attrs))); };
 
+
+  // === 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); if (_m == "style-value") return styleValueClass(val); return escapeHtml((String(val))); })(); };
+
+  // RENDER_HTML_FORMS
+  var RENDER_HTML_FORMS = ["if", "when", "cond", "case", "let", "let*", "begin", "do", "define", "defcomp", "defmacro", "defstyle", "defkeyframes", "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(!(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(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(!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(">")))));
+})(); };
+
+
+  // === Transpiled from adapter-sx ===
+
   // render-to-sx
   var renderToSx = function(expr, env) { return (function() {
   var result = aser(expr, env);
-  return serialize(result);
+  return (isSxTruthy((typeOf(result) == "string")) ? result : serialize(result));
 })(); };
 
   // aser
@@ -862,7 +980,7 @@
   var parts = [name];
   reduce(function(state, arg) { return (function() {
   var skip = get(state, "skip");
-  return (isSxTruthy(skip) ? assoc(state, "skip", false) : (isSxTruthy((isSxTruthy((typeOf(arg) == "keyword")) && ((get(state, "i") + 1) < len(args)))) ? (function() {
+  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(!isNil(val))) {
   parts.push((String(":") + String(keywordName(arg))));
@@ -881,6 +999,628 @@
 })(); };
 
 
+  // === Transpiled from adapter-dom ===
+
+  // SVG_NS
+  var SVG_NS = "http://www.w3.org/2000/svg";
+
+  // MATH_NS
+  var MATH_NS = "http://www.w3.org/1998/Math/MathML";
+
+  // render-to-dom
+  var renderToDom = function(expr, env, ns) { return (function() { var _m = typeOf(expr); if (_m == "nil") return createFragment(); if (_m == "boolean") return createFragment(); if (_m == "raw-html") return domParseHtml(rawHtmlContent(expr)); if (_m == "string") return createTextNode(expr); if (_m == "number") return createTextNode((String(expr))); if (_m == "symbol") return renderToDom(trampoline(evalExpr(expr, env)), env, ns); if (_m == "keyword") return createTextNode(keywordName(expr)); if (_m == "dom-node") return expr; if (_m == "dict") return createFragment(); if (_m == "list") return (isSxTruthy(isEmpty(expr)) ? createFragment() : renderDomList(expr, env, ns)); if (_m == "style-value") return createTextNode(styleValueClass(expr)); return createTextNode((String(expr))); })(); };
+
+  // render-dom-list
+  var renderDomList = function(expr, env, ns) { return (function() {
+  var head = first(expr);
+  return (isSxTruthy((typeOf(head) == "symbol")) ? (function() {
+  var name = symbolName(head);
+  var args = rest(expr);
+  return (isSxTruthy((name == "raw!")) ? renderDomRaw(args, env) : (isSxTruthy((name == "<>")) ? renderDomFragment(args, env, ns) : (isSxTruthy(startsWith(name, "html:")) ? renderDomElement(slice(name, 5), args, env, ns) : (isSxTruthy(isRenderDomForm(name)) ? (isSxTruthy((isSxTruthy(contains(HTML_TAGS, name)) && sxOr((isSxTruthy((len(args) > 0)) && (typeOf(first(args)) == "keyword")), ns))) ? renderDomElement(name, args, env, ns) : dispatchRenderForm(name, expr, env, ns)) : (isSxTruthy((isSxTruthy(envHas(env, name)) && isMacro(envGet(env, name)))) ? renderToDom(expandMacro(envGet(env, name), args, env), env, ns) : (isSxTruthy(contains(HTML_TAGS, name)) ? renderDomElement(name, args, env, ns) : (isSxTruthy(startsWith(name, "~")) ? (function() {
+  var comp = envGet(env, name);
+  return (isSxTruthy(isComponent(comp)) ? renderDomComponent(comp, args, env, ns) : renderDomUnknownComponent(name));
+})() : (isSxTruthy((isSxTruthy((indexOf_(name, "-") > 0)) && isSxTruthy((len(args) > 0)) && (typeOf(first(args)) == "keyword"))) ? renderDomElement(name, args, env, ns) : (isSxTruthy(ns) ? renderDomElement(name, args, env, ns) : renderToDom(trampoline(evalExpr(expr, env)), env, ns))))))))));
+})() : (isSxTruthy(sxOr(isLambda(head), (typeOf(head) == "list"))) ? renderToDom(trampoline(evalExpr(expr, env)), env, ns) : (function() {
+  var frag = createFragment();
+  { var _c = expr; for (var _i = 0; _i < _c.length; _i++) { var x = _c[_i]; domAppend(frag, renderToDom(x, env, ns)); } }
+  return frag;
+})()));
+})(); };
+
+  // render-dom-element
+  var renderDomElement = function(tag, args, env, ns) { return (function() {
+  var newNs = (isSxTruthy((tag == "svg")) ? SVG_NS : (isSxTruthy((tag == "math")) ? MATH_NS : ns));
+  var el = domCreateElement(tag, newNs);
+  var extraClass = NIL;
+  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 attrName = keywordName(arg);
+  var attrVal = trampoline(evalExpr(nth(args, (get(state, "i") + 1)), env));
+  (isSxTruthy(sxOr(isNil(attrVal), (attrVal == false))) ? NIL : (isSxTruthy((isSxTruthy((attrName == "style")) && isStyleValue(attrVal))) ? (extraClass = styleValueClass(attrVal)) : (isSxTruthy(contains(BOOLEAN_ATTRS, attrName)) ? (isSxTruthy(attrVal) ? domSetAttr(el, attrName, "") : NIL) : (isSxTruthy((attrVal == true)) ? domSetAttr(el, attrName, "") : domSetAttr(el, attrName, (String(attrVal)))))));
+  return assoc(state, "skip", true, "i", (get(state, "i") + 1));
+})() : ((isSxTruthy(!contains(VOID_ELEMENTS, tag)) ? domAppend(el, renderToDom(arg, env, newNs)) : NIL), assoc(state, "i", (get(state, "i") + 1)))));
+})(); }, {["i"]: 0, ["skip"]: false}, args);
+  if (isSxTruthy(extraClass)) {
+  (function() {
+  var existing = domGetAttr(el, "class");
+  return domSetAttr(el, "class", (isSxTruthy(existing) ? (String(existing) + String(" ") + String(extraClass)) : extraClass));
+})();
+}
+  return el;
+})(); };
+
+  // render-dom-component
+  var renderDomComponent = function(comp, args, env, ns) { 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))) {
+  (function() {
+  var childFrag = createFragment();
+  { var _c = children; for (var _i = 0; _i < _c.length; _i++) { var c = _c[_i]; domAppend(childFrag, renderToDom(c, env, ns)); } }
+  return envSet(local, "children", childFrag);
+})();
+}
+  return renderToDom(componentBody(comp), local, ns);
+})();
+})(); };
+
+  // render-dom-fragment
+  var renderDomFragment = function(args, env, ns) { return (function() {
+  var frag = createFragment();
+  { var _c = args; for (var _i = 0; _i < _c.length; _i++) { var x = _c[_i]; domAppend(frag, renderToDom(x, env, ns)); } }
+  return frag;
+})(); };
+
+  // render-dom-raw
+  var renderDomRaw = function(args, env) { return (function() {
+  var frag = createFragment();
+  { var _c = args; for (var _i = 0; _i < _c.length; _i++) { var arg = _c[_i]; (function() {
+  var val = trampoline(evalExpr(arg, env));
+  return (isSxTruthy((typeOf(val) == "string")) ? domAppend(frag, domParseHtml(val)) : (isSxTruthy((typeOf(val) == "dom-node")) ? domAppend(frag, domClone(val)) : (isSxTruthy(!isNil(val)) ? domAppend(frag, createTextNode((String(val)))) : NIL)));
+})(); } }
+  return frag;
+})(); };
+
+  // render-dom-unknown-component
+  var renderDomUnknownComponent = function(name) { return (function() {
+  var el = domCreateElement("div", NIL);
+  domSetAttr(el, "style", "background:#fef2f2;border:1px solid #fca5a5;color:#991b1b;padding:4px 8px;margin:2px;border-radius:4px;font-size:12px;font-family:monospace");
+  domAppend(el, createTextNode((String("Unknown component: ") + String(name))));
+  return el;
+})(); };
+
+  // RENDER_DOM_FORMS
+  var RENDER_DOM_FORMS = ["if", "when", "cond", "case", "let", "let*", "begin", "do", "define", "defcomp", "defmacro", "defstyle", "defkeyframes", "defhandler", "map", "map-indexed", "filter", "for-each"];
+
+  // render-dom-form?
+  var isRenderDomForm = function(name) { return contains(RENDER_DOM_FORMS, name); };
+
+  // dispatch-render-form
+  var dispatchRenderForm = function(name, expr, env, ns) { return (isSxTruthy((name == "if")) ? (function() {
+  var condVal = trampoline(evalExpr(nth(expr, 1), env));
+  return (isSxTruthy(condVal) ? renderToDom(nth(expr, 2), env, ns) : (isSxTruthy((len(expr) > 3)) ? renderToDom(nth(expr, 3), env, ns) : createFragment()));
+})() : (isSxTruthy((name == "when")) ? (isSxTruthy(!trampoline(evalExpr(nth(expr, 1), env))) ? createFragment() : (function() {
+  var frag = createFragment();
+  { var _c = range(2, len(expr)); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; domAppend(frag, renderToDom(nth(expr, i), env, ns)); } }
+  return frag;
+})()) : (isSxTruthy((name == "cond")) ? (function() {
+  var branch = evalCond(rest(expr), env);
+  return (isSxTruthy(branch) ? renderToDom(branch, env, ns) : createFragment());
+})() : (isSxTruthy((name == "case")) ? renderToDom(trampoline(evalExpr(expr, env)), env, ns) : (isSxTruthy(sxOr((name == "let"), (name == "let*"))) ? (function() {
+  var local = processBindings(nth(expr, 1), env);
+  var frag = createFragment();
+  { var _c = range(2, len(expr)); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; domAppend(frag, renderToDom(nth(expr, i), local, ns)); } }
+  return frag;
+})() : (isSxTruthy(sxOr((name == "begin"), (name == "do"))) ? (function() {
+  var frag = createFragment();
+  { var _c = range(1, len(expr)); for (var _i = 0; _i < _c.length; _i++) { var i = _c[_i]; domAppend(frag, renderToDom(nth(expr, i), env, ns)); } }
+  return frag;
+})() : (isSxTruthy(isDefinitionForm(name)) ? (trampoline(evalExpr(expr, env)), createFragment()) : (isSxTruthy((name == "map")) ? (function() {
+  var f = trampoline(evalExpr(nth(expr, 1), env));
+  var coll = trampoline(evalExpr(nth(expr, 2), env));
+  var frag = createFragment();
+  { var _c = coll; for (var _i = 0; _i < _c.length; _i++) { var item = _c[_i]; (function() {
+  var val = (isSxTruthy(isLambda(f)) ? renderLambdaDom(f, [item], env, ns) : renderToDom(apply(f, [item]), env, ns));
+  return domAppend(frag, val);
+})(); } }
+  return frag;
+})() : (isSxTruthy((name == "map-indexed")) ? (function() {
+  var f = trampoline(evalExpr(nth(expr, 1), env));
+  var coll = trampoline(evalExpr(nth(expr, 2), env));
+  var frag = createFragment();
+  forEachIndexed(function(i, item) { return (function() {
+  var val = (isSxTruthy(isLambda(f)) ? renderLambdaDom(f, [i, item], env, ns) : renderToDom(apply(f, [i, item]), env, ns));
+  return domAppend(frag, val);
+})(); }, coll);
+  return frag;
+})() : (isSxTruthy((name == "filter")) ? renderToDom(trampoline(evalExpr(expr, env)), env, ns) : (isSxTruthy((name == "for-each")) ? (function() {
+  var f = trampoline(evalExpr(nth(expr, 1), env));
+  var coll = trampoline(evalExpr(nth(expr, 2), env));
+  var frag = createFragment();
+  { var _c = coll; for (var _i = 0; _i < _c.length; _i++) { var item = _c[_i]; (function() {
+  var val = (isSxTruthy(isLambda(f)) ? renderLambdaDom(f, [item], env, ns) : renderToDom(apply(f, [item]), env, ns));
+  return domAppend(frag, val);
+})(); } }
+  return frag;
+})() : renderToDom(trampoline(evalExpr(expr, env)), env, ns)))))))))))); };
+
+  // render-lambda-dom
+  var renderLambdaDom = function(f, args, env, ns) { return (function() {
+  var local = envMerge(lambdaClosure(f), env);
+  forEachIndexed(function(i, p) { return envSet(local, p, nth(args, i)); }, lambdaParams(f));
+  return renderToDom(lambdaBody(f), local, ns);
+})(); };
+
+
+  // === Transpiled from engine ===
+
+  // ENGINE_VERBS
+  var ENGINE_VERBS = ["get", "post", "put", "delete", "patch"];
+
+  // DEFAULT_SWAP
+  var DEFAULT_SWAP = "outerHTML";
+
+  // parse-time
+  var parseTime = function(s) { return (isSxTruthy(isNil(s)) ? 0 : (isSxTruthy(endsWith(s, "ms")) ? parseInt_(s, 0) : (isSxTruthy(endsWith(s, "s")) ? (parseInt_(replace_(s, "s", ""), 0) * 1000) : parseInt_(s, 0)))); };
+
+  // parse-trigger-spec
+  var parseTriggerSpec = function(spec) { return (isSxTruthy(isNil(spec)) ? NIL : (function() {
+  var rawParts = split(spec, ",");
+  return filter(function(x) { return !isNil(x); }, map(function(part) { return (function() {
+  var tokens = split(trim(part), " ");
+  return (isSxTruthy(isEmpty(tokens)) ? NIL : (isSxTruthy((isSxTruthy((first(tokens) == "every")) && (len(tokens) >= 2))) ? {["event"]: "every", ["modifiers"]: {["interval"]: parseTime(nth(tokens, 1))}} : (function() {
+  var mods = {};
+  { var _c = rest(tokens); for (var _i = 0; _i < _c.length; _i++) { var tok = _c[_i]; (isSxTruthy((tok == "once")) ? dictSet(mods, "once", true) : (isSxTruthy((tok == "changed")) ? dictSet(mods, "changed", true) : (isSxTruthy(startsWith(tok, "delay:")) ? dictSet(mods, "delay", parseTime(slice(tok, 6))) : (isSxTruthy(startsWith(tok, "from:")) ? dictSet(mods, "from", slice(tok, 5)) : NIL)))); } }
+  return {["event"]: first(tokens), ["modifiers"]: mods};
+})()));
+})(); }, rawParts));
+})()); };
+
+  // default-trigger
+  var defaultTrigger = function(tagName) { return (isSxTruthy((tagName == "FORM")) ? [{["event"]: "submit", ["modifiers"]: {}}] : (isSxTruthy(sxOr((tagName == "INPUT"), (tagName == "SELECT"), (tagName == "TEXTAREA"))) ? [{["event"]: "change", ["modifiers"]: {}}] : [{["event"]: "click", ["modifiers"]: {}}])); };
+
+  // get-verb-info
+  var getVerbInfo = function(el) { return some(function(verb) { return (function() {
+  var url = domGetAttr(el, (String("sx-") + String(verb)));
+  return (isSxTruthy(url) ? {["method"]: upper(verb), ["url"]: url} : NIL);
+})(); }, ENGINE_VERBS); };
+
+  // build-request-headers
+  var buildRequestHeaders = function(el, loadedComponents, cssHash) { return (function() {
+  var headers = {["SX-Request"]: "true", ["SX-Current-URL"]: browserLocationHref()};
+  (function() {
+  var targetSel = domGetAttr(el, "sx-target");
+  return (isSxTruthy(targetSel) ? dictSet(headers, "SX-Target", targetSel) : NIL);
+})();
+  if (isSxTruthy(!isEmpty(loadedComponents))) {
+  headers["SX-Components"] = join(",", loadedComponents);
+}
+  if (isSxTruthy(cssHash)) {
+  headers["SX-Css"] = cssHash;
+}
+  (function() {
+  var extraH = domGetAttr(el, "sx-headers");
+  return (isSxTruthy(extraH) ? (function() {
+  var parsed = parseHeaderValue(extraH);
+  return (isSxTruthy(parsed) ? forEach(function(key) { return dictSet(headers, key, (String(get(parsed, key)))); }, keys(parsed)) : NIL);
+})() : NIL);
+})();
+  return headers;
+})(); };
+
+  // process-response-headers
+  var processResponseHeaders = function(getHeader) { return {["redirect"]: getHeader("SX-Redirect"), ["refresh"]: getHeader("SX-Refresh"), ["trigger"]: getHeader("SX-Trigger"), ["retarget"]: getHeader("SX-Retarget"), ["reswap"]: getHeader("SX-Reswap"), ["location"]: getHeader("SX-Location"), ["replace-url"]: getHeader("SX-Replace-Url"), ["css-hash"]: getHeader("SX-Css-Hash"), ["trigger-swap"]: getHeader("SX-Trigger-After-Swap"), ["trigger-settle"]: getHeader("SX-Trigger-After-Settle"), ["content-type"]: getHeader("Content-Type")}; };
+
+  // parse-swap-spec
+  var parseSwapSpec = function(rawSwap, globalTransitions_p) { return (function() {
+  var parts = split(sxOr(rawSwap, DEFAULT_SWAP), " ");
+  var style = first(parts);
+  var useTransition = globalTransitions_p;
+  { var _c = rest(parts); for (var _i = 0; _i < _c.length; _i++) { var p = _c[_i]; (isSxTruthy((p == "transition:true")) ? (useTransition = true) : (isSxTruthy((p == "transition:false")) ? (useTransition = false) : NIL)); } }
+  return {["style"]: style, ["transition"]: useTransition};
+})(); };
+
+  // parse-retry-spec
+  var parseRetrySpec = function(retryAttr) { return (isSxTruthy(isNil(retryAttr)) ? NIL : (function() {
+  var parts = split(retryAttr, ":");
+  return {["strategy"]: first(parts), ["start-ms"]: parseInt_(nth(parts, 1), 1000), ["cap-ms"]: parseInt_(nth(parts, 2), 30000)};
+})()); };
+
+  // next-retry-ms
+  var nextRetryMs = function(currentMs, capMs) { return min((currentMs * 2), capMs); };
+
+  // filter-params
+  var filterParams = function(paramsSpec, allParams) { return (isSxTruthy(isNil(paramsSpec)) ? allParams : (isSxTruthy((paramsSpec == "none")) ? [] : (isSxTruthy((paramsSpec == "*")) ? allParams : (isSxTruthy(startsWith(paramsSpec, "not ")) ? (function() {
+  var excluded = map(trim, split(slice(paramsSpec, 4), ","));
+  return filter(function(p) { return !contains(excluded, first(p)); }, allParams);
+})() : (function() {
+  var allowed = map(trim, split(paramsSpec, ","));
+  return filter(function(p) { return contains(allowed, first(p)); }, allParams);
+})())))); };
+
+  // resolve-target
+  var resolveTarget = function(el) { return (function() {
+  var sel = domGetAttr(el, "sx-target");
+  return (isSxTruthy(sxOr(isNil(sel), (sel == "this"))) ? el : (isSxTruthy((sel == "closest")) ? domParent(el) : domQuery(sel)));
+})(); };
+
+  // apply-optimistic
+  var applyOptimistic = function(el) { return (function() {
+  var directive = domGetAttr(el, "sx-optimistic");
+  return (isSxTruthy(isNil(directive)) ? NIL : (function() {
+  var target = sxOr(resolveTarget(el), el);
+  var state = {["target"]: target, ["directive"]: directive};
+  (isSxTruthy((directive == "remove")) ? (dictSet(state, "opacity", domGetStyle(target, "opacity")), domSetStyle(target, "opacity", "0"), domSetStyle(target, "pointer-events", "none")) : (isSxTruthy((directive == "disable")) ? (dictSet(state, "disabled", domGetProp(target, "disabled")), domSetProp(target, "disabled", true)) : (isSxTruthy(startsWith(directive, "add-class:")) ? (function() {
+  var cls = slice(directive, 10);
+  state["add-class"] = cls;
+  return domAddClass(target, cls);
+})() : NIL)));
+  return state;
+})());
+})(); };
+
+  // revert-optimistic
+  var revertOptimistic = function(state) { return (isSxTruthy(state) ? (function() {
+  var target = get(state, "target");
+  var directive = get(state, "directive");
+  return (isSxTruthy((directive == "remove")) ? (domSetStyle(target, "opacity", sxOr(get(state, "opacity"), "")), domSetStyle(target, "pointer-events", "")) : (isSxTruthy((directive == "disable")) ? domSetProp(target, "disabled", sxOr(get(state, "disabled"), false)) : (isSxTruthy(get(state, "add-class")) ? domRemoveClass(target, get(state, "add-class")) : NIL)));
+})() : NIL); };
+
+  // find-oob-swaps
+  var findOobSwaps = function(container) { return (function() {
+  var results = [];
+  { var _c = ["sx-swap-oob", "hx-swap-oob"]; for (var _i = 0; _i < _c.length; _i++) { var attr = _c[_i]; (function() {
+  var oobEls = domQueryAll(container, (String("[") + String(attr) + String("]")));
+  return forEach(function(oob) { return (function() {
+  var swapType = sxOr(domGetAttr(oob, attr), "outerHTML");
+  var targetId = domId(oob);
+  domRemoveAttr(oob, attr);
+  return (isSxTruthy(targetId) ? append_b(results, {["element"]: oob, ["swap-type"]: swapType, ["target-id"]: targetId}) : NIL);
+})(); }, oobEls);
+})(); } }
+  return results;
+})(); };
+
+  // morph-node
+  var morphNode = function(oldNode, newNode) { return (isSxTruthy(sxOr(domHasAttr(oldNode, "sx-preserve"), domHasAttr(oldNode, "sx-ignore"))) ? NIL : (isSxTruthy(sxOr(!(domNodeType(oldNode) == domNodeType(newNode)), !(domNodeName(oldNode) == domNodeName(newNode)))) ? domReplaceChild(domParent(oldNode), domClone(newNode), oldNode) : (isSxTruthy(sxOr((domNodeType(oldNode) == 3), (domNodeType(oldNode) == 8))) ? (isSxTruthy(!(domTextContent(oldNode) == domTextContent(newNode))) ? domSetTextContent(oldNode, domTextContent(newNode)) : NIL) : (isSxTruthy((domNodeType(oldNode) == 1)) ? (syncAttrs(oldNode, newNode), (isSxTruthy(!(isSxTruthy(domIsActiveElement(oldNode)) && domIsInputElement(oldNode))) ? morphChildren(oldNode, newNode) : NIL)) : NIL)))); };
+
+  // sync-attrs
+  var syncAttrs = function(oldEl, newEl) { return forEach(function(attr) { return (function() {
+  var name = first(attr);
+  var val = nth(attr, 1);
+  return (isSxTruthy(!(domGetAttr(oldEl, name) == val)) ? domSetAttr(oldEl, name, val) : NIL);
+})(); }, domAttrList(newEl)); };
+
+  // morph-children
+  var morphChildren = function(oldParent, newParent) { return (function() {
+  var oldKids = domChildList(oldParent);
+  var newKids = domChildList(newParent);
+  var oldById = reduce(function(acc, kid) { return (function() {
+  var id = domId(kid);
+  return (isSxTruthy(id) ? (dictSet(acc, id, kid), acc) : acc);
+})(); }, {}, oldKids);
+  var oi = 0;
+  { var _c = newKids; for (var _i = 0; _i < _c.length; _i++) { var newChild = _c[_i]; (function() {
+  var matchId = domId(newChild);
+  var matchById = (isSxTruthy(matchId) ? dictGet(oldById, matchId) : NIL);
+  return (isSxTruthy((isSxTruthy(matchById) && !isNil(matchById))) ? ((isSxTruthy((isSxTruthy((oi < len(oldKids))) && !(matchById == nth(oldKids, oi)))) ? domInsertBefore(oldParent, matchById, (isSxTruthy((oi < len(oldKids))) ? nth(oldKids, oi) : NIL)) : NIL), morphNode(matchById, newChild), (oi = (oi + 1))) : (isSxTruthy((oi < len(oldKids))) ? (function() {
+  var oldChild = nth(oldKids, oi);
+  return (isSxTruthy((isSxTruthy(domId(oldChild)) && !matchId)) ? domInsertBefore(oldParent, domClone(newChild), oldChild) : (morphNode(oldChild, newChild), (oi = (oi + 1))));
+})() : domAppend(oldParent, domClone(newChild))));
+})(); } }
+  return forEach(function(i) { return (isSxTruthy((i >= oi)) ? (function() {
+  var leftover = nth(oldKids, i);
+  return (isSxTruthy((isSxTruthy(domIsChildOf(leftover, oldParent)) && isSxTruthy(!domHasAttr(leftover, "sx-preserve")) && !domHasAttr(leftover, "sx-ignore"))) ? domRemoveChild(oldParent, leftover) : NIL);
+})() : NIL); }, range(oi, len(oldKids)));
+})(); };
+
+  // swap-dom-nodes
+  var swapDomNodes = function(target, newNodes, strategy) { return (function() { var _m = strategy; if (_m == "innerHTML") return (isSxTruthy(domIsFragment(newNodes)) ? morphChildren(target, newNodes) : (function() {
+  var wrapper = domCreateElement("div", NIL);
+  domAppend(wrapper, newNodes);
+  return morphChildren(target, wrapper);
+})()); if (_m == "outerHTML") return (function() {
+  var parent = domParent(target);
+  (isSxTruthy(domIsFragment(newNodes)) ? (function() {
+  var fc = domFirstChild(newNodes);
+  return (isSxTruthy(fc) ? (morphNode(target, fc), (function() {
+  var sib = domNextSibling(fc);
+  return insertRemainingSiblings(parent, target, sib);
+})()) : domRemoveChild(parent, target));
+})() : morphNode(target, newNodes));
+  return parent;
+})(); if (_m == "afterend") return domInsertAfter(target, newNodes); if (_m == "beforeend") return domAppend(target, newNodes); if (_m == "afterbegin") return domPrepend(target, newNodes); if (_m == "beforebegin") return domInsertBefore(domParent(target), newNodes, target); if (_m == "delete") return domRemoveChild(domParent(target), target); if (_m == "none") return NIL; return (isSxTruthy(domIsFragment(newNodes)) ? morphChildren(target, newNodes) : (function() {
+  var wrapper = domCreateElement("div", NIL);
+  domAppend(wrapper, newNodes);
+  return morphChildren(target, wrapper);
+})()); })(); };
+
+  // insert-remaining-siblings
+  var insertRemainingSiblings = function(parent, refNode, sib) { return (isSxTruthy(sib) ? (function() {
+  var next = domNextSibling(sib);
+  domInsertAfter(refNode, sib);
+  return insertRemainingSiblings(parent, sib, next);
+})() : NIL); };
+
+  // swap-html-string
+  var swapHtmlString = function(target, html, strategy) { return (function() { var _m = strategy; if (_m == "innerHTML") return domSetInnerHtml(target, html); if (_m == "outerHTML") return (function() {
+  var parent = domParent(target);
+  domInsertAdjacentHtml(target, "afterend", html);
+  domRemoveChild(parent, target);
+  return parent;
+})(); if (_m == "afterend") return domInsertAdjacentHtml(target, "afterend", html); if (_m == "beforeend") return domInsertAdjacentHtml(target, "beforeend", html); if (_m == "afterbegin") return domInsertAdjacentHtml(target, "afterbegin", html); if (_m == "beforebegin") return domInsertAdjacentHtml(target, "beforebegin", html); if (_m == "delete") return domRemoveChild(domParent(target), target); if (_m == "none") return NIL; return domSetInnerHtml(target, html); })(); };
+
+  // handle-history
+  var handleHistory = function(el, url, respHeaders) { return (function() {
+  var pushUrl = domGetAttr(el, "sx-push-url");
+  var replaceUrl = domGetAttr(el, "sx-replace-url");
+  var hdrReplace = get(respHeaders, "replace-url");
+  return (isSxTruthy(hdrReplace) ? browserReplaceState(hdrReplace) : (isSxTruthy((isSxTruthy(pushUrl) && !(pushUrl == "false"))) ? browserPushState((isSxTruthy((pushUrl == "true")) ? url : pushUrl)) : (isSxTruthy((isSxTruthy(replaceUrl) && !(replaceUrl == "false"))) ? browserReplaceState((isSxTruthy((replaceUrl == "true")) ? url : replaceUrl)) : NIL)));
+})(); };
+
+  // PRELOAD_TTL
+  var PRELOAD_TTL = 30000;
+
+  // preload-cache-get
+  var preloadCacheGet = function(cache, url) { return (function() {
+  var entry = dictGet(cache, url);
+  return (isSxTruthy(isNil(entry)) ? NIL : (isSxTruthy(((nowMs() - get(entry, "timestamp")) > PRELOAD_TTL)) ? (dictDelete(cache, url), NIL) : (dictDelete(cache, url), entry)));
+})(); };
+
+  // preload-cache-set
+  var preloadCacheSet = function(cache, url, text, contentType) { return dictSet(cache, url, {["text"]: text, ["content-type"]: contentType, ["timestamp"]: nowMs()}); };
+
+  // classify-trigger
+  var classifyTrigger = function(trigger) { return (function() {
+  var event = get(trigger, "event");
+  return (isSxTruthy((event == "every")) ? "poll" : (isSxTruthy((event == "intersect")) ? "intersect" : (isSxTruthy((event == "load")) ? "load" : (isSxTruthy((event == "revealed")) ? "revealed" : "event"))));
+})(); };
+
+  // should-boost-link?
+  var shouldBoostLink = function(link) { return (function() {
+  var href = domGetAttr(link, "href");
+  return (isSxTruthy(href) && isSxTruthy(!startsWith(href, "#")) && isSxTruthy(!startsWith(href, "javascript:")) && isSxTruthy(!startsWith(href, "mailto:")) && isSxTruthy(browserSameOrigin(href)) && isSxTruthy(!domHasAttr(link, "sx-get")) && isSxTruthy(!domHasAttr(link, "sx-post")) && !domHasAttr(link, "sx-disable"));
+})(); };
+
+  // should-boost-form?
+  var shouldBoostForm = function(form) { return (isSxTruthy(!domHasAttr(form, "sx-get")) && isSxTruthy(!domHasAttr(form, "sx-post")) && !domHasAttr(form, "sx-disable")); };
+
+  // parse-sse-swap
+  var parseSseSwap = function(el) { return sxOr(domGetAttr(el, "sx-sse-swap"), "message"); };
+
+
+  // =========================================================================
+  // Platform interface — DOM adapter (browser-only)
+  // =========================================================================
+
+  var _hasDom = typeof document !== "undefined";
+
+  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) return document.createElementNS(ns, tag);
+    return document.createElement(tag);
+  }
+
+  function createTextNode(s) {
+    return _hasDom ? document.createTextNode(s) : null;
+  }
+
+  function createFragment() {
+    return _hasDom ? document.createDocumentFragment() : null;
+  }
+
+  function domAppend(parent, child) {
+    if (parent && child) 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) {
+      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; }
+
+  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) return false;
+    var evt = new CustomEvent(name, { bubbles: true, cancelable: true, detail: detail || {} });
+    return el.dispatchEvent(evt);
+  }
+
+  function domQuery(sel) {
+    return _hasDom ? document.querySelector(sel) : 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 : ""; }
+
+
+  // =========================================================================
+  // Platform interface — Engine (browser-only)
+  // =========================================================================
+
+  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 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 nowMs() { return 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; }
+  }
+
+
   // =========================================================================
   // Post-transpilation fixups
   // =========================================================================
@@ -896,17 +1636,12 @@
   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;
+  if (typeof renderToDom === "function") PRIMITIVES["render-to-dom"] = renderToDom;
 
   // =========================================================================
-  // Parser (reused from reference — hand-written for bootstrap simplicity)
+  // Parser
   // =========================================================================
 
-  // The parser is the one piece we keep as hand-written JS since the
-  // reference parser.sx is more of a spec than directly compilable code
-  // (it uses mutable cursor state that doesn't map cleanly to the
-  // transpiler's functional output).  A future version could bootstrap
-  // the parser too.
-
   function parse(text) {
     var pos = 0;
     function skipWs() {
@@ -1019,32 +1754,23 @@
   }
 
   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 result = trampoline(evalExpr(exprs[i], merge(componentEnv)));
-      appendToDOM(frag, result, merge(componentEnv));
-    }
+    for (var i = 0; i < exprs.length; i++) frag.appendChild(renderToDom(exprs[i], merge(componentEnv), null));
     return frag;
   }
 
-  function appendToDOM(parent, val, env) {
-    if (isNil(val)) return;
-    if (typeof val === "string") { parent.appendChild(document.createTextNode(val)); return; }
-    if (typeof val === "number") { parent.appendChild(document.createTextNode(String(val))); return; }
-    if (val._raw) { var t = document.createElement("template"); t.innerHTML = val.html; parent.appendChild(t.content); return; }
-    if (Array.isArray(val)) {
-      // Could be a rendered element or a list of results
-      if (val.length > 0 && isSym(val[0])) {
-        // It's an unevaluated expression — evaluate it
-        var result = trampoline(evalExpr(val, env));
-        appendToDOM(parent, result, env);
-      } else {
-        for (var i = 0; i < val.length; i++) appendToDOM(parent, val[i], env);
-      }
-      return;
-    }
-    parent.appendChild(document.createTextNode(String(val)));
+  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 SxRef = {
@@ -1052,15 +1778,23 @@
     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,
     componentEnv: componentEnv,
-    _version: "ref-1.0 (bootstrap-compiled)"
+    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,
+    morphNode: typeof morphNode === "function" ? morphNode : null,
+    morphChildren: typeof morphChildren === "function" ? morphChildren : null,
+    swapDomNodes: typeof swapDomNodes === "function" ? swapDomNodes : null,
+    _version: "ref-2.0 (dom+engine+html+sx, bootstrap-compiled)"
   };
 
   if (typeof module !== "undefined" && module.exports) module.exports = SxRef;
   else global.SxRef = SxRef;
 
-})(typeof globalThis !== "undefined" ? globalThis : typeof window !== "undefined" ? window : this);
+})(typeof globalThis !== "undefined" ? globalThis : typeof window !== "undefined" ? window : this);