giles
e0070041d6
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>
512 lines
22 KiB
Plaintext
512 lines
22 KiB
Plaintext
(sxbc 1 "13762a3a91f6b00d"
|
|
(code
|
|
:bytecode (51 1 0 128 0 0 5 51 3 0 128 2 0 5 51 5 0 128 4 0 5 51 7 0 128 6 0 5 51 9 0 128 8 0 5 51 11 0 128 10 0 5 51 13 0 128 12 0 5 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 1 28 0 1 29 0 1 30 0 1 31 0 1 32 0 1 33 0 1 34 0 1 35 0 1 36 0 1 37 0 1 38 0 1 39 0 1 40 0 1 41 0 1 42 0 1 43 0 1 44 0 1 45 0 1 46 0 1 47 0 1 48 0 1 49 0 1 50 0 52 15 0 35 128 14 0 5 1 52 0 1 53 0 1 54 0 1 55 0 1 56 0 1 57 0 1 58 0 52 15 0 7 128 51 0 5 51 60 0 128 59 0 5 51 62 0 128 61 0 5 51 64 0 128 63 0 5 51 66 0 128 65 0 50)
|
|
:constants (
|
|
"render-to-sx"
|
|
(code :arity 2
|
|
:bytecode (20 0 0 16 0 16 1 48 2 17 2 16 2 52 2 0 1 1 3 0 52 1 0 2 33 10 0 20 4 0 16 2 49 1 32 27 0 16 2 52 2 0 1 1 5 0 52 1 0 2 33 5 0 16 2 32 6 0 16 2 52 6 0 1 50)
|
|
:constants (
|
|
"aser"
|
|
"="
|
|
"type-of"
|
|
"sx-expr"
|
|
"sx-expr-source"
|
|
"string"
|
|
"serialize"))
|
|
"aser"
|
|
(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 6 0 5 16 0 32 16 1 6 1 4 0 52 3 0 2 33 6 0 5 16 0 32 255 0 6 1 5 0 52 3 0 2 33 6 0 5 16 0 32 238 0 6 1 6 0 52 3 0 2 33 5 0 5 2 32 222 0 6 1 7 0 52 3 0 2 33 116 0 5 20 8 0 16 0 48 1 17 3 20 9 0 16 1 16 3 48 2 33 12 0 20 10 0 16 1 16 3 48 2 32 79 0 16 3 52 11 0 1 33 9 0 16 3 52 12 0 1 32 61 0 16 3 1 13 0 52 3 0 2 33 4 0 3 32 45 0 16 3 1 14 0 52 3 0 2 33 4 0 4 32 29 0 16 3 1 6 0 52 3 0 2 33 4 0 2 32 13 0 1 17 0 16 3 52 16 0 2 52 15 0 1 32 95 0 6 1 18 0 52 3 0 2 33 11 0 5 20 19 0 16 0 48 1 32 73 0 6 1 20 0 52 3 0 2 33 29 0 5 16 0 52 21 0 1 33 7 0 52 20 0 0 32 9 0 20 22 0 16 0 16 1 48 2 32 33 0 6 1 23 0 52 3 0 2 33 19 0 5 1 25 0 16 0 52 26 0 1 52 24 0 2 5 2 32 3 0 5 16 0 17 2 16 2 52 27 0 1 33 18 0 1 25 0 16 2 52 26 0 1 52 24 0 2 5 2 32 2 0 16 2 50)
|
|
:constants (
|
|
"set-render-active!"
|
|
"type-of"
|
|
"number"
|
|
"="
|
|
"string"
|
|
"boolean"
|
|
"nil"
|
|
"symbol"
|
|
"symbol-name"
|
|
"env-has?"
|
|
"env-get"
|
|
"primitive?"
|
|
"get-primitive"
|
|
"true"
|
|
"false"
|
|
"error"
|
|
"str"
|
|
"Undefined symbol: "
|
|
"keyword"
|
|
"keyword-name"
|
|
"list"
|
|
"empty?"
|
|
"aser-list"
|
|
"spread"
|
|
"scope-emit!"
|
|
"element-attrs"
|
|
"spread-attrs"
|
|
"spread?"))
|
|
"aser-list"
|
|
(code :arity 2
|
|
:bytecode (16 0 52 0 0 1 17 2 16 0 52 1 0 1 17 3 16 2 52 4 0 1 1 5 0 52 3 0 2 52 2 0 1 33 14 0 51 7 0 1 1 16 0 52 6 0 2 32 136 2 20 8 0 16 2 48 1 17 4 16 4 1 9 0 52 3 0 2 33 12 0 20 10 0 16 3 16 1 49 2 32 103 2 16 4 1 11 0 52 3 0 2 33 15 0 20 12 0 1 11 0 16 3 16 1 49 3 32 76 2 16 4 1 14 0 52 13 0 2 33 196 0 20 15 0 16 1 16 4 48 2 33 12 0 20 16 0 16 1 16 4 48 2 32 1 0 2 17 5 20 15 0 16 1 1 17 0 48 2 33 8 0 20 17 0 48 0 32 1 0 4 17 6 16 5 6 33 7 0 5 16 5 52 18 0 1 33 21 0 20 19 0 20 20 0 16 5 16 3 16 1 48 3 16 1 49 2 32 105 0 16 5 6 33 71 0 5 16 5 52 21 0 1 6 33 60 0 5 16 5 52 22 0 1 52 2 0 1 6 33 45 0 5 16 6 6 34 15 0 5 20 23 0 16 5 48 1 1 24 0 52 3 0 2 6 33 19 0 5 20 23 0 16 5 48 1 1 25 0 52 3 0 2 52 2 0 1 33 14 0 20 26 0 16 5 16 3 16 1 49 3 32 11 0 20 12 0 16 4 16 3 16 1 49 3 32 124 1 16 4 1 27 0 52 3 0 2 33 14 0 20 12 0 16 4 16 3 16 1 49 3 32 98 1 16 4 1 28 0 52 3 0 2 33 14 0 20 12 0 16 4 16 3 16 1 49 3 32 72 1 20 30 0 16 4 52 29 0 2 33 14 0 20 12 0 16 4 16 3 16 1 49 3 32 46 1 20 31 0 16 4 48 1 6 34 8 0 5 20 32 0 16 4 48 1 33 14 0 20 33 0 16 4 16 0 16 1 49 3 32 10 1 20 15 0 16 1 16 4 48 2 6 33 14 0 5 20 16 0 16 1 16 4 48 2 52 18 0 1 33 28 0 20 19 0 20 20 0 20 16 0 16 1 16 4 48 2 16 3 16 1 48 3 16 1 49 2 32 208 0 20 34 0 20 35 0 16 2 16 1 48 2 48 1 17 5 51 36 0 1 1 16 3 52 6 0 2 17 6 20 37 0 16 5 48 1 6 33 41 0 5 16 5 52 38 0 1 52 2 0 1 6 33 26 0 5 16 5 52 21 0 1 52 2 0 1 6 33 11 0 5 16 5 52 22 0 1 52 2 0 1 33 11 0 16 5 16 6 52 39 0 2 32 113 0 16 5 52 38 0 1 33 19 0 20 34 0 20 40 0 16 5 16 6 16 1 48 3 49 1 32 85 0 16 5 52 21 0 1 33 25 0 20 12 0 1 14 0 16 5 52 42 0 1 52 41 0 2 16 3 16 1 49 3 32 51 0 16 5 52 22 0 1 33 25 0 20 12 0 1 14 0 16 5 52 42 0 1 52 41 0 2 16 3 16 1 49 3 32 17 0 1 44 0 16 5 52 45 0 1 52 41 0 2 52 43 0 1 50)
|
|
:constants (
|
|
"first"
|
|
"rest"
|
|
"not"
|
|
"="
|
|
"type-of"
|
|
"symbol"
|
|
"map"
|
|
(code :arity 1 :upvalue-count 1
|
|
:bytecode (20 0 0 16 0 18 0 49 2 50)
|
|
:constants (
|
|
"aser"))
|
|
"symbol-name"
|
|
"<>"
|
|
"aser-fragment"
|
|
"raw!"
|
|
"aser-call"
|
|
"starts-with?"
|
|
"~"
|
|
"env-has?"
|
|
"env-get"
|
|
"expand-components?"
|
|
"macro?"
|
|
"aser"
|
|
"expand-macro"
|
|
"component?"
|
|
"island?"
|
|
"component-affinity"
|
|
"server"
|
|
"client"
|
|
"aser-expand-component"
|
|
"lake"
|
|
"marsh"
|
|
"contains?"
|
|
"HTML_TAGS"
|
|
"special-form?"
|
|
"ho-form?"
|
|
"aser-special"
|
|
"trampoline"
|
|
"eval-expr"
|
|
(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"))
|
|
"callable?"
|
|
"lambda?"
|
|
"apply"
|
|
"call-lambda"
|
|
"str"
|
|
"component-name"
|
|
"error"
|
|
"Not callable: "
|
|
"inspect"))
|
|
"aser-reserialize"
|
|
(code :arity 1
|
|
:bytecode (16 0 52 2 0 1 1 3 0 52 1 0 2 52 0 0 1 33 9 0 16 0 52 4 0 1 32 122 0 16 0 52 5 0 1 33 6 0 1 6 0 32 107 0 16 0 52 7 0 1 17 1 16 1 52 2 0 1 1 8 0 52 1 0 2 52 0 0 1 33 9 0 16 0 52 4 0 1 32 70 0 20 9 0 16 1 48 1 17 2 16 2 52 3 0 1 17 3 16 0 52 10 0 1 17 4 4 17 5 1 11 0 17 6 51 13 0 1 5 1 6 1 4 1 3 16 4 52 12 0 2 5 1 15 0 1 17 0 16 3 52 16 0 2 1 18 0 52 14 0 3 50)
|
|
:constants (
|
|
"not"
|
|
"="
|
|
"type-of"
|
|
"list"
|
|
"serialize"
|
|
"empty?"
|
|
"()"
|
|
"first"
|
|
"symbol"
|
|
"symbol-name"
|
|
"rest"
|
|
0
|
|
"for-each"
|
|
(code :arity 1 :upvalue-count 4
|
|
:bytecode (18 0 33 15 0 4 19 0 5 18 1 52 0 0 1 19 1 32 116 1 16 0 52 2 0 1 1 3 0 52 1 0 2 6 33 17 1 5 18 1 52 0 0 1 18 2 52 5 0 1 52 4 0 2 6 33 252 0 5 16 0 1 8 0 52 7 0 2 52 6 0 1 6 33 234 0 5 16 0 1 10 0 52 9 0 2 6 34 220 0 5 16 0 1 11 0 52 9 0 2 6 34 206 0 5 16 0 1 12 0 52 9 0 2 6 34 192 0 5 16 0 1 13 0 52 9 0 2 6 34 178 0 5 16 0 1 14 0 52 9 0 2 6 34 164 0 5 16 0 1 15 0 52 9 0 2 6 34 150 0 5 16 0 1 16 0 52 9 0 2 6 34 136 0 5 16 0 1 17 0 52 9 0 2 6 34 122 0 5 16 0 1 18 0 52 9 0 2 6 34 108 0 5 16 0 1 19 0 52 9 0 2 6 34 94 0 5 16 0 1 20 0 52 9 0 2 6 34 80 0 5 16 0 1 21 0 52 9 0 2 6 34 66 0 5 16 0 1 22 0 52 9 0 2 6 34 52 0 5 16 0 1 23 0 52 9 0 2 6 34 38 0 5 16 0 1 24 0 52 9 0 2 6 34 24 0 5 16 0 1 25 0 52 9 0 2 6 34 10 0 5 16 0 1 26 0 52 9 0 2 33 56 0 20 27 0 18 3 1 29 0 16 0 52 28 0 2 48 2 5 20 27 0 18 3 18 2 18 1 52 0 0 1 52 31 0 2 52 30 0 1 48 2 5 3 19 0 5 18 1 52 0 0 1 19 1 32 23 0 20 27 0 18 3 20 32 0 16 0 48 1 48 2 5 18 1 52 0 0 1 19 1 50)
|
|
:constants (
|
|
"inc"
|
|
"="
|
|
"type-of"
|
|
"string"
|
|
"<"
|
|
"len"
|
|
"not"
|
|
"contains?"
|
|
" "
|
|
"starts-with?"
|
|
"class"
|
|
"id"
|
|
"sx-"
|
|
"data-"
|
|
"style"
|
|
"href"
|
|
"src"
|
|
"type"
|
|
"name"
|
|
"value"
|
|
"placeholder"
|
|
"action"
|
|
"method"
|
|
"target"
|
|
"role"
|
|
"for"
|
|
"on"
|
|
"append!"
|
|
"str"
|
|
":"
|
|
"serialize"
|
|
"nth"
|
|
"aser-reserialize"))
|
|
"str"
|
|
"("
|
|
"join"
|
|
" "
|
|
")"))
|
|
"aser-fragment"
|
|
(code :arity 2
|
|
:bytecode (52 0 0 0 17 2 51 2 0 1 1 1 2 16 0 52 1 0 2 5 16 2 52 3 0 1 33 6 0 1 4 0 32 54 0 16 2 52 6 0 1 1 7 0 52 5 0 2 33 14 0 20 8 0 16 2 52 9 0 1 49 1 32 24 0 20 8 0 1 11 0 1 13 0 16 2 52 12 0 2 1 14 0 52 10 0 3 49 1 50)
|
|
:constants (
|
|
"list"
|
|
"for-each"
|
|
(code :arity 1 :upvalue-count 2
|
|
:bytecode (20 0 0 16 0 18 0 48 2 17 1 16 1 52 1 0 1 33 4 0 2 32 76 0 16 1 52 3 0 1 1 4 0 52 2 0 2 33 17 0 20 5 0 18 1 20 6 0 16 1 48 1 49 2 32 43 0 16 1 52 3 0 1 1 7 0 52 2 0 2 33 14 0 51 9 0 0 1 16 1 52 8 0 2 32 13 0 20 5 0 18 1 16 1 52 10 0 1 49 2 50)
|
|
:constants (
|
|
"aser"
|
|
"nil?"
|
|
"="
|
|
"type-of"
|
|
"sx-expr"
|
|
"append!"
|
|
"sx-expr-source"
|
|
"list"
|
|
"for-each"
|
|
(code :arity 1 :upvalue-count 1
|
|
:bytecode (16 0 52 1 0 1 52 0 0 1 33 50 0 16 0 52 3 0 1 1 4 0 52 2 0 2 33 17 0 20 5 0 18 0 20 6 0 16 0 48 1 49 2 32 14 0 20 5 0 18 0 20 7 0 16 0 48 1 49 2 32 1 0 2 50)
|
|
:constants (
|
|
"not"
|
|
"nil?"
|
|
"="
|
|
"type-of"
|
|
"sx-expr"
|
|
"append!"
|
|
"sx-expr-source"
|
|
"aser-reserialize"))
|
|
"serialize"))
|
|
"empty?"
|
|
""
|
|
"="
|
|
"len"
|
|
1
|
|
"make-sx-expr"
|
|
"first"
|
|
"str"
|
|
"(<> "
|
|
"join"
|
|
" "
|
|
")"))
|
|
"aser-call"
|
|
(code :arity 3
|
|
:bytecode (52 0 0 0 17 3 52 0 0 0 17 4 4 17 5 1 1 0 17 6 1 3 0 2 52 2 0 2 5 51 5 0 1 5 1 6 1 1 1 2 1 3 1 4 16 1 52 4 0 2 5 51 6 0 1 3 1 3 0 52 7 0 1 52 4 0 2 5 1 3 0 52 8 0 1 5 16 0 52 0 0 1 16 3 16 4 52 9 0 3 17 7 20 10 0 1 12 0 1 14 0 16 7 52 13 0 2 1 15 0 52 11 0 3 49 1 50)
|
|
:constants (
|
|
"list"
|
|
0
|
|
"scope-push!"
|
|
"element-attrs"
|
|
"for-each"
|
|
(code :arity 1 :upvalue-count 6
|
|
:bytecode (18 0 33 15 0 4 19 0 5 18 1 52 0 0 1 19 1 32 16 1 16 0 52 2 0 1 1 3 0 52 1 0 2 6 33 17 0 5 18 1 52 0 0 1 18 2 52 5 0 1 52 4 0 2 33 122 0 20 6 0 18 2 18 1 52 0 0 1 52 7 0 2 18 3 48 2 17 1 16 1 52 9 0 1 52 8 0 1 33 71 0 20 10 0 18 4 1 12 0 20 13 0 16 0 48 1 52 11 0 2 48 2 5 16 1 52 2 0 1 1 14 0 52 1 0 2 33 17 0 20 10 0 18 4 20 15 0 16 1 48 1 48 2 32 13 0 20 10 0 18 4 16 1 52 16 0 1 48 2 32 1 0 2 5 3 19 0 5 18 1 52 0 0 1 19 1 32 113 0 20 6 0 16 0 18 3 48 2 17 1 16 1 52 9 0 1 52 8 0 1 33 79 0 16 1 52 2 0 1 1 14 0 52 1 0 2 33 17 0 20 10 0 18 5 20 15 0 16 1 48 1 48 2 32 43 0 16 1 52 2 0 1 1 17 0 52 1 0 2 33 14 0 51 19 0 0 5 16 1 52 18 0 2 32 13 0 20 10 0 18 5 16 1 52 16 0 1 48 2 32 1 0 2 5 18 1 52 0 0 1 19 1 50)
|
|
:constants (
|
|
"inc"
|
|
"="
|
|
"type-of"
|
|
"keyword"
|
|
"<"
|
|
"len"
|
|
"aser"
|
|
"nth"
|
|
"not"
|
|
"nil?"
|
|
"append!"
|
|
"str"
|
|
":"
|
|
"keyword-name"
|
|
"sx-expr"
|
|
"sx-expr-source"
|
|
"serialize"
|
|
"list"
|
|
"for-each"
|
|
(code :arity 1 :upvalue-count 1
|
|
:bytecode (16 0 52 1 0 1 52 0 0 1 33 49 0 16 0 52 3 0 1 1 4 0 52 2 0 2 33 17 0 20 5 0 18 0 20 6 0 16 0 48 1 49 2 32 13 0 20 5 0 18 0 16 0 52 7 0 1 49 2 32 1 0 2 50)
|
|
:constants (
|
|
"not"
|
|
"nil?"
|
|
"="
|
|
"type-of"
|
|
"sx-expr"
|
|
"append!"
|
|
"sx-expr-source"
|
|
"serialize"))))
|
|
(code :arity 1 :upvalue-count 1
|
|
:bytecode (51 1 0 1 0 0 0 16 0 52 2 0 1 52 0 0 2 50)
|
|
:constants (
|
|
"for-each"
|
|
(code :arity 1 :upvalue-count 2
|
|
:bytecode (18 0 16 0 52 0 0 2 17 1 20 1 0 18 1 1 3 0 16 0 52 2 0 2 48 2 5 20 1 0 18 1 16 1 52 4 0 1 49 2 50)
|
|
:constants (
|
|
"dict-get"
|
|
"append!"
|
|
"str"
|
|
":"
|
|
"serialize"))
|
|
"keys"))
|
|
"scope-peek"
|
|
"scope-pop!"
|
|
"concat"
|
|
"make-sx-expr"
|
|
"str"
|
|
"("
|
|
"join"
|
|
" "
|
|
")"))
|
|
"aser-expand-component"
|
|
(code :arity 3
|
|
:bytecode (16 0 52 0 0 1 17 3 20 1 0 16 2 16 0 52 2 0 1 48 2 17 4 1 3 0 17 5 4 17 6 52 4 0 0 17 7 51 6 0 1 4 16 3 52 5 0 2 5 51 7 0 1 6 1 5 1 1 1 4 1 2 1 7 16 1 52 5 0 2 5 20 8 0 16 0 48 1 33 53 0 51 10 0 1 2 16 7 52 9 0 2 17 8 20 11 0 16 4 1 12 0 16 8 52 14 0 1 1 15 0 52 13 0 2 33 9 0 16 8 52 16 0 1 32 2 0 16 8 48 3 32 1 0 2 5 20 17 0 16 0 52 18 0 1 16 4 49 2 50)
|
|
:constants (
|
|
"component-params"
|
|
"env-merge"
|
|
"component-closure"
|
|
0
|
|
"list"
|
|
"for-each"
|
|
(code :arity 1 :upvalue-count 1
|
|
:bytecode (20 0 0 18 0 16 0 2 49 3 50)
|
|
:constants (
|
|
"env-bind!"))
|
|
(code :arity 1 :upvalue-count 6
|
|
:bytecode (18 0 33 15 0 4 19 0 5 18 1 52 0 0 1 19 1 32 104 0 16 0 52 2 0 1 1 3 0 52 1 0 2 6 33 17 0 5 18 1 52 0 0 1 18 2 52 5 0 1 52 4 0 2 33 49 0 20 6 0 18 3 20 7 0 16 0 48 1 20 8 0 18 2 18 1 52 0 0 1 52 9 0 2 18 4 48 2 48 3 5 3 19 0 5 18 1 52 0 0 1 19 1 32 18 0 20 10 0 18 5 16 0 48 2 5 18 1 52 0 0 1 19 1 50)
|
|
:constants (
|
|
"inc"
|
|
"="
|
|
"type-of"
|
|
"keyword"
|
|
"<"
|
|
"len"
|
|
"env-bind!"
|
|
"keyword-name"
|
|
"aser"
|
|
"nth"
|
|
"append!"))
|
|
"component-has-children"
|
|
"map"
|
|
(code :arity 1 :upvalue-count 1
|
|
:bytecode (20 0 0 16 0 18 0 49 2 50)
|
|
:constants (
|
|
"aser"))
|
|
"env-bind!"
|
|
"children"
|
|
"="
|
|
"len"
|
|
1
|
|
"first"
|
|
"aser"
|
|
"component-body"))
|
|
"SPECIAL_FORM_NAMES"
|
|
"list"
|
|
"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"
|
|
"deftype"
|
|
"defeffect"
|
|
"scope"
|
|
"provide"
|
|
"context"
|
|
"emit!"
|
|
"emitted"
|
|
"HO_FORM_NAMES"
|
|
"map"
|
|
"map-indexed"
|
|
"filter"
|
|
"reduce"
|
|
"some"
|
|
"every?"
|
|
"for-each"
|
|
"special-form?"
|
|
(code :arity 1
|
|
:bytecode (20 1 0 16 0 52 0 0 2 50)
|
|
:constants (
|
|
"contains?"
|
|
"SPECIAL_FORM_NAMES"))
|
|
"ho-form?"
|
|
(code :arity 1
|
|
:bytecode (20 1 0 16 0 52 0 0 2 50)
|
|
:constants (
|
|
"contains?"
|
|
"HO_FORM_NAMES"))
|
|
"aser-special"
|
|
(code :arity 3
|
|
:bytecode (16 1 52 0 0 1 17 3 16 0 1 2 0 52 1 0 2 33 79 0 20 3 0 20 4 0 16 3 52 5 0 1 16 2 48 2 48 1 33 19 0 20 6 0 16 3 1 8 0 52 7 0 2 16 2 49 2 32 36 0 16 3 52 10 0 1 1 11 0 52 9 0 2 33 19 0 20 6 0 16 3 1 11 0 52 7 0 2 16 2 49 2 32 1 0 2 32 34 5 16 0 1 12 0 52 1 0 2 33 55 0 20 3 0 20 4 0 16 3 52 5 0 1 16 2 48 2 48 1 52 13 0 1 33 4 0 2 32 23 0 2 17 4 51 15 0 1 4 1 2 16 3 52 0 0 1 52 14 0 2 5 16 4 32 223 4 16 0 1 16 0 52 1 0 2 33 32 0 20 17 0 16 3 16 2 48 2 17 4 16 4 33 12 0 20 6 0 16 4 16 2 49 2 32 1 0 2 32 179 4 16 0 1 18 0 52 1 0 2 33 42 0 20 3 0 20 4 0 16 3 52 5 0 1 16 2 48 2 48 1 17 4 16 3 52 0 0 1 17 5 20 19 0 16 4 16 5 16 2 49 3 32 125 4 16 0 1 20 0 52 1 0 2 6 34 10 0 5 16 0 1 21 0 52 1 0 2 33 41 0 20 22 0 16 3 52 5 0 1 16 2 48 2 17 4 2 17 5 51 15 0 1 5 1 4 16 3 52 0 0 1 52 14 0 2 5 16 5 32 58 4 16 0 1 23 0 52 1 0 2 6 34 10 0 5 16 0 1 24 0 52 1 0 2 33 22 0 2 17 4 51 15 0 1 4 1 2 16 3 52 14 0 2 5 16 4 32 10 4 16 0 1 25 0 52 1 0 2 33 22 0 3 17 4 51 27 0 1 4 1 2 16 3 52 26 0 2 5 16 4 32 232 3 16 0 1 28 0 52 1 0 2 33 22 0 4 17 4 51 29 0 1 4 1 2 16 3 52 26 0 2 5 16 4 32 198 3 16 0 1 30 0 52 1 0 2 33 59 0 20 3 0 20 4 0 16 3 52 5 0 1 16 2 48 2 48 1 17 4 20 3 0 20 4 0 16 3 1 8 0 52 7 0 2 16 2 48 2 48 1 17 5 51 31 0 1 4 1 2 16 5 52 30 0 2 32 127 3 16 0 1 32 0 52 1 0 2 33 59 0 20 3 0 20 4 0 16 3 52 5 0 1 16 2 48 2 48 1 17 4 20 3 0 20 4 0 16 3 1 8 0 52 7 0 2 16 2 48 2 48 1 17 5 51 33 0 1 4 1 2 16 5 52 32 0 2 32 56 3 16 0 1 14 0 52 1 0 2 33 83 0 20 3 0 20 4 0 16 3 52 5 0 1 16 2 48 2 48 1 17 4 20 3 0 20 4 0 16 3 1 8 0 52 7 0 2 16 2 48 2 48 1 17 5 52 34 0 0 17 6 51 35 0 1 4 1 2 1 6 16 5 52 14 0 2 5 16 6 52 36 0 1 33 4 0 2 32 2 0 16 6 32 217 2 16 0 1 37 0 52 1 0 2 33 24 0 20 3 0 20 4 0 16 1 16 2 48 2 48 1 5 16 1 52 38 0 1 32 181 2 16 0 1 39 0 52 1 0 2 6 34 136 0 5 16 0 1 40 0 52 1 0 2 6 34 122 0 5 16 0 1 41 0 52 1 0 2 6 34 108 0 5 16 0 1 42 0 52 1 0 2 6 34 94 0 5 16 0 1 43 0 52 1 0 2 6 34 80 0 5 16 0 1 44 0 52 1 0 2 6 34 66 0 5 16 0 1 45 0 52 1 0 2 6 34 52 0 5 16 0 1 46 0 52 1 0 2 6 34 38 0 5 16 0 1 47 0 52 1 0 2 6 34 24 0 5 16 0 1 48 0 52 1 0 2 6 34 10 0 5 16 0 1 49 0 52 1 0 2 33 19 0 20 3 0 20 4 0 16 1 16 2 48 2 48 1 5 2 32 10 2 16 0 1 50 0 52 1 0 2 33 176 0 20 3 0 20 4 0 16 3 52 5 0 1 16 2 48 2 48 1 17 4 16 3 52 0 0 1 17 5 2 17 6 2 17 7 16 5 52 10 0 1 1 11 0 52 51 0 2 6 33 41 0 5 16 5 52 5 0 1 52 52 0 1 1 53 0 52 1 0 2 6 33 19 0 5 20 54 0 16 5 52 5 0 1 48 1 1 55 0 52 1 0 2 33 38 0 20 3 0 20 4 0 16 5 1 8 0 52 7 0 2 16 2 48 2 48 1 17 6 5 16 5 1 11 0 52 56 0 2 17 7 32 4 0 16 5 17 7 5 16 4 16 6 52 57 0 2 5 2 17 8 51 15 0 1 8 1 2 16 7 52 14 0 2 5 16 4 52 58 0 1 5 16 8 32 78 1 16 0 1 59 0 52 1 0 2 33 88 0 20 3 0 20 4 0 16 3 52 5 0 1 16 2 48 2 48 1 17 4 20 3 0 20 4 0 16 3 1 8 0 52 7 0 2 16 2 48 2 48 1 17 5 2 17 6 16 4 16 5 52 57 0 2 5 51 15 0 1 6 1 2 16 3 1 11 0 52 56 0 2 52 14 0 2 5 16 4 52 58 0 1 5 16 6 32 234 0 16 0 1 60 0 52 1 0 2 33 90 0 20 3 0 20 4 0 16 3 52 5 0 1 16 2 48 2 48 1 17 4 16 3 52 10 0 1 1 11 0 52 51 0 2 33 24 0 20 3 0 20 4 0 16 3 1 8 0 52 7 0 2 16 2 48 2 48 1 32 1 0 2 17 5 16 4 52 61 0 1 17 6 16 6 52 62 0 1 33 5 0 16 5 32 2 0 16 6 32 132 0 16 0 1 63 0 52 1 0 2 33 56 0 20 3 0 20 4 0 16 3 52 5 0 1 16 2 48 2 48 1 17 4 20 3 0 20 4 0 16 3 1 8 0 52 7 0 2 16 2 48 2 48 1 17 5 16 4 16 5 52 64 0 2 5 2 32 64 0 16 0 1 65 0 52 1 0 2 33 38 0 20 3 0 20 4 0 16 3 52 5 0 1 16 2 48 2 48 1 17 4 16 4 52 61 0 1 6 34 5 0 5 52 34 0 0 32 14 0 20 3 0 20 4 0 16 1 16 2 48 2 49 1 50)
|
|
:constants (
|
|
"rest"
|
|
"="
|
|
"if"
|
|
"trampoline"
|
|
"eval-expr"
|
|
"first"
|
|
"aser"
|
|
"nth"
|
|
1
|
|
">"
|
|
"len"
|
|
2
|
|
"when"
|
|
"not"
|
|
"for-each"
|
|
(code :arity 1 :upvalue-count 2
|
|
:bytecode (20 0 0 16 0 18 1 48 2 19 0 50)
|
|
:constants (
|
|
"aser"))
|
|
"cond"
|
|
"eval-cond"
|
|
"case"
|
|
"eval-case-aser"
|
|
"let"
|
|
"let*"
|
|
"process-bindings"
|
|
"begin"
|
|
"do"
|
|
"and"
|
|
"some"
|
|
(code :arity 1 :upvalue-count 2
|
|
:bytecode (20 0 0 20 1 0 16 0 18 1 48 2 48 1 19 0 5 18 0 52 2 0 1 50)
|
|
:constants (
|
|
"trampoline"
|
|
"eval-expr"
|
|
"not"))
|
|
"or"
|
|
(code :arity 1 :upvalue-count 2
|
|
:bytecode (20 0 0 20 1 0 16 0 18 1 48 2 48 1 19 0 5 18 0 50)
|
|
:constants (
|
|
"trampoline"
|
|
"eval-expr"))
|
|
"map"
|
|
(code :arity 1 :upvalue-count 2
|
|
:bytecode (18 0 52 0 0 1 33 51 0 20 1 0 18 0 52 2 0 1 18 1 48 2 17 1 20 3 0 16 1 18 0 52 5 0 1 52 4 0 1 16 0 48 3 5 20 6 0 18 0 52 7 0 1 16 1 49 2 32 13 0 20 8 0 18 0 16 0 52 9 0 1 49 2 50)
|
|
:constants (
|
|
"lambda?"
|
|
"env-merge"
|
|
"lambda-closure"
|
|
"env-bind!"
|
|
"first"
|
|
"lambda-params"
|
|
"aser"
|
|
"lambda-body"
|
|
"cek-call"
|
|
"list"))
|
|
"map-indexed"
|
|
(code :arity 2 :upvalue-count 2
|
|
:bytecode (18 0 52 0 0 1 33 74 0 20 1 0 18 0 52 2 0 1 18 1 48 2 17 2 20 3 0 16 2 18 0 52 5 0 1 52 4 0 1 16 0 48 3 5 20 3 0 16 2 18 0 52 5 0 1 1 7 0 52 6 0 2 16 1 48 3 5 20 8 0 18 0 52 9 0 1 16 2 49 2 32 15 0 20 10 0 18 0 16 0 16 1 52 11 0 2 49 2 50)
|
|
:constants (
|
|
"lambda?"
|
|
"env-merge"
|
|
"lambda-closure"
|
|
"env-bind!"
|
|
"first"
|
|
"lambda-params"
|
|
"nth"
|
|
1
|
|
"aser"
|
|
"lambda-body"
|
|
"cek-call"
|
|
"list"))
|
|
"list"
|
|
(code :arity 1 :upvalue-count 3
|
|
:bytecode (18 0 52 0 0 1 33 58 0 20 1 0 18 0 52 2 0 1 18 1 48 2 17 1 20 3 0 16 1 18 0 52 5 0 1 52 4 0 1 16 0 48 3 5 20 6 0 18 2 20 7 0 18 0 52 8 0 1 16 1 48 2 49 2 32 13 0 20 9 0 18 0 16 0 52 10 0 1 49 2 50)
|
|
:constants (
|
|
"lambda?"
|
|
"env-merge"
|
|
"lambda-closure"
|
|
"env-bind!"
|
|
"first"
|
|
"lambda-params"
|
|
"append!"
|
|
"aser"
|
|
"lambda-body"
|
|
"cek-call"
|
|
"list"))
|
|
"empty?"
|
|
"defisland"
|
|
"serialize"
|
|
"define"
|
|
"defcomp"
|
|
"defmacro"
|
|
"defstyle"
|
|
"defhandler"
|
|
"defpage"
|
|
"defquery"
|
|
"defaction"
|
|
"defrelation"
|
|
"deftype"
|
|
"defeffect"
|
|
"scope"
|
|
">="
|
|
"type-of"
|
|
"keyword"
|
|
"keyword-name"
|
|
"value"
|
|
"slice"
|
|
"scope-push!"
|
|
"scope-pop!"
|
|
"provide"
|
|
"context"
|
|
"scope-peek"
|
|
"nil?"
|
|
"emit!"
|
|
"scope-emit!"
|
|
"emitted"))
|
|
"eval-case-aser"
|
|
(code :arity 3
|
|
:bytecode (16 1 52 1 0 1 1 2 0 52 0 0 2 33 4 0 2 32 175 0 16 1 52 3 0 1 17 3 16 1 1 5 0 52 4 0 2 17 4 16 3 52 7 0 1 1 8 0 52 6 0 2 6 33 15 0 5 20 9 0 16 3 48 1 1 10 0 52 6 0 2 6 34 52 0 5 16 3 52 7 0 1 1 11 0 52 6 0 2 6 33 34 0 5 20 12 0 16 3 48 1 1 13 0 52 6 0 2 6 34 15 0 5 20 12 0 16 3 48 1 1 10 0 52 6 0 2 33 12 0 20 14 0 16 4 16 2 49 2 32 53 0 16 0 20 15 0 20 16 0 16 3 16 2 48 2 48 1 52 6 0 2 33 12 0 20 14 0 16 4 16 2 49 2 32 18 0 20 17 0 16 0 16 1 1 2 0 52 18 0 2 16 2 49 3 50)
|
|
:constants (
|
|
"<"
|
|
"len"
|
|
2
|
|
"first"
|
|
"nth"
|
|
1
|
|
"="
|
|
"type-of"
|
|
"keyword"
|
|
"keyword-name"
|
|
"else"
|
|
"symbol"
|
|
"symbol-name"
|
|
":else"
|
|
"aser"
|
|
"trampoline"
|
|
"eval-expr"
|
|
"eval-case-aser"
|
|
"slice")))))
|