Files
rose-ash/shared/static/wasm/sx/adapter-html.sxbc
giles e0070041d6 Add .sxbc s-expression bytecode format
Bytecode modules are now serialized as s-expressions (.sxbc) in addition
to JSON (.sxbc.json). The .sxbc format is the canonical representation —
content-addressable, parseable by the SX parser, and suitable for CID
referencing. Annotation layers (source maps, variable names, tests, docs)
can reference the bytecode CID without polluting the bytecode itself.

Format: (sxbc version hash (code :arity N :bytecode (...) :constants (...)))

The browser loader tries .sxbc first (via load-sxbc kernel primitive),
falls back to .sxbc.json. Caddy needs .sxbc MIME type to serve the new
format (currently 404s, JSON fallback works).

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
2026-03-27 14:16:22 +00:00

544 lines
23 KiB
Plaintext

(sxbc 1 "086e7cdb6c662abb"
(code
:bytecode (51 1 0 128 0 0 5 51 3 0 128 2 0 5 1 6 0 1 7 0 1 8 0 1 9 0 1 10 0 1 11 0 1 12 0 1 13 0 1 14 0 1 15 0 1 16 0 1 17 0 1 18 0 1 19 0 1 20 0 1 21 0 1 22 0 1 23 0 1 24 0 1 25 0 1 26 0 1 27 0 52 5 0 22 128 4 0 5 51 29 0 128 28 0 5 51 31 0 128 30 0 5 51 33 0 128 32 0 5 51 35 0 128 34 0 5 51 37 0 128 36 0 5 51 39 0 128 38 0 5 51 41 0 128 40 0 5 51 43 0 128 42 0 5 51 45 0 128 44 0 5 51 47 0 128 46 0 50)
:constants (
"render-to-html"
(code :arity 2
:bytecode (20 0 0 3 48 1 5 16 0 52 1 0 1 6 1 2 0 52 3 0 2 33 7 0 5 1 4 0 32 27 1 6 1 5 0 52 3 0 2 33 11 0 5 20 6 0 16 0 49 1 32 5 1 6 1 7 0 52 3 0 2 33 10 0 5 16 0 52 8 0 1 32 240 0 6 1 9 0 52 3 0 2 33 18 0 5 16 0 33 6 0 1 10 0 32 3 0 1 11 0 32 211 0 6 1 12 0 52 3 0 2 33 28 0 5 16 0 52 13 0 1 33 6 0 1 4 0 32 9 0 20 14 0 16 0 16 1 49 2 32 172 0 6 1 15 0 52 3 0 2 33 25 0 5 20 16 0 20 17 0 20 18 0 16 0 16 1 48 2 48 1 16 1 49 2 32 136 0 6 1 19 0 52 3 0 2 33 16 0 5 20 6 0 20 20 0 16 0 48 1 49 1 32 109 0 6 1 21 0 52 3 0 2 33 10 0 5 16 0 52 22 0 1 32 88 0 6 1 23 0 52 3 0 2 33 21 0 5 1 25 0 16 0 52 26 0 1 52 24 0 2 5 1 4 0 32 56 0 6 1 27 0 52 3 0 2 33 23 0 5 20 28 0 20 29 0 16 0 48 1 20 30 0 16 0 48 1 49 2 32 22 0 5 20 16 0 20 17 0 20 18 0 16 0 16 1 48 2 48 1 16 1 49 2 50)
:constants (
"set-render-active!"
"type-of"
"nil"
"="
""
"string"
"escape-html"
"number"
"str"
"boolean"
"true"
"false"
"list"
"empty?"
"render-list-to-html"
"symbol"
"render-value-to-html"
"trampoline"
"eval-expr"
"keyword"
"keyword-name"
"raw-html"
"raw-html-content"
"spread"
"scope-emit!"
"element-attrs"
"spread-attrs"
"thunk"
"render-to-html"
"thunk-expr"
"thunk-env"))
"render-value-to-html"
(code :arity 2
:bytecode (16 0 52 0 0 1 6 1 1 0 52 2 0 2 33 7 0 5 1 3 0 32 195 0 6 1 4 0 52 2 0 2 33 11 0 5 20 5 0 16 0 49 1 32 173 0 6 1 6 0 52 2 0 2 33 10 0 5 16 0 52 7 0 1 32 152 0 6 1 8 0 52 2 0 2 33 18 0 5 16 0 33 6 0 1 9 0 32 3 0 1 10 0 32 123 0 6 1 11 0 52 2 0 2 33 13 0 5 20 12 0 16 0 16 1 49 2 32 99 0 6 1 13 0 52 2 0 2 33 10 0 5 16 0 52 14 0 1 32 78 0 6 1 15 0 52 2 0 2 33 21 0 5 1 17 0 16 0 52 18 0 1 52 16 0 2 5 1 3 0 32 46 0 6 1 19 0 52 2 0 2 33 23 0 5 20 20 0 20 21 0 16 0 48 1 20 22 0 16 0 48 1 49 2 32 12 0 5 20 5 0 16 0 52 7 0 1 49 1 50)
:constants (
"type-of"
"nil"
"="
""
"string"
"escape-html"
"number"
"str"
"boolean"
"true"
"false"
"list"
"render-list-to-html"
"raw-html"
"raw-html-content"
"spread"
"scope-emit!"
"element-attrs"
"spread-attrs"
"thunk"
"render-to-html"
"thunk-expr"
"thunk-env"))
"RENDER_HTML_FORMS"
"list"
"if"
"when"
"cond"
"case"
"let"
"let*"
"letrec"
"begin"
"do"
"define"
"defcomp"
"defisland"
"defmacro"
"defstyle"
"deftype"
"defeffect"
"map"
"map-indexed"
"filter"
"for-each"
"scope"
"provide"
"render-html-form?"
(code :arity 1
:bytecode (20 1 0 16 0 52 0 0 2 50)
:constants (
"contains?"
"RENDER_HTML_FORMS"))
"render-list-to-html"
(code :arity 2
:bytecode (16 0 52 0 0 1 33 6 0 1 1 0 32 15 2 16 0 52 2 0 1 17 2 16 2 52 5 0 1 1 6 0 52 4 0 2 52 3 0 1 33 21 0 1 1 0 51 9 0 1 1 16 0 52 8 0 2 52 7 0 2 32 222 1 20 10 0 16 2 48 1 17 3 16 0 52 11 0 1 17 4 16 3 1 12 0 52 4 0 2 33 21 0 1 1 0 51 13 0 1 1 16 4 52 8 0 2 52 7 0 2 32 172 1 16 3 1 14 0 52 4 0 2 33 21 0 1 1 0 51 15 0 1 1 16 4 52 8 0 2 52 7 0 2 32 139 1 16 3 1 16 0 52 4 0 2 33 12 0 20 17 0 16 4 16 1 49 2 32 115 1 16 3 1 18 0 52 4 0 2 33 12 0 20 19 0 16 4 16 1 49 2 32 91 1 16 3 1 20 0 52 4 0 2 6 34 24 0 5 16 3 1 21 0 52 4 0 2 6 34 10 0 5 16 3 1 22 0 52 4 0 2 33 21 0 1 1 0 51 13 0 1 1 16 4 52 8 0 2 52 7 0 2 32 30 1 20 24 0 16 3 52 23 0 2 33 14 0 20 25 0 16 3 16 4 16 1 49 3 32 4 1 16 3 1 27 0 52 26 0 2 6 33 28 0 5 20 28 0 16 1 16 3 48 2 6 33 14 0 5 20 30 0 16 1 16 3 48 2 52 29 0 1 33 21 0 20 31 0 20 30 0 16 1 16 3 48 2 16 4 16 1 49 3 32 195 0 16 3 1 27 0 52 26 0 2 33 80 0 20 30 0 16 1 16 3 48 2 17 5 16 5 52 32 0 1 33 14 0 20 33 0 16 5 16 4 16 1 49 3 32 43 0 16 5 52 34 0 1 33 21 0 20 35 0 20 36 0 16 5 16 4 16 1 48 3 16 1 49 2 32 13 0 1 39 0 16 3 52 38 0 2 52 37 0 1 32 103 0 20 40 0 16 3 48 1 33 14 0 20 41 0 16 3 16 0 16 1 49 3 32 79 0 20 28 0 16 1 16 3 48 2 6 33 14 0 5 20 30 0 16 1 16 3 48 2 52 34 0 1 33 28 0 20 35 0 20 36 0 20 30 0 16 1 16 3 48 2 16 4 16 1 48 3 16 1 49 2 32 21 0 20 42 0 20 43 0 20 44 0 16 0 16 1 48 2 48 1 16 1 49 2 50)
:constants (
"empty?"
""
"first"
"not"
"="
"type-of"
"symbol"
"join"
"map"
(code :arity 1 :upvalue-count 1
:bytecode (20 0 0 16 0 18 0 49 2 50)
:constants (
"render-value-to-html"))
"symbol-name"
"rest"
"<>"
(code :arity 1 :upvalue-count 1
:bytecode (20 0 0 16 0 18 0 49 2 50)
:constants (
"render-to-html"))
"raw!"
(code :arity 1 :upvalue-count 1
:bytecode (20 1 0 20 2 0 16 0 18 0 48 2 48 1 52 0 0 1 50)
:constants (
"str"
"trampoline"
"eval-expr"))
"lake"
"render-html-lake"
"marsh"
"render-html-marsh"
"portal"
"error-boundary"
"promise-delayed"
"contains?"
"HTML_TAGS"
"render-html-element"
"starts-with?"
"~"
"env-has?"
"island?"
"env-get"
"render-html-island"
"component?"
"render-html-component"
"macro?"
"render-to-html"
"expand-macro"
"error"
"str"
"Unknown component: "
"render-html-form?"
"dispatch-html-form"
"render-value-to-html"
"trampoline"
"eval-expr"))
"dispatch-html-form"
(code :arity 3
:bytecode (16 0 1 1 0 52 0 0 2 33 88 0 20 2 0 20 3 0 16 1 1 5 0 52 4 0 2 16 2 48 2 48 1 17 3 16 3 33 19 0 20 6 0 16 1 1 7 0 52 4 0 2 16 2 49 2 32 38 0 16 1 52 9 0 1 1 10 0 52 8 0 2 33 19 0 20 6 0 16 1 1 10 0 52 4 0 2 16 2 49 2 32 3 0 1 11 0 32 227 4 16 0 1 12 0 52 0 0 2 33 103 0 20 2 0 20 3 0 16 1 1 5 0 52 4 0 2 16 2 48 2 48 1 52 13 0 1 33 6 0 1 11 0 32 66 0 16 1 52 9 0 1 1 10 0 52 0 0 2 33 19 0 20 6 0 16 1 1 7 0 52 4 0 2 16 2 49 2 32 31 0 1 11 0 51 16 0 1 1 1 2 1 7 0 16 1 52 9 0 1 52 17 0 2 52 15 0 2 52 14 0 2 32 112 4 16 0 1 18 0 52 0 0 2 33 38 0 20 19 0 16 1 52 20 0 1 16 2 48 2 17 3 16 3 33 12 0 20 6 0 16 3 16 2 49 2 32 3 0 1 11 0 32 62 4 16 0 1 21 0 52 0 0 2 33 24 0 20 6 0 20 2 0 20 3 0 16 1 16 2 48 2 48 1 16 2 49 2 32 26 4 16 0 1 22 0 52 0 0 2 33 107 0 16 1 1 5 0 52 4 0 2 17 3 16 1 1 7 0 52 23 0 2 17 4 20 24 0 16 2 48 1 17 5 51 26 0 1 5 16 3 52 25 0 2 5 51 27 0 1 5 16 3 52 25 0 2 5 16 4 52 9 0 1 1 5 0 52 8 0 2 33 18 0 51 28 0 1 5 16 4 52 29 0 1 52 25 0 2 32 1 0 2 5 20 6 0 16 4 52 30 0 1 16 5 49 2 32 163 3 16 0 1 31 0 52 0 0 2 6 34 10 0 5 16 0 1 32 0 52 0 0 2 33 87 0 20 33 0 16 1 1 5 0 52 4 0 2 16 2 48 2 17 3 16 1 52 9 0 1 1 10 0 52 0 0 2 33 19 0 20 6 0 16 1 1 7 0 52 4 0 2 16 3 49 2 32 31 0 1 11 0 51 16 0 1 1 1 3 1 7 0 16 1 52 9 0 1 52 17 0 2 52 15 0 2 52 14 0 2 32 50 3 16 0 1 34 0 52 0 0 2 6 34 10 0 5 16 0 1 35 0 52 0 0 2 33 69 0 16 1 52 9 0 1 1 7 0 52 0 0 2 33 19 0 20 6 0 16 1 1 5 0 52 4 0 2 16 2 49 2 32 31 0 1 11 0 51 16 0 1 1 1 2 1 5 0 16 1 52 9 0 1 52 17 0 2 52 15 0 2 52 14 0 2 32 211 2 20 36 0 16 0 48 1 33 21 0 20 2 0 20 3 0 16 1 16 2 48 2 48 1 5 1 11 0 32 180 2 16 0 1 15 0 52 0 0 2 33 69 0 20 2 0 20 3 0 16 1 1 5 0 52 4 0 2 16 2 48 2 48 1 17 3 20 2 0 20 3 0 16 1 1 7 0 52 4 0 2 16 2 48 2 48 1 17 4 1 11 0 51 37 0 1 3 1 2 16 4 52 15 0 2 52 14 0 2 32 99 2 16 0 1 38 0 52 0 0 2 33 69 0 20 2 0 20 3 0 16 1 1 5 0 52 4 0 2 16 2 48 2 48 1 17 3 20 2 0 20 3 0 16 1 1 7 0 52 4 0 2 16 2 48 2 48 1 17 4 1 11 0 51 39 0 1 3 1 2 16 4 52 38 0 2 52 14 0 2 32 18 2 16 0 1 40 0 52 0 0 2 33 24 0 20 6 0 20 2 0 20 3 0 16 1 16 2 48 2 48 1 16 2 49 2 32 238 1 16 0 1 25 0 52 0 0 2 33 69 0 20 2 0 20 3 0 16 1 1 5 0 52 4 0 2 16 2 48 2 48 1 17 3 20 2 0 20 3 0 16 1 1 7 0 52 4 0 2 16 2 48 2 48 1 17 4 1 11 0 51 37 0 1 3 1 2 16 4 52 15 0 2 52 14 0 2 32 157 1 16 0 1 41 0 52 0 0 2 33 217 0 20 2 0 20 3 0 16 1 1 5 0 52 4 0 2 16 2 48 2 48 1 17 3 16 1 1 7 0 52 23 0 2 17 4 2 17 5 2 17 6 16 4 52 9 0 1 1 7 0 52 42 0 2 6 33 41 0 5 16 4 52 44 0 1 52 43 0 1 1 45 0 52 0 0 2 6 33 19 0 5 20 46 0 16 4 52 44 0 1 48 1 1 47 0 52 0 0 2 33 38 0 20 2 0 20 3 0 16 4 1 5 0 52 4 0 2 16 2 48 2 48 1 17 5 5 16 4 1 7 0 52 23 0 2 17 6 32 4 0 16 4 17 6 5 16 3 16 5 52 48 0 2 5 16 6 52 9 0 1 1 5 0 52 0 0 2 33 16 0 20 6 0 16 6 52 44 0 1 16 2 48 2 32 18 0 1 11 0 51 49 0 1 2 16 6 52 15 0 2 52 14 0 2 17 7 16 3 52 50 0 1 5 16 7 32 184 0 16 0 1 51 0 52 0 0 2 33 151 0 20 2 0 20 3 0 16 1 1 5 0 52 4 0 2 16 2 48 2 48 1 17 3 20 2 0 20 3 0 16 1 1 7 0 52 4 0 2 16 2 48 2 48 1 17 4 1 10 0 17 5 16 1 52 9 0 1 1 10 0 52 52 0 2 17 6 16 3 16 4 52 48 0 2 5 16 6 1 5 0 52 0 0 2 33 18 0 20 6 0 16 1 16 5 52 4 0 2 16 2 48 2 32 32 0 1 11 0 51 16 0 1 1 1 2 16 5 16 5 16 6 52 53 0 2 52 17 0 2 52 15 0 2 52 14 0 2 17 7 16 3 52 50 0 1 5 16 7 32 21 0 20 54 0 20 2 0 20 3 0 16 1 16 2 48 2 48 1 16 2 49 2 50)
:constants (
"="
"if"
"trampoline"
"eval-expr"
"nth"
1
"render-to-html"
2
">"
"len"
3
""
"when"
"not"
"join"
"map"
(code :arity 1 :upvalue-count 2
:bytecode (20 0 0 18 0 16 0 52 1 0 2 18 1 49 2 50)
:constants (
"render-to-html"
"nth"))
"range"
"cond"
"eval-cond"
"rest"
"case"
"letrec"
"slice"
"env-extend"
"for-each"
(code :arity 1 :upvalue-count 1
:bytecode (16 0 52 2 0 1 52 1 0 1 1 3 0 52 0 0 2 33 14 0 20 4 0 16 0 52 2 0 1 48 1 32 10 0 16 0 52 2 0 1 52 5 0 1 17 1 20 6 0 18 0 16 1 2 49 3 50)
:constants (
"="
"type-of"
"first"
"symbol"
"symbol-name"
"str"
"env-bind!"))
(code :arity 1 :upvalue-count 1
:bytecode (16 0 52 2 0 1 52 1 0 1 1 3 0 52 0 0 2 33 14 0 20 4 0 16 0 52 2 0 1 48 1 32 10 0 16 0 52 2 0 1 52 5 0 1 17 1 20 6 0 18 0 16 1 20 7 0 20 8 0 16 0 1 10 0 52 9 0 2 18 0 48 2 48 1 49 3 50)
:constants (
"="
"type-of"
"first"
"symbol"
"symbol-name"
"str"
"env-set!"
"trampoline"
"eval-expr"
"nth"
1))
(code :arity 1 :upvalue-count 1
:bytecode (20 0 0 20 1 0 16 0 18 0 48 2 49 1 50)
:constants (
"trampoline"
"eval-expr"))
"init"
"last"
"let"
"let*"
"process-bindings"
"begin"
"do"
"definition-form?"
(code :arity 1 :upvalue-count 2
:bytecode (18 0 52 0 0 1 33 18 0 20 1 0 18 0 16 0 52 2 0 1 18 1 49 3 32 19 0 20 3 0 18 0 16 0 52 2 0 1 52 4 0 2 18 1 49 2 50)
:constants (
"lambda?"
"render-lambda-html"
"list"
"render-to-html"
"apply"))
"map-indexed"
(code :arity 2 :upvalue-count 2
:bytecode (18 0 52 0 0 1 33 20 0 20 1 0 18 0 16 0 16 1 52 2 0 2 18 1 49 3 32 21 0 20 3 0 18 0 16 0 16 1 52 2 0 2 52 4 0 2 18 1 49 2 50)
:constants (
"lambda?"
"render-lambda-html"
"list"
"render-to-html"
"apply"))
"filter"
"scope"
">="
"type-of"
"first"
"keyword"
"keyword-name"
"value"
"scope-push!"
(code :arity 1 :upvalue-count 1
:bytecode (20 0 0 16 0 18 0 49 2 50)
:constants (
"render-to-html"))
"scope-pop!"
"provide"
"-"
"+"
"render-value-to-html"))
"render-lambda-html"
(code :arity 3
:bytecode (20 0 0 16 0 52 1 0 1 16 2 48 2 17 3 51 3 0 1 3 1 1 16 0 52 4 0 1 52 2 0 2 5 20 5 0 16 0 52 6 0 1 16 3 49 2 50)
:constants (
"env-merge"
"lambda-closure"
"for-each-indexed"
(code :arity 2 :upvalue-count 2
:bytecode (20 0 0 18 0 16 1 18 1 16 0 52 1 0 2 49 3 50)
:constants (
"env-bind!"
"nth"))
"lambda-params"
"render-to-html"
"lambda-body"))
"render-html-component"
(code :arity 3
:bytecode (52 0 0 0 17 3 52 1 0 0 17 4 51 3 0 1 1 1 2 1 3 1 4 1 4 0 1 5 0 1 6 0 4 52 0 0 4 16 1 52 2 0 3 5 20 7 0 16 0 52 8 0 1 16 2 48 2 17 5 51 10 0 1 5 1 3 16 0 52 11 0 1 52 9 0 2 5 16 0 52 12 0 1 33 35 0 20 13 0 16 5 1 14 0 1 17 0 51 19 0 1 2 16 4 52 18 0 2 52 16 0 2 52 15 0 1 48 3 32 1 0 2 5 20 20 0 16 0 52 21 0 1 16 5 49 2 50)
:constants (
"dict"
"list"
"reduce"
(code :arity 2 :upvalue-count 4
:bytecode (16 0 1 1 0 52 0 0 2 17 2 16 2 33 29 0 16 0 1 1 0 4 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 5 32 154 0 16 1 52 6 0 1 1 7 0 52 5 0 2 6 33 24 0 5 16 0 1 3 0 52 0 0 2 52 4 0 1 18 0 52 9 0 1 52 8 0 2 33 78 0 20 10 0 20 11 0 18 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 12 0 2 18 1 48 2 48 1 17 3 18 2 20 14 0 16 1 48 1 16 3 52 13 0 3 5 16 0 1 1 0 3 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 5 32 32 0 20 15 0 18 3 16 1 48 2 5 16 0 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 3 50)
:constants (
"get"
"skip"
"assoc"
"i"
"inc"
"="
"type-of"
"keyword"
"<"
"len"
"trampoline"
"eval-expr"
"nth"
"dict-set!"
"keyword-name"
"append!"))
"i"
0
"skip"
"env-merge"
"component-closure"
"for-each"
(code :arity 1 :upvalue-count 2
:bytecode (20 0 0 18 0 16 0 18 1 16 0 52 1 0 2 33 11 0 18 1 16 0 52 2 0 2 32 1 0 2 49 3 50)
:constants (
"env-bind!"
"dict-has?"
"dict-get"))
"component-params"
"component-has-children?"
"env-bind!"
"children"
"make-raw-html"
"join"
""
"map"
(code :arity 1 :upvalue-count 1
:bytecode (20 0 0 16 0 18 0 49 2 50)
:constants (
"render-to-html"))
"render-to-html"
"component-body"))
"render-html-element"
(code :arity 3
:bytecode (20 0 0 16 1 16 2 48 2 17 3 16 3 52 1 0 1 17 4 16 3 1 3 0 52 2 0 2 17 5 20 5 0 16 0 52 4 0 2 17 6 16 6 33 22 0 1 7 0 16 0 20 8 0 16 4 48 1 1 9 0 52 6 0 4 32 83 0 1 11 0 2 52 10 0 2 5 1 13 0 51 15 0 1 2 16 5 52 14 0 2 52 12 0 2 17 7 51 17 0 1 4 1 11 0 52 18 0 1 52 16 0 2 5 1 11 0 52 19 0 1 5 1 7 0 16 0 20 8 0 16 4 48 1 1 20 0 16 7 1 21 0 16 0 1 20 0 52 6 0 8 50)
:constants (
"parse-element-args"
"first"
"nth"
1
"contains?"
"VOID_ELEMENTS"
"str"
"<"
"render-attrs"
" />"
"scope-push!"
"element-attrs"
"join"
""
"map"
(code :arity 1 :upvalue-count 1
:bytecode (20 0 0 16 0 18 0 49 2 50)
:constants (
"render-to-html"))
"for-each"
(code :arity 1 :upvalue-count 1
:bytecode (20 0 0 18 0 16 0 49 2 50)
:constants (
"merge-spread-attrs"))
"scope-emitted"
"scope-pop!"
">"
"</"))
"render-html-lake"
(code :arity 2
:bytecode (2 17 2 1 0 0 17 3 52 1 0 0 17 4 51 3 0 1 0 1 1 1 2 1 3 1 4 1 5 0 1 6 0 1 7 0 4 52 4 0 4 16 0 52 2 0 3 5 1 8 0 16 2 6 34 4 0 5 1 9 0 52 4 0 2 17 5 1 11 0 2 52 10 0 2 5 1 9 0 51 14 0 1 1 16 4 52 13 0 2 52 12 0 2 17 6 51 16 0 1 5 1 11 0 52 17 0 1 52 15 0 2 5 1 11 0 52 18 0 1 5 1 20 0 16 3 20 21 0 16 5 48 1 1 22 0 16 6 1 23 0 16 3 1 22 0 52 19 0 8 50)
:constants (
"div"
"list"
"reduce"
(code :arity 2 :upvalue-count 5
:bytecode (16 0 1 1 0 52 0 0 2 17 2 16 2 33 29 0 16 0 1 1 0 4 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 5 32 187 0 16 1 52 6 0 1 1 7 0 52 5 0 2 6 33 24 0 5 16 0 1 3 0 52 0 0 2 52 4 0 1 18 0 52 9 0 1 52 8 0 2 33 111 0 20 10 0 16 1 48 1 17 3 20 11 0 20 12 0 18 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 13 0 2 18 1 48 2 48 1 17 4 16 3 1 14 0 52 5 0 2 33 7 0 16 4 19 2 32 20 0 16 3 1 15 0 52 5 0 2 33 7 0 16 4 19 3 32 1 0 2 5 16 0 1 1 0 3 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 5 32 32 0 20 16 0 18 4 16 1 48 2 5 16 0 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 3 50)
:constants (
"get"
"skip"
"assoc"
"i"
"inc"
"="
"type-of"
"keyword"
"<"
"len"
"keyword-name"
"trampoline"
"eval-expr"
"nth"
"id"
"tag"
"append!"))
"dict"
"i"
0
"skip"
"data-sx-lake"
""
"scope-push!"
"element-attrs"
"join"
"map"
(code :arity 1 :upvalue-count 1
:bytecode (20 0 0 16 0 18 0 49 2 50)
:constants (
"render-to-html"))
"for-each"
(code :arity 1 :upvalue-count 1
:bytecode (20 0 0 18 0 16 0 49 2 50)
:constants (
"merge-spread-attrs"))
"scope-emitted"
"scope-pop!"
"str"
"<"
"render-attrs"
">"
"</"))
"render-html-marsh"
(code :arity 2
:bytecode (2 17 2 1 0 0 17 3 52 1 0 0 17 4 51 3 0 1 0 1 1 1 2 1 3 1 4 1 5 0 1 6 0 1 7 0 4 52 4 0 4 16 0 52 2 0 3 5 1 8 0 16 2 6 34 4 0 5 1 9 0 52 4 0 2 17 5 1 11 0 2 52 10 0 2 5 1 9 0 51 14 0 1 1 16 4 52 13 0 2 52 12 0 2 17 6 51 16 0 1 5 1 11 0 52 17 0 1 52 15 0 2 5 1 11 0 52 18 0 1 5 1 20 0 16 3 20 21 0 16 5 48 1 1 22 0 16 6 1 23 0 16 3 1 22 0 52 19 0 8 50)
:constants (
"div"
"list"
"reduce"
(code :arity 2 :upvalue-count 5
:bytecode (16 0 1 1 0 52 0 0 2 17 2 16 2 33 29 0 16 0 1 1 0 4 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 5 32 203 0 16 1 52 6 0 1 1 7 0 52 5 0 2 6 33 24 0 5 16 0 1 3 0 52 0 0 2 52 4 0 1 18 0 52 9 0 1 52 8 0 2 33 127 0 20 10 0 16 1 48 1 17 3 20 11 0 20 12 0 18 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 13 0 2 18 1 48 2 48 1 17 4 16 3 1 14 0 52 5 0 2 33 7 0 16 4 19 2 32 36 0 16 3 1 15 0 52 5 0 2 33 7 0 16 4 19 3 32 17 0 16 3 1 16 0 52 5 0 2 33 4 0 2 32 1 0 2 5 16 0 1 1 0 3 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 5 32 32 0 20 17 0 18 4 16 1 48 2 5 16 0 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 3 50)
:constants (
"get"
"skip"
"assoc"
"i"
"inc"
"="
"type-of"
"keyword"
"<"
"len"
"keyword-name"
"trampoline"
"eval-expr"
"nth"
"id"
"tag"
"transform"
"append!"))
"dict"
"i"
0
"skip"
"data-sx-marsh"
""
"scope-push!"
"element-attrs"
"join"
"map"
(code :arity 1 :upvalue-count 1
:bytecode (20 0 0 16 0 18 0 49 2 50)
:constants (
"render-to-html"))
"for-each"
(code :arity 1 :upvalue-count 1
:bytecode (20 0 0 18 0 16 0 49 2 50)
:constants (
"merge-spread-attrs"))
"scope-emitted"
"scope-pop!"
"str"
"<"
"render-attrs"
">"
"</"))
"render-html-island"
(code :arity 3
:bytecode (52 0 0 0 17 3 52 1 0 0 17 4 51 3 0 1 1 1 2 1 3 1 4 1 4 0 1 5 0 1 6 0 4 52 0 0 4 16 1 52 2 0 3 5 20 7 0 16 0 52 8 0 1 16 2 48 2 17 5 16 0 52 9 0 1 17 6 51 11 0 1 5 1 3 16 0 52 12 0 1 52 10 0 2 5 16 0 52 13 0 1 33 35 0 20 14 0 16 5 1 15 0 1 18 0 51 20 0 1 2 16 4 52 19 0 2 52 17 0 2 52 16 0 1 48 3 32 1 0 2 5 20 21 0 51 22 0 1 0 1 5 51 23 0 48 2 17 7 20 24 0 16 3 48 1 17 8 1 26 0 20 27 0 16 6 48 1 1 28 0 16 8 33 20 0 1 29 0 20 27 0 16 8 48 1 1 28 0 52 25 0 3 32 3 0 1 18 0 1 30 0 16 7 1 31 0 52 25 0 7 50)
:constants (
"dict"
"list"
"reduce"
(code :arity 2 :upvalue-count 4
:bytecode (16 0 1 1 0 52 0 0 2 17 2 16 2 33 29 0 16 0 1 1 0 4 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 5 32 154 0 16 1 52 6 0 1 1 7 0 52 5 0 2 6 33 24 0 5 16 0 1 3 0 52 0 0 2 52 4 0 1 18 0 52 9 0 1 52 8 0 2 33 78 0 20 10 0 20 11 0 18 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 12 0 2 18 1 48 2 48 1 17 3 18 2 20 14 0 16 1 48 1 16 3 52 13 0 3 5 16 0 1 1 0 3 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 5 32 32 0 20 15 0 18 3 16 1 48 2 5 16 0 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 3 50)
:constants (
"get"
"skip"
"assoc"
"i"
"inc"
"="
"type-of"
"keyword"
"<"
"len"
"trampoline"
"eval-expr"
"nth"
"dict-set!"
"keyword-name"
"append!"))
"i"
0
"skip"
"env-merge"
"component-closure"
"component-name"
"for-each"
(code :arity 1 :upvalue-count 2
:bytecode (20 0 0 18 0 16 0 18 1 16 0 52 1 0 2 33 11 0 18 1 16 0 52 2 0 2 32 1 0 2 49 3 50)
:constants (
"env-bind!"
"dict-has?"
"dict-get"))
"component-params"
"component-has-children?"
"env-bind!"
"children"
"make-raw-html"
"join"
""
"map"
(code :arity 1 :upvalue-count 1
:bytecode (20 0 0 16 0 18 0 49 2 50)
:constants (
"render-to-html"))
"cek-try"
(code :upvalue-count 2
:bytecode (20 0 0 18 0 52 1 0 1 18 1 49 2 50)
:constants (
"render-to-html"
"component-body"))
(code :arity 1
:bytecode (1 0 0 50)
:constants (
""))
"serialize-island-state"
"str"
"<span data-sx-island=\""
"escape-attr"
"\""
" data-sx-state=\""
">"
"</span>"))
"serialize-island-state"
(code :arity 1
:bytecode (16 0 52 0 0 1 33 4 0 2 32 7 0 20 1 0 16 0 49 1 50)
:constants (
"empty-dict?"
"sx-serialize")))))