giles
951b3a6586
Replace Node.js compile-modules.js with direct Sx_compiler.compile_module calls in mcp_tree.ml. No subprocess, no JIT warm-up, no Node.js. 23 files compile in 1.9 seconds. Also includes rebuilt WASM kernel (iterative cek_run) and all 23 bytecode modules recompiled with native compiler. Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
4 lines
7.1 KiB
Plaintext
4 lines
7.1 KiB
Plaintext
(sxbc 1 "b3cae03948f7a615"
|
|
(code
|
|
:constants ("assert" {:upvalue-count 0 :arity 2 :constants ("not" "error" "Assertion failed") :bytecode (16 0 52 0 0 1 33 17 0 16 1 6 34 4 0 5 1 2 0 52 1 0 1 32 1 0 2 50)} "assert=" {:upvalue-count 0 :arity 3 :constants ("not" "=" "error" "str" "Expected " ", got ") :bytecode (16 0 16 1 52 1 0 2 52 0 0 1 33 28 0 16 2 6 34 15 0 5 1 4 0 16 1 1 5 0 16 0 52 3 0 4 52 2 0 1 32 1 0 2 50)} "default-platform" "current-user" {:upvalue-count 0 :arity 0 :constants () :bytecode (2 50)} "csrf-token" {:upvalue-count 0 :arity 0 :constants ("test-csrf-token") :bytecode (1 0 0 50)} "app-url" {:upvalue-count 0 :arity 2 :constants ("/mock-app-url") :bytecode (1 0 0 50)} "frag" {:upvalue-count 0 :arity 3 :constants ("") :bytecode (1 0 0 50)} "sleep" {:upvalue-count 0 :arity 1 :constants () :bytecode (2 50)} "local-storage-set" {:upvalue-count 0 :arity 2 :constants () :bytecode (2 50)} "set-cookie" {:upvalue-count 0 :arity 3 :constants () :bytecode (2 50)} "url-for" {:upvalue-count 0 :arity 2 :constants ("/mock-url") :bytecode (1 0 0 50)} "create-element" "request-path" {:upvalue-count 0 :arity 0 :constants ("/") :bytecode (1 0 0 50)} "config" "set-attr" "set-text" "remove-child" "fetch" {:upvalue-count 0 :arity 2 :constants ("status" 200 "body" "" "ok") :bytecode (1 0 0 1 1 0 1 2 0 1 3 0 1 4 0 3 65 3 0 50)} "query" {:upvalue-count 0 :arity 3 :constants ("list") :bytecode (52 0 0 0 50)} "add-class" "get-element" "now" {:upvalue-count 0 :arity 0 :constants (0) :bytecode (1 0 0 50)} "abort" "action" {:upvalue-count 0 :arity 3 :constants ("ok") :bytecode (1 0 0 3 65 1 0 50)} "remove-class" "append-child" "request-arg" "emit-dom" "local-storage-get" "get-cookie" "make-harness" {:upvalue-count 0 :arity 1 :constants ("nil?" "default-platform" "merge" "log" "list" "platform" "state" "cookies" "storage" "dom") :bytecode (16 0 52 0 0 1 33 6 0 20 1 0 32 9 0 20 1 0 16 0 52 2 0 2 17 1 1 3 0 52 4 0 0 1 5 0 16 1 1 6 0 1 7 0 65 0 0 1 8 0 65 0 0 1 9 0 2 65 3 0 65 3 0 50)} "harness-reset!" {:upvalue-count 0 :arity 1 :constants ("dict-set!" "log" "list" "state" "cookies" "storage" "dom") :bytecode (16 0 1 1 0 52 2 0 0 52 0 0 3 5 16 0 1 3 0 1 4 0 65 0 0 1 5 0 65 0 0 1 6 0 2 65 3 0 52 0 0 3 5 16 0 50)} "harness-log" {:upvalue-count 0 :arity 2 :constants ("get" "log" "nil?" "filter" {:upvalue-count 1 :arity 1 :constants ("=" "get" "op") :bytecode (16 0 1 2 0 52 1 0 2 18 0 52 0 0 2 50)}) :bytecode (16 0 1 1 0 52 0 0 2 17 2 16 1 52 2 0 1 33 5 0 16 2 32 11 0 51 4 0 1 1 16 2 52 3 0 2 50)} "harness-get" {:upvalue-count 0 :arity 2 :constants ("get" "state") :bytecode (16 0 1 1 0 52 0 0 2 16 1 52 0 0 2 50)} "harness-set!" {:upvalue-count 0 :arity 3 :constants ("dict-set!" "get" "state") :bytecode (16 0 1 2 0 52 1 0 2 16 1 16 2 52 0 0 3 5 2 50)} "make-interceptor" {:upvalue-count 0 :arity 3 :constants ({:upvalue-count 3 :arity 1 :constants ("empty?" "=" 1 "len" "first" 2 "nth" 3 "apply" "get" "log" "append!" "args" "result" "op") :bytecode (16 0 52 0 0 1 33 7 0 18 0 48 0 32 122 0 1 2 0 16 0 52 3 0 1 52 1 0 2 33 13 0 18 0 16 0 52 4 0 1 48 1 32 93 0 1 5 0 16 0 52 3 0 1 52 1 0 2 33 22 0 18 0 16 0 52 4 0 1 16 0 1 2 0 52 6 0 2 48 2 32 55 0 1 7 0 16 0 52 3 0 1 52 1 0 2 33 31 0 18 0 16 0 52 4 0 1 16 0 1 2 0 52 6 0 2 16 0 1 5 0 52 6 0 2 48 3 32 8 0 18 0 16 0 52 8 0 2 17 1 18 1 1 10 0 52 9 0 2 17 2 20 11 0 16 2 1 12 0 16 0 1 13 0 16 1 1 14 0 18 2 65 3 0 48 2 5 16 1 50)}) :bytecode (51 0 0 1 2 1 0 1 1 50)} "install-interceptors" {:upvalue-count 0 :arity 2 :constants ("for-each" {:upvalue-count 2 :arity 1 :constants ("get" "platform" "make-interceptor" "env-bind!") :bytecode (18 0 1 1 0 52 0 0 2 16 0 52 0 0 2 17 1 20 2 0 18 0 16 0 16 1 48 3 17 2 20 3 0 18 1 16 0 16 2 49 3 50)} "keys" "get" "platform") :bytecode (51 1 0 1 0 1 1 16 0 1 4 0 52 3 0 2 52 2 0 1 52 0 0 2 5 16 1 50)} "io-calls" {:upvalue-count 0 :arity 2 :constants ("filter" {:upvalue-count 1 :arity 1 :constants ("=" "get" "op") :bytecode (16 0 1 2 0 52 1 0 2 18 0 52 0 0 2 50)} "get" "log") :bytecode (51 1 0 1 1 16 0 1 3 0 52 2 0 2 52 0 0 2 50)} "io-call-count" {:upvalue-count 0 :arity 2 :constants ("len" "io-calls") :bytecode (20 1 0 16 0 16 1 48 2 52 0 0 1 50)} "io-call-nth" {:upvalue-count 0 :arity 3 :constants ("io-calls" "<" "len" "nth") :bytecode (20 0 0 16 0 16 1 48 2 17 3 16 2 16 3 52 2 0 1 52 1 0 2 33 11 0 16 3 16 2 52 3 0 2 32 1 0 2 50)} "io-call-args" {:upvalue-count 0 :arity 3 :constants ("io-call-nth" "nil?" "get" "args") :bytecode (20 0 0 16 0 16 1 16 2 48 3 17 3 16 3 52 1 0 1 33 4 0 2 32 9 0 16 3 1 3 0 52 2 0 2 50)} "io-call-result" {:upvalue-count 0 :arity 3 :constants ("io-call-nth" "nil?" "get" "result") :bytecode (20 0 0 16 0 16 1 16 2 48 3 17 3 16 3 52 1 0 1 33 4 0 2 32 9 0 16 3 1 3 0 52 2 0 2 50)} "assert-io-called" {:upvalue-count 0 :arity 2 :constants ("assert" ">" "io-call-count" 0 "str" "Expected IO operation " " to be called but it was not") :bytecode (20 0 0 20 2 0 16 0 16 1 48 2 1 3 0 52 1 0 2 1 5 0 16 1 1 6 0 52 4 0 3 49 2 50)} "assert-no-io" {:upvalue-count 0 :arity 2 :constants ("assert" "=" "io-call-count" 0 "str" "Expected IO operation " " not to be called but it was called " " time(s)") :bytecode (20 0 0 20 2 0 16 0 16 1 48 2 1 3 0 52 1 0 2 1 5 0 16 1 1 6 0 20 2 0 16 0 16 1 48 2 1 7 0 52 4 0 5 49 2 50)} "assert-io-count" {:upvalue-count 0 :arity 3 :constants ("io-call-count" "assert" "=" "str" "Expected " " to be called " " time(s) but was called " " time(s)") :bytecode (20 0 0 16 0 16 1 48 2 17 3 20 1 0 16 3 16 2 52 2 0 2 1 4 0 16 1 1 5 0 16 2 1 6 0 16 3 1 7 0 52 3 0 7 49 2 50)} "assert-io-args" {:upvalue-count 0 :arity 4 :constants ("io-call-args" "assert" "equal?" "str" "Expected call " " to " " with args " " but got ") :bytecode (20 0 0 16 0 16 1 16 2 48 3 17 4 20 1 0 20 2 0 16 4 16 3 48 2 1 4 0 16 2 1 5 0 16 1 1 6 0 16 3 52 3 0 1 1 7 0 16 4 52 3 0 1 52 3 0 8 49 2 50)} "assert-io-result" {:upvalue-count 0 :arity 4 :constants ("io-call-result" "assert" "equal?" "str" "Expected call " " to " " to return " " but got ") :bytecode (20 0 0 16 0 16 1 16 2 48 3 17 4 20 1 0 20 2 0 16 4 16 3 48 2 1 4 0 16 2 1 5 0 16 1 1 6 0 16 3 52 3 0 1 1 7 0 16 4 52 3 0 1 52 3 0 8 49 2 50)} "assert-state" {:upvalue-count 0 :arity 3 :constants ("harness-get" "assert" "equal?" "str" "Expected state " " to be " " but got ") :bytecode (20 0 0 16 0 16 1 48 2 17 3 20 1 0 20 2 0 16 3 16 2 48 2 1 4 0 16 1 1 5 0 16 2 52 3 0 1 1 6 0 16 3 52 3 0 1 52 3 0 6 49 2 50)}) :bytecode (51 1 0 128 0 0 5 51 3 0 128 2 0 5 1 5 0 51 6 0 1 7 0 51 8 0 1 9 0 51 10 0 1 11 0 51 12 0 1 13 0 51 14 0 1 15 0 51 16 0 1 17 0 51 18 0 1 19 0 51 20 0 1 21 0 51 14 0 1 22 0 51 23 0 1 24 0 51 14 0 1 25 0 51 18 0 1 26 0 51 16 0 1 27 0 51 16 0 1 28 0 51 29 0 1 30 0 51 31 0 1 32 0 51 16 0 1 33 0 51 14 0 1 34 0 51 35 0 1 36 0 51 14 0 1 37 0 51 38 0 1 39 0 51 16 0 1 40 0 51 16 0 1 41 0 51 14 0 1 42 0 51 16 0 1 43 0 51 14 0 1 44 0 51 14 0 65 27 0 128 4 0 5 51 46 0 128 45 0 5 51 48 0 128 47 0 5 51 50 0 128 49 0 5 51 52 0 128 51 0 5 51 54 0 128 53 0 5 51 56 0 128 55 0 5 51 58 0 128 57 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 5 51 68 0 128 67 0 5 51 70 0 128 69 0 5 51 72 0 128 71 0 5 51 74 0 128 73 0 5 51 76 0 128 75 0 5 51 78 0 128 77 0 5 51 80 0 128 79 0 50)))
|