coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
f5b6612ee1a3af8e28165f047664f5051e28d368
rose-ash/shared/static/wasm/sx/hs-compiler.sxbc
giles 59ac51a8ba
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 46s
Details
kernel+bundle: fix nil-bytecode .sxbc (compile-blob serializer dropped Integer) 
Every .sxbc shipped with `:bytecode (nil nil ...)` and `:arity nil`, so the WASM
kernel's vm.sx hit "VM: unknown opcode 0" on every module and fell back to .sx
source (slower, noisy console). Root cause: `raw_serialize` in the `compile-blob`
command (sx_server.ml) handles `Number` but not `Integer`, and bytecode opcodes +
arity/upvalue-count are `Integer`s — so they fell through to the `_ -> "nil"`
catch-all and serialized as nil. Same class of bug as the value_to_js Integer gap
(689dae7d). It went unnoticed because source-fallback masks it. Add the Integer
case and regenerate: the web stack now loads entirely from bytecode (0 unknown-
opcode warnings, 0 source fallbacks), boost + SPA unchanged. compiler.sx in the
bundle was also stale — re-synced to the canonical lib/compiler.sx.

Verified: native host conformance 271/271; chromium boots with 0 unknown-opcode
warnings + 0 source-fallback loads; spa-check still passes (boost 6/6, fragment
swap). Prereq for content-addressing the assets (caching real bytecode, not nil).
2026-06-29 13:17:20 +00:00

4 lines
22 KiB
Plaintext
Raw Blame History

(sxbc 1 "7d1c87203f9980a9"
(code
:constants ("_hs-command-registry" "_hs-converter-registry" "hs-register-command!" {:upvalue-count 0 :arity 2 :constants ("_hs-command-registry" "dict-set!") :bytecode (20 0 0 16 0 16 1 52 1 0 3 50)} "hs-register-converter!" {:upvalue-count 0 :arity 2 :constants ("_hs-converter-registry" "dict-set!") :bytecode (20 0 0 16 0 16 1 52 1 0 3 50)} "hs-to-sx" "." "make-symbol" "%" {:upvalue-count 0 :arity 1 :constants ("hs-to-sx") :bytecode (20 0 0 16 0 49 1 50)} {:upvalue-count 1 :arity 2 :constants ("list?" the-result let __hs-r "list" begin set! it "poss" "make-symbol" 1 "nth" 2 query "string?" 0 "substring" "." for-each fn __hs-el dom-set-prop hs-query-all hs-named-target hs-query-first host-get __hs-obj "symbol?" "str" "ref" do host-set! host-global "window" "_hs_last_query_sel" "hs-to-sx" hs-null-raise! when not nil? attr _hs-last-query-sel hs-set-attr! style dom-set-style ref local hs-scoped-set! me dom-ref hs-dom-set! hs-set-inner-html! array-index hs-array-set! next previous closest closest-parent of) :bytecode (16 0 52 0 0 1 167 33 82 0 16 0 1 1 0 164 33 59 0 1 2 0 1 3 0 16 1 52 4 0 2 52 4 0 1 1 5 0 1 6 0 1 1 0 1 3 0 52 4 0 3 1 6 0 1 7 0 1 3 0 52 4 0 3 1 3 0 52 4 0 4 52 4 0 3 32 11 0 1 6 0 16 0 16 1 52 4 0 3 32 108 5 16 0 169 17 2 16 2 18 0 164 6 34 11 0 5 16 2 1 8 0 52 9 0 1 164 33 88 2 16 0 1 10 0 52 11 0 2 17 3 16 0 1 12 0 52 11 0 2 17 4 16 3 52 0 0 1 6 33 63 0 5 16 3 169 1 13 0 164 6 33 51 0 5 16 3 1 10 0 52 11 0 2 17 5 16 5 52 14 0 1 6 33 29 0 5 16 5 168 1 15 0 166 6 33 17 0 5 16 5 1 15 0 1 10 0 52 16 0 3 1 17 0 164 33 54 0 1 18 0 1 19 0 1 20 0 52 4 0 1 1 21 0 1 20 0 16 4 16 1 52 4 0 4 52 4 0 3 1 22 0 16 3 1 10 0 52 11 0 2 52 4 0 2 52 4 0 3 32 189 1 16 3 52 0 0 1 6 33 8 0 5 16 3 169 1 13 0 164 33 46 0 1 21 0 1 23 0 16 3 1 10 0 52 11 0 2 1 24 0 16 3 1 10 0 52 11 0 2 52 4 0 2 52 4 0 3 16 4 16 1 52 4 0 4 32 122 1 16 3 52 0 0 1 6 33 96 0 5 16 3 169 18 0 164 6 33 85 0 5 16 3 1 10 0 52 11 0 2 17 5 16 5 52 0 0 1 6 33 63 0 5 16 5 169 1 13 0 164 6 33 51 0 5 16 5 1 10 0 52 11 0 2 17 6 16 6 52 14 0 1 6 33 29 0 5 16 6 168 1 15 0 166 6 33 17 0 5 16 6 1 15 0 1 10 0 52 16 0 3 1 17 0 164 33 85 0 16 3 1 10 0 52 11 0 2 17 5 16 3 1 12 0 52 11 0 2 17 6 1 18 0 1 19 0 1 20 0 52 4 0 1 1 21 0 1 25 0 1 20 0 16 6 52 4 0 3 16 4 16 1 52 4 0 4 52 4 0 3 1 22 0 16 5 1 10 0 52 11 0 2 52 4 0 2 52 4 0 3 32 184 0 1 2 0 1 26 0 16 3 52 27 0 1 6 34 23 0 5 16 3 52 0 0 1 6 33 12 0 5 16 3 169 52 28 0 1 1 29 0 164 33 68 0 16 3 52 27 0 1 33 9 0 16 3 52 28 0 1 32 9 0 16 3 1 10 0 52 11 0 2 17 5 1 30 0 1 31 0 1 32 0 1 33 0 52 4 0 2 1 34 0 16 5 52 4 0 4 20 35 0 16 3 48 1 52 4 0 3 32 7 0 20 35 0 16 3 48 1 52 4 0 2 52 4 0 1 1 30 0 1 36 0 1 26 0 52 4 0 2 1 37 0 1 38 0 1 39 0 1 26 0 52 4 0 2 52 4 0 2 1 21 0 1 26 0 16 4 16 1 52 4 0 4 52 4 0 3 52 4 0 3 52 4 0 3 32 248 2 16 2 1 40 0 164 33 118 0 16 0 1 12 0 52 11 0 2 17 3 16 3 52 0 0 1 6 33 12 0 5 16 3 169 52 28 0 1 1 29 0 164 33 54 0 1 30 0 1 6 0 1 41 0 16 3 1 10 0 52 11 0 2 52 4 0 3 1 42 0 20 35 0 16 3 48 1 16 0 1 10 0 52 11 0 2 16 1 52 4 0 4 52 4 0 3 32 25 0 1 42 0 20 35 0 16 3 48 1 16 0 1 10 0 52 11 0 2 16 1 52 4 0 4 32 121 2 16 2 1 43 0 164 33 35 0 1 44 0 20 35 0 16 0 1 12 0 52 11 0 2 48 1 16 0 1 10 0 52 11 0 2 16 1 52 4 0 4 32 77 2 16 2 1 45 0 164 33 25 0 1 6 0 16 0 1 10 0 52 11 0 2 52 9 0 1 16 1 52 4 0 3 32 43 2 16 2 1 46 0 164 33 24 0 1 47 0 1 48 0 16 0 1 10 0 52 11 0 2 16 1 52 4 0 4 32 10 2 16 2 1 49 0 164 33 35 0 1 50 0 20 35 0 16 0 1 12 0 52 11 0 2 48 1 16 0 1 10 0 52 11 0 2 16 1 52 4 0 4 32 222 1 16 2 1 48 0 164 33 15 0 1 51 0 1 48 0 16 1 52 4 0 3 32 198 1 16 2 1 7 0 164 33 15 0 1 6 0 1 7 0 16 1 52 4 0 3 32 174 1 16 2 1 13 0 164 33 19 0 1 51 0 20 35 0 16 0 48 1 16 1 52 4 0 3 32 146 1 16 2 1 52 0 164 33 40 0 1 53 0 20 35 0 16 0 1 10 0 52 11 0 2 48 1 20 35 0 16 0 1 12 0 52 11 0 2 48 1 16 1 52 4 0 4 32 97 1 16 2 1 54 0 164 6 34 29 0 5 16 2 1 55 0 164 6 34 18 0 5 16 2 1 56 0 164 6 34 7 0 5 16 2 1 57 0 164 33 19 0 1 51 0 20 35 0 16 0 48 1 16 1 52 4 0 3 32 36 1 16 2 1 58 0 164 33 11 1 16 0 1 10 0 52 11 0 2 17 3 16 0 1 12 0 52 11 0 2 17 4 16 3 52 0 0 1 6 33 7 0 5 16 3 169 18 0 164 33 59 0 16 3 1 10 0 52 11 0 2 17 5 16 3 1 12 0 52 11 0 2 17 6 1 21 0 1 25 0 20 35 0 16 4 48 1 16 5 1 10 0 52 11 0 2 52 4 0 3 16 6 16 1 52 4 0 4 32 163 0 16 3 52 0 0 1 6 33 8 0 5 16 3 169 1 40 0 164 33 28 0 1 42 0 20 35 0 16 4 48 1 16 3 1 10 0 52 11 0 2 16 1 52 4 0 4 32 114 0 16 3 52 0 0 1 6 33 8 0 5 16 3 169 1 45 0 164 33 28 0 1 21 0 20 35 0 16 4 48 1 16 3 1 10 0 52 11 0 2 16 1 52 4 0 4 32 65 0 16 3 52 0 0 1 6 33 8 0 5 16 3 169 1 43 0 164 33 28 0 1 44 0 20 35 0 16 4 48 1 16 3 1 10 0 52 11 0 2 16 1 52 4 0 4 32 16 0 1 6 0 20 35 0 16 0 48 1 16 1 52 4 0 3 32 16 0 1 6 0 20 35 0 16 0 48 1 16 1 52 4 0 3 50)} {:upvalue-count 0 :arity 1 :constants ({:upvalue-count 2 :arity 11 :constants (1 "<=" 0 dom-body "list" "hs-to-sx" "list?" do {:upvalue-count 0 :arity 1 :constants ("list?" ref) :bytecode (16 0 52 0 0 1 6 33 8 0 5 16 0 169 1 1 0 164 50)} {:upvalue-count 0 :arity 1 :constants ("list?" ref) :bytecode (16 0 52 0 0 1 6 33 8 0 5 16 0 169 1 1 0 164 167 50)} {:upvalue-count 0 :arity 1 :constants (1 "nth" "make-symbol" let _det host-get event "detail" "list" if and not nil?) :bytecode (16 0 1 0 0 52 1 0 2 17 1 16 1 52 2 0 1 1 3 0 1 4 0 1 5 0 1 6 0 1 7 0 52 8 0 3 52 8 0 2 52 8 0 1 1 9 0 1 10 0 1 4 0 1 11 0 1 12 0 1 5 0 1 4 0 16 1 52 8 0 3 52 8 0 2 52 8 0 2 52 8 0 3 1 5 0 1 4 0 16 1 52 8 0 3 1 5 0 1 6 0 16 1 52 8 0 3 52 8 0 4 52 8 0 3 52 8 0 2 50)} "map" let when not host-call me "contains" host-get event "target" "nth" "make-symbol" __hs-exc __hs-reraise guard host-hs-normalize-exc __inner-exc set! raise {:upvalue-count 0 :arity 1 :constants (the-result "list?" {:upvalue-count 0 :arity 1 :constants ("uses-the-result?") :bytecode (20 0 0 16 0 49 1 50)} "some") :bytecode (16 0 1 0 0 164 33 4 0 3 32 22 0 16 0 52 1 0 1 33 12 0 51 2 0 16 0 52 3 0 2 32 1 0 4 50)} fn the-result "min" "get" "max" __hs-count begin + -1 >= and <= 2 hs-on-every hs-on "mutation" hs-on-mutation-attach! "type" "any" "attrs" list "intersection" hs-on-intersection-attach! "margin" "threshold" {:upvalue-count 1 :arity 1 :constants (hs-on 1 "nth" "hs-to-sx" me "list") :bytecode (1 0 0 16 0 1 1 0 52 2 0 2 33 17 0 20 3 0 16 0 1 1 0 52 2 0 2 48 1 32 3 0 1 4 0 16 0 169 18 0 52 5 0 4 50)} "from" "filter" "every" "catch" "finally" "having" "of-filter" "count-filter" "elsewhere" "or-sources") :bytecode (16 0 168 1 0 0 52 1 0 2 33 49 4 16 0 168 1 2 0 166 33 6 0 16 0 169 32 1 0 2 17 11 16 9 1 3 0 52 4 0 1 48 1 33 14 0 16 1 20 5 0 16 1 48 1 48 1 32 1 0 2 17 12 16 11 52 6 0 1 6 33 8 0 5 16 11 169 1 7 0 164 33 13 0 16 2 51 8 0 16 11 170 48 2 32 4 0 52 4 0 0 17 13 16 13 168 1 2 0 166 33 37 0 16 2 51 9 0 16 11 170 48 2 17 14 16 14 168 1 0 0 164 33 6 0 16 14 169 32 6 0 1 7 0 16 14 172 32 2 0 16 11 17 14 20 5 0 16 14 48 1 17 15 16 13 168 1 2 0 166 33 25 0 51 10 0 16 13 52 11 0 2 17 16 1 12 0 16 16 16 15 52 4 0 3 32 2 0 16 15 17 16 16 9 33 45 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 52 4 0 3 52 4 0 4 52 4 0 2 16 16 52 4 0 3 32 2 0 16 16 17 16 16 4 33 97 1 16 4 1 2 0 52 21 0 2 52 22 0 1 17 17 20 5 0 16 4 1 0 0 52 21 0 2 48 1 17 18 16 5 33 162 0 1 12 0 1 23 0 2 52 4 0 2 1 24 0 4 52 4 0 2 52 4 0 2 1 7 0 1 25 0 16 17 3 1 12 0 16 17 1 26 0 16 17 52 4 0 2 52 4 0 2 52 4 0 1 1 25 0 1 27 0 3 1 7 0 1 28 0 1 23 0 1 27 0 52 4 0 3 1 28 0 1 24 0 3 52 4 0 3 52 4 0 3 52 4 0 2 52 4 0 2 16 18 52 4 0 3 52 4 0 3 52 4 0 2 52 4 0 2 16 16 52 4 0 3 20 5 0 16 5 48 1 1 13 0 1 24 0 1 29 0 1 23 0 52 4 0 2 52 4 0 3 52 4 0 4 52 4 0 3 32 152 0 1 12 0 1 23 0 2 52 4 0 2 1 24 0 4 52 4 0 2 52 4 0 2 1 7 0 1 25 0 16 17 3 1 12 0 16 17 1 26 0 16 17 52 4 0 2 52 4 0 2 52 4 0 1 1 25 0 1 27 0 3 1 7 0 1 28 0 1 23 0 1 27 0 52 4 0 3 1 28 0 1 24 0 3 52 4 0 3 52 4 0 3 52 4 0 2 52 4 0 2 16 18 52 4 0 3 52 4 0 3 52 4 0 2 52 4 0 2 16 16 52 4 0 3 1 13 0 1 24 0 1 29 0 1 23 0 52 4 0 2 52 4 0 3 52 4 0 3 52 4 0 3 32 26 0 16 5 33 19 0 1 7 0 16 16 20 5 0 16 5 48 1 52 4 0 3 32 2 0 16 16 17 17 51 30 0 17 18 1 31 0 1 19 0 52 4 0 1 16 18 16 17 48 1 33 24 0 1 12 0 1 32 0 2 52 4 0 2 52 4 0 1 16 17 52 4 0 3 32 2 0 16 17 52 4 0 3 17 19 16 8 33 161 0 16 8 1 33 0 52 34 0 2 17 20 16 8 1 35 0 52 34 0 2 17 21 1 12 0 1 36 0 1 2 0 52 4 0 2 52 4 0 1 1 31 0 1 19 0 52 4 0 1 1 37 0 1 28 0 1 36 0 1 38 0 1 36 0 1 0 0 52 4 0 3 52 4 0 3 1 13 0 16 21 1 39 0 164 33 15 0 1 40 0 1 36 0 16 20 52 4 0 3 32 31 0 1 41 0 1 40 0 1 36 0 16 20 52 4 0 3 1 42 0 1 36 0 16 21 52 4 0 3 52 4 0 3 16 19 1 43 0 52 21 0 2 52 4 0 3 52 4 0 3 52 4 0 3 52 4 0 3 32 2 0 16 19 17 18 16 3 33 16 0 1 44 0 16 12 18 0 16 18 52 4 0 4 32 13 0 1 45 0 16 12 18 0 16 18 52 4 0 4 17 19 18 0 1 46 0 164 33 76 0 1 7 0 16 19 1 47 0 16 12 16 7 33 12 0 16 7 1 48 0 52 34 0 2 32 3 0 1 49 0 16 7 33 29 0 16 7 1 50 0 52 34 0 2 17 20 16 20 33 9 0 1 51 0 16 20 172 32 1 0 2 32 1 0 2 52 4 0 4 52 4 0 3 32 94 0 18 0 1 52 0 164 33 57 0 1 7 0 16 19 1 53 0 16 12 16 6 33 12 0 16 6 1 54 0 52 34 0 2 32 1 0 2 16 6 33 12 0 16 6 1 55 0 52 34 0 2 32 1 0 2 52 4 0 4 52 4 0 3 32 28 0 16 10 33 21 0 1 7 0 16 19 51 56 0 1 18 16 10 52 11 0 2 172 172 32 2 0 16 19 32 243 1 16 0 169 1 57 0 164 33 38 0 18 1 16 0 170 170 16 0 1 0 0 52 21 0 2 16 2 16 3 16 4 16 5 16 6 16 7 16 8 16 9 16 10 49 11 32 195 1 16 0 169 1 58 0 164 33 38 0 18 1 16 0 170 170 16 1 16 0 1 0 0 52 21 0 2 16 3 16 4 16 5 16 6 16 7 16 8 16 9 16 10 49 11 32 147 1 16 0 169 1 59 0 164 33 30 0 18 1 16 0 170 170 16 1 16 2 3 16 4 16 5 16 6 16 7 16 8 16 9 16 10 49 11 32 107 1 16 0 169 1 60 0 164 33 38 0 18 1 16 0 170 170 16 1 16 2 16 3 16 0 1 0 0 52 21 0 2 16 5 16 6 16 7 16 8 16 9 16 10 49 11 32 59 1 16 0 169 1 61 0 164 33 38 0 18 1 16 0 170 170 16 1 16 2 16 3 16 4 16 0 1 0 0 52 21 0 2 16 6 16 7 16 8 16 9 16 10 49 11 32 11 1 16 0 169 1 62 0 164 33 38 0 18 1 16 0 170 170 16 1 16 2 16 3 16 4 16 5 16 0 1 0 0 52 21 0 2 16 7 16 8 16 9 16 10 49 11 32 219 0 16 0 169 1 63 0 164 33 38 0 18 1 16 0 170 170 16 1 16 2 16 3 16 4 16 5 16 6 16 0 1 0 0 52 21 0 2 16 8 16 9 16 10 49 11 32 171 0 16 0 169 1 64 0 164 33 38 0 18 1 16 0 170 170 16 1 16 2 16 3 16 4 16 5 16 6 16 7 16 0 1 0 0 52 21 0 2 16 9 16 10 49 11 32 123 0 16 0 169 1 65 0 164 33 38 0 18 1 16 0 170 170 16 1 16 2 16 3 16 4 16 5 16 6 16 7 16 8 16 0 1 0 0 52 21 0 2 16 10 49 11 32 75 0 16 0 169 1 66 0 164 33 38 0 18 1 16 0 170 170 16 1 16 2 16 3 16 4 16 5 16 6 16 7 16 8 16 9 16 0 1 0 0 52 21 0 2 49 11 32 27 0 18 1 16 0 170 16 1 16 2 16 3 16 4 16 5 16 6 16 7 16 8 16 9 16 10 49 11 50)}) :bytecode (16 0 170 17 1 16 1 169 17 2 51 0 0 1 2 1 3 17 3 5 16 3 16 1 170 2 2 4 2 2 2 2 2 4 2 49 11 50)} {:upvalue-count 0 :arity 1 :constants (1 "nth" 4 2 "list?" dict hs-dispatch! "hs-to-sx" 3 "list" "sender" me dom-dispatch) :bytecode (16 0 1 0 0 52 1 0 2 17 1 16 0 170 170 17 2 16 0 168 1 2 0 164 6 33 33 0 5 16 0 1 3 0 52 1 0 2 52 4 0 1 6 33 15 0 5 16 0 1 3 0 52 1 0 2 169 1 5 0 164 33 40 0 1 6 0 20 7 0 16 0 1 8 0 52 1 0 2 48 1 16 1 20 7 0 16 0 1 3 0 52 1 0 2 48 1 52 9 0 4 32 74 0 16 0 168 1 8 0 164 33 39 0 1 6 0 20 7 0 16 0 1 3 0 52 1 0 2 48 1 16 1 1 5 0 1 10 0 1 11 0 52 9 0 3 52 9 0 4 32 25 0 1 12 0 1 11 0 16 1 1 5 0 1 10 0 1 11 0 52 9 0 3 52 9 0 4 50)} {:upvalue-count 0 :arity 1 :constants (1 "nth" "hs-to-sx" 2 "list?" forever hs-repeat-forever fn "list" times hs-repeat-times "number?" while hs-repeat-while until hs-repeat-until) :bytecode (16 0 1 0 0 52 1 0 2 17 1 20 2 0 16 0 1 3 0 52 1 0 2 48 1 17 2 16 1 52 4 0 1 6 33 8 0 5 16 1 169 1 5 0 164 33 23 0 1 6 0 1 7 0 52 8 0 0 16 2 52 8 0 3 52 8 0 2 32 9 1 16 1 52 4 0 1 6 33 8 0 5 16 1 169 1 9 0 164 33 37 0 1 10 0 20 2 0 16 1 1 0 0 52 1 0 2 48 1 1 7 0 52 8 0 0 16 2 52 8 0 3 52 8 0 3 32 207 0 16 1 52 11 0 1 33 25 0 1 10 0 16 1 1 7 0 52 8 0 0 16 2 52 8 0 3 52 8 0 3 32 173 0 16 1 52 4 0 1 6 33 8 0 5 16 1 169 1 12 0 164 33 52 0 20 2 0 16 1 1 0 0 52 1 0 2 48 1 17 3 1 13 0 1 7 0 52 8 0 0 16 3 52 8 0 3 1 7 0 52 8 0 0 16 2 52 8 0 3 52 8 0 3 32 100 0 16 1 52 4 0 1 6 33 8 0 5 16 1 169 1 14 0 164 33 52 0 20 2 0 16 1 1 0 0 52 1 0 2 48 1 17 3 1 15 0 1 7 0 52 8 0 0 16 3 52 8 0 3 1 7 0 52 8 0 0 16 2 52 8 0 3 52 8 0 3 32 27 0 1 10 0 20 2 0 16 1 48 1 1 7 0 52 8 0 0 16 2 52 8 0 3 52 8 0 3 50)} {:upvalue-count 0 :arity 1 :constants ("meta" "event" "result") :bytecode (16 0 1 0 0 164 6 34 18 0 5 16 0 1 1 0 164 6 34 7 0 5 16 0 1 2 0 164 50)} {:upvalue-count 1 :arity 1 :constants (1 "nth" "_hs_lv_" "str" 2 "list?" coll-where "hs-to-sx" "symbol?" cek-try fn "list" _e filter "make-symbol" 3 4 "index" map-indexed 5 hs-for-each) :bytecode (16 0 1 0 0 52 1 0 2 17 1 18 0 16 1 48 1 33 12 0 1 2 0 16 1 52 3 0 2 32 2 0 16 1 17 2 16 0 1 4 0 52 1 0 2 17 3 16 3 52 5 0 1 6 33 8 0 5 16 3 169 1 6 0 164 33 17 0 20 7 0 16 3 1 4 0 52 1 0 2 48 1 32 1 0 2 17 4 16 4 33 12 0 16 3 1 0 0 52 1 0 2 32 2 0 16 3 17 5 20 7 0 16 5 48 1 17 6 16 6 52 8 0 1 33 38 0 1 9 0 1 10 0 52 11 0 0 16 6 52 11 0 3 1 10 0 1 12 0 52 11 0 1 2 52 11 0 3 52 11 0 3 32 2 0 16 6 17 7 16 4 33 31 0 1 13 0 1 10 0 16 1 52 14 0 1 52 11 0 1 16 4 52 11 0 3 16 7 52 11 0 3 32 2 0 16 7 17 8 20 7 0 16 0 1 15 0 52 1 0 2 48 1 17 9 16 0 168 1 16 0 166 6 33 14 0 5 16 0 1 16 0 52 1 0 2 1 17 0 164 33 44 0 1 18 0 1 10 0 16 0 1 19 0 52 1 0 2 52 14 0 1 16 2 52 14 0 1 52 11 0 2 16 9 52 11 0 3 16 8 52 11 0 3 32 28 0 1 20 0 1 10 0 16 2 52 14 0 1 52 11 0 1 16 9 52 11 0 3 16 8 52 11 0 3 50)} {:upvalue-count 0 :arity 1 :constants (1 "nth" 2 "from" 4 "or" hs-wait-for-or "hs-to-sx" 3 5 "list" hs-wait-for me) :bytecode (16 0 1 0 0 52 1 0 2 17 1 16 0 168 1 2 0 166 6 33 14 0 5 16 0 1 2 0 52 1 0 2 1 3 0 164 17 2 16 0 168 1 4 0 166 6 33 32 0 5 16 0 1 2 0 52 1 0 2 1 3 0 164 6 33 14 0 5 16 0 1 4 0 52 1 0 2 1 5 0 164 17 3 16 0 168 1 2 0 166 6 33 14 0 5 16 0 1 2 0 52 1 0 2 1 5 0 164 17 4 16 3 1 6 0 20 7 0 16 0 1 8 0 52 1 0 2 48 1 16 1 16 0 1 9 0 52 1 0 2 52 10 0 4 48 1 33 30 0 16 2 1 11 0 20 7 0 16 0 1 8 0 52 1 0 2 48 1 16 1 52 10 0 3 49 1 32 47 0 16 4 1 6 0 1 12 0 16 1 16 0 1 8 0 52 1 0 2 52 10 0 4 48 1 33 18 0 3 1 11 0 1 12 0 16 1 52 10 0 3 49 1 32 1 0 2 50)} {:upvalue-count 0 :arity 1 :constants ("hs-to-sx" 1 "nth" 2 3 4 hs-transition "nil?" me "list") :bytecode (20 0 0 16 0 1 1 0 52 2 0 2 48 1 17 1 20 0 0 16 0 1 3 0 52 2 0 2 48 1 17 2 16 0 1 4 0 52 2 0 2 17 3 16 0 1 5 0 52 2 0 2 17 4 1 6 0 16 4 52 7 0 1 33 6 0 1 8 0 32 7 0 20 0 0 16 4 48 1 16 1 16 2 16 3 33 10 0 20 0 0 16 3 48 1 32 1 0 2 52 9 0 5 50)} {:upvalue-count 0 :arity 1 :constants (1 "nth" 3 ">=" 2 4 5 auto "nil?" hs-make "list" "hs-to-sx" "map" 0 "substring" "$" let __hs-mk do host-set! host-global "window" set! it "make-symbol") :bytecode (16 0 1 0 0 52 1 0 2 17 1 16 0 168 1 2 0 52 3 0 2 33 12 0 16 0 1 4 0 52 1 0 2 32 1 0 2 17 2 16 0 168 1 5 0 52 3 0 2 33 12 0 16 0 1 2 0 52 1 0 2 32 1 0 2 17 3 16 0 168 1 6 0 52 3 0 2 33 12 0 16 0 1 5 0 52 1 0 2 32 3 0 1 7 0 17 4 16 3 52 8 0 1 33 12 0 1 9 0 16 1 52 10 0 2 32 16 0 1 9 0 16 1 20 11 0 16 3 52 12 0 2 172 172 17 5 16 2 6 33 29 0 5 16 2 168 1 0 0 166 6 33 17 0 5 16 2 1 13 0 1 0 0 52 14 0 3 1 15 0 164 33 68 0 1 16 0 1 17 0 16 5 52 10 0 2 52 10 0 1 1 18 0 1 19 0 1 20 0 1 21 0 52 10 0 2 16 2 1 17 0 52 10 0 4 1 22 0 1 23 0 1 17 0 52 10 0 3 1 17 0 52 10 0 4 52 10 0 3 32 95 0 16 2 33 47 0 1 18 0 1 22 0 16 2 52 24 0 1 16 5 52 10 0 3 1 22 0 1 23 0 16 2 52 24 0 1 52 10 0 3 16 2 52 24 0 1 52 10 0 4 32 43 0 1 16 0 1 17 0 16 5 52 10 0 2 52 10 0 1 1 18 0 1 22 0 1 23 0 1 17 0 52 10 0 3 1 17 0 52 10 0 3 52 10 0 3 50)} {:upvalue-count 1 :arity 3 :constants ("list?" attr "hs-to-sx" me 1 "nth" let __hs-new + hs-to-number dom-get-attr "list" do dom-set-attr set! it "poss" "make-symbol" 2 __hs-obj hs-null-raise! when not nil? host-get host-set! style dom-get-style dom-set-style dom-ref hs-dom-get hs-dom-set! array-index ref __hs-idx nth hs-list-set) :bytecode (16 0 52 0 0 1 6 33 8 0 5 16 0 169 1 1 0 164 33 113 0 16 2 33 10 0 20 2 0 16 2 48 1 32 3 0 1 3 0 17 3 16 0 1 4 0 52 5 0 2 17 4 1 6 0 1 7 0 1 8 0 1 9 0 1 10 0 16 3 16 4 52 11 0 3 52 11 0 2 16 1 52 11 0 3 52 11 0 2 52 11 0 1 1 12 0 1 13 0 16 3 16 4 1 7 0 52 11 0 4 1 14 0 1 15 0 1 7 0 52 11 0 3 52 11 0 3 52 11 0 3 32 232 2 16 0 52 0 0 1 6 33 23 0 5 16 0 169 18 0 164 6 34 12 0 5 16 0 169 1 16 0 52 17 0 1 164 33 172 0 20 2 0 16 0 1 4 0 52 5 0 2 48 1 17 3 16 0 1 18 0 52 5 0 2 17 4 1 6 0 1 19 0 16 3 52 11 0 2 52 11 0 1 1 12 0 1 20 0 1 19 0 52 11 0 2 1 21 0 1 22 0 1 23 0 1 19 0 52 11 0 2 52 11 0 2 1 6 0 1 7 0 1 8 0 1 9 0 1 24 0 1 19 0 16 4 52 11 0 3 52 11 0 2 16 1 52 11 0 3 52 11 0 2 52 11 0 1 1 12 0 1 25 0 1 19 0 16 4 1 7 0 52 11 0 4 1 14 0 1 15 0 1 7 0 52 11 0 3 52 11 0 3 52 11 0 3 52 11 0 3 52 11 0 3 52 11 0 3 32 24 2 16 0 52 0 0 1 6 33 8 0 5 16 0 169 1 26 0 164 33 113 0 16 2 33 10 0 20 2 0 16 2 48 1 32 3 0 1 3 0 17 3 16 0 1 4 0 52 5 0 2 17 4 1 6 0 1 7 0 1 8 0 1 9 0 1 27 0 16 3 16 4 52 11 0 3 52 11 0 2 16 1 52 11 0 3 52 11 0 2 52 11 0 1 1 12 0 1 28 0 16 3 16 4 1 7 0 52 11 0 4 1 14 0 1 15 0 1 7 0 52 11 0 3 52 11 0 3 52 11 0 3 32 146 1 16 0 52 0 0 1 6 33 8 0 5 16 0 169 1 29 0 164 33 109 0 20 2 0 16 0 1 18 0 52 5 0 2 48 1 17 3 16 0 1 4 0 52 5 0 2 17 4 1 6 0 1 7 0 1 8 0 1 9 0 1 30 0 16 3 16 4 52 11 0 3 52 11 0 2 16 1 52 11 0 3 52 11 0 2 52 11 0 1 1 12 0 1 31 0 16 3 16 4 1 7 0 52 11 0 4 1 14 0 1 15 0 1 7 0 52 11 0 3 52 11 0 3 52 11 0 3 32 16 1 16 0 52 0 0 1 6 33 45 0 5 16 0 169 1 32 0 164 6 33 33 0 5 16 0 1 4 0 52 5 0 2 52 0 0 1 6 33 15 0 5 16 0 1 4 0 52 5 0 2 169 1 33 0 164 33 144 0 16 0 1 4 0 52 5 0 2 1 4 0 52 5 0 2 52 17 0 1 17 3 20 2 0 16 0 1 18 0 52 5 0 2 48 1 17 4 1 6 0 1 34 0 16 4 52 11 0 2 52 11 0 1 1 6 0 1 7 0 1 8 0 1 35 0 16 3 1 34 0 52 11 0 3 16 1 52 11 0 3 52 11 0 2 52 11 0 1 1 12 0 1 14 0 16 3 1 36 0 16 3 1 34 0 1 7 0 52 11 0 4 52 11 0 3 1 14 0 1 15 0 1 7 0 52 11 0 3 52 11 0 3 52 11 0 3 52 11 0 3 32 70 0 20 2 0 16 0 48 1 17 3 1 6 0 1 7 0 1 8 0 16 3 16 1 52 11 0 3 52 11 0 2 52 11 0 1 1 12 0 1 14 0 16 3 1 7 0 52 11 0 3 1 14 0 1 15 0 1 7 0 52 11 0 3 52 11 0 3 52 11 0 3 50)} {:upvalue-count 1 :arity 3 :constants ("list?" attr "hs-to-sx" me 1 "nth" let __hs-new - hs-to-number dom-get-attr "list" do dom-set-attr set! it "poss" "make-symbol" 2 __hs-obj hs-null-raise! when not nil? host-get host-set! style dom-get-style dom-set-style dom-ref hs-dom-get hs-dom-set! array-index ref __hs-idx nth hs-list-set) :bytecode (16 0 52 0 0 1 6 33 8 0 5 16 0 169 1 1 0 164 33 113 0 16 2 33 10 0 20 2 0 16 2 48 1 32 3 0 1 3 0 17 3 16 0 1 4 0 52 5 0 2 17 4 1 6 0 1 7 0 1 8 0 1 9 0 1 10 0 16 3 16 4 52 11 0 3 52 11 0 2 16 1 52 11 0 3 52 11 0 2 52 11 0 1 1 12 0 1 13 0 16 3 16 4 1 7 0 52 11 0 4 1 14 0 1 15 0 1 7 0 52 11 0 3 52 11 0 3 52 11 0 3 32 232 2 16 0 52 0 0 1 6 33 23 0 5 16 0 169 18 0 164 6 34 12 0 5 16 0 169 1 16 0 52 17 0 1 164 33 172 0 20 2 0 16 0 1 4 0 52 5 0 2 48 1 17 3 16 0 1 18 0 52 5 0 2 17 4 1 6 0 1 19 0 16 3 52 11 0 2 52 11 0 1 1 12 0 1 20 0 1 19 0 52 11 0 2 1 21 0 1 22 0 1 23 0 1 19 0 52 11 0 2 52 11 0 2 1 6 0 1 7 0 1 8 0 1 9 0 1 24 0 1 19 0 16 4 52 11 0 3 52 11 0 2 16 1 52 11 0 3 52 11 0 2 52 11 0 1 1 12 0 1 25 0 1 19 0 16 4 1 7 0 52 11 0 4 1 14 0 1 15 0 1 7 0 52 11 0 3 52 11 0 3 52 11 0 3 52 11 0 3 52 11 0 3 52 11 0 3 32 24 2 16 0 52 0 0 1 6 33 8 0 5 16 0 169 1 26 0 164 33 113 0 16 2 33 10 0 20 2 0 16 2 48 1 32 3 0 1 3 0 17 3 16 0 1 4 0 52 5 0 2 17 4 1 6 0 1 7 0 1 8 0 1 9 0 1 27 0 16 3 16 4 52 11 0 3 52 11 0 2 16 1 52 11 0 3 52 11 0 2 52 11 0 1 1 12 0 1 28 0 16 3 16 4 1 7 0 52 11 0 4 1 14 0 1 15 0 1 7 0 52 11 0 3 52 11 0 3 52 11 0 3 32 146 1 16 0 52 0 0 1 6 33 8 0 5 16 0 169 1 29 0 164 33 109 0 20 2 0 16 0 1 18 0 52 5 0 2 48 1 17 3 16 0 1 4 0 52 5 0 2 17 4 1 6 0 1 7 0 1 8 0 1 9 0 1 30 0 16 3 16 4 52 11 0 3 52 11 0 2 16 1 52 11 0 3 52 11 0 2 52 11 0 1 1 12 0 1 31 0 16 3 16 4 1 7 0 52 11 0 4 1 14 0 1 15 0 1 7 0 52 11 0 3 52 11 0 3 52 11 0 3 32 16 1 16 0 52 0 0 1 6 33 45 0 5 16 0 169 1 32 0 164 6 33 33 0 5 16 0 1 4 0 52 5 0 2 52 0 0 1 6 33 15 0 5 16 0 1 4 0 52 5 0 2 169 1 33 0 164 33 144 0 16 0 1 4 0 52 5 0 2 1 4 0 52 5 0 2 52 17 0 1 17 3 20 2 0 16 0 1 18 0 52 5 0 2 48 1 17 4 1 6 0 1 34 0 16 4 52 11 0 2 52 11 0 1 1 6 0 1 7 0 1 8 0 1 35 0 16 3 1 34 0 52 11 0 3 16 1 52 11 0 3 52 11 0 2 52 11 0 1 1 12 0 1 14 0 16 3 1 36 0 16 3 1 34 0 1 7 0 52 11 0 4 52 11 0 3 1 14 0 1 15 0 1 7 0 52 11 0 3 52 11 0 3 52 11 0 3 52 11 0 3 32 70 0 20 2 0 16 0 48 1 17 3 1 6 0 1 7 0 1 8 0 16 3 16 1 52 11 0 3 52 11 0 2 52 11 0 1 1 12 0 1 14 0 16 3 1 7 0 52 11 0 3 1 14 0 1 15 0 1 7 0 52 11 0 3 52 11 0 3 52 11 0 3 50)} {:upvalue-count 0 :arity 1 :constants (1 "nth" 2 3 define "make-symbol" fn me {:upvalue-count 0 :arity 1 :constants ("list?" 1 "nth" "make-symbol") :bytecode (16 0 52 0 0 1 33 16 0 16 0 1 1 0 52 2 0 2 52 3 0 1 32 6 0 16 0 52 3 0 1 50)} "map" let beingTold "list" do "hs-to-sx") :bytecode (16 0 1 0 0 52 1 0 2 17 1 16 0 1 2 0 52 1 0 2 17 2 16 0 1 3 0 52 1 0 2 17 3 1 4 0 16 1 52 5 0 1 1 6 0 1 7 0 51 8 0 16 2 52 9 0 2 172 1 10 0 1 11 0 1 7 0 52 12 0 2 52 12 0 1 1 13 0 20 14 0 16 3 52 9 0 2 172 52 12 0 3 52 12 0 3 52 12 0 3 50)} {:upvalue-count 0 :arity 1 :constants ("dict?" "hs-ast" "get" "children" "nil?" "number?" "string?" "boolean?" "symbol?" "str" "sender" hs-sender event "list" "list?" "_hs-command-registry" "dict-get" as "_hs-converter-registry" 2 "nth" "value-ast" 1 "hs-to-sx" "type-name" "ast" "head") :bytecode (16 0 52 0 0 1 6 33 10 0 5 16 0 1 1 0 52 2 0 2 33 12 0 16 0 1 3 0 52 2 0 2 32 2 0 16 0 17 1 16 1 52 4 0 1 33 4 0 2 32 223 0 16 1 52 5 0 1 33 5 0 16 1 32 209 0 16 1 52 6 0 1 33 5 0 16 1 32 195 0 16 1 52 7 0 1 33 5 0 16 1 32 181 0 16 1 52 8 0 1 6 33 11 0 5 16 1 52 9 0 1 1 10 0 164 33 13 0 1 11 0 1 12 0 52 13 0 2 32 144 0 16 1 52 14 0 1 167 33 5 0 16 1 32 129 0 16 1 169 17 2 20 15 0 16 2 52 9 0 1 52 16 0 2 17 3 16 2 1 17 0 164 6 33 17 0 5 20 18 0 16 1 1 19 0 52 20 0 2 52 16 0 2 17 4 16 4 16 4 1 21 0 16 1 1 22 0 52 20 0 2 1 23 0 20 23 0 1 24 0 16 1 1 19 0 52 20 0 2 1 25 0 16 1 65 4 0 48 1 48 1 33 30 0 16 3 16 3 1 23 0 20 23 0 1 26 0 16 2 1 25 0 16 1 65 3 0 48 1 49 1 32 1 0 2 50)} "hs-receiver-selector" {:upvalue-count 0 :arity 2 :constants ("list?" "str" "ref" 1 "nth" "." "hs-receiver-selector" 2 "poss" "'s " "?") :bytecode (16 0 52 0 0 1 6 33 12 0 5 16 0 169 52 1 0 1 1 2 0 164 33 12 0 16 0 1 3 0 52 4 0 2 32 124 0 16 0 52 0 0 1 6 33 12 0 5 16 0 169 52 1 0 1 1 5 0 164 33 35 0 20 6 0 16 0 1 3 0 52 4 0 2 16 1 48 2 1 5 0 16 0 1 7 0 52 4 0 2 52 1 0 3 32 64 0 16 0 52 0 0 1 6 33 12 0 5 16 0 169 52 1 0 1 1 8 0 164 33 36 0 20 6 0 16 0 1 3 0 52 4 0 2 1 8 0 48 2 1 9 0 16 0 1 7 0 52 4 0 2 52 1 0 3 32 3 0 1 10 0 50)} "hs-to-sx-from-source" {:upvalue-count 0 :arity 1 :constants ("hs-to-sx" "hs-compile") :bytecode (20 0 0 20 1 0 16 0 48 1 49 1 50)}) :bytecode (65 0 0 128 0 0 5 65 0 0 128 1 0 5 51 3 0 128 2 0 5 51 5 0 128 4 0 5 1 7 0 52 8 0 1 17 0 1 9 0 52 8 0 1 17 1 51 10 0 17 2 5 51 11 0 1 0 17 3 5 51 12 0 17 4 5 51 13 0 17 5 5 51 14 0 17 6 5 51 15 0 17 7 5 51 16 0 1 7 17 8 5 51 17 0 17 9 5 51 18 0 17 10 5 51 19 0 17 11 5 51 20 0 1 0 17 12 5 51 21 0 1 0 17 13 5 51 22 0 17 14 5 51 23 0 128 6 0 5 51 25 0 128 24 0 5 51 27 0 128 26 0 50)))
Reference in New Issue View Git Blame Copy Permalink