rose-ash/shared/static/wasm/sx/vm.sxbc

(sxbc 1 "b40d29c61abae0dd"
  (code
    :constants ("make-upvalue-cell" {:upvalue-count nil :arity nil :constants ("uv-value") :bytecode (nil nil nil nil nil nil nil nil nil)} "uv-get" {:upvalue-count nil :arity nil :constants ("get" "uv-value") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "uv-set!" {:upvalue-count nil :arity nil :constants ("dict-set!" "uv-value") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil)} "make-vm-code" {:upvalue-count nil :arity nil :constants ("vc-bytecode" "vc-locals" "vc-arity" "vc-constants") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "make-vm-closure" {:upvalue-count nil :arity nil :constants ("vm-globals" "vm-upvalues" "vm-name" "vm-code" "vm-closure-env") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "make-vm-frame" {:upvalue-count nil :arity nil :constants ("ip" nil "closure" "base" "local-cells") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "make-vm" {:upvalue-count nil :arity nil :constants ("sp" nil "frames" "list" "stack" "make-vm-stack" nil "globals") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-push" {:upvalue-count nil :arity nil :constants ("vm-sp" "vm-stack" ">=" "vm-stack-length" "vm-stack-grow" "vm-stack-copy!" "vm-set-stack!" "vm-stack-set!" "vm-set-sp!" "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-pop" {:upvalue-count nil :arity nil :constants ("-" "vm-sp" nil "vm-set-sp!" "vm-stack-get" "vm-stack") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-peek" {:upvalue-count nil :arity nil :constants ("vm-stack-get" "vm-stack" "-" "vm-sp" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "frame-read-u8" {:upvalue-count nil :arity nil :constants ("frame-ip" "frame-closure" "closure-code" "code-bytecode" "nth" "frame-set-ip!" "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "frame-read-u16" {:upvalue-count nil :arity nil :constants ("frame-read-u8" "+" "*" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "frame-read-i16" {:upvalue-count nil :arity nil :constants ("frame-read-u16" ">=" nil "-" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-push-frame" {:upvalue-count nil :arity nil :constants ("make-vm-frame" "vm-sp" "for-each" {:upvalue-count nil :arity nil :constants ("vm-push") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "pad-n-nils" "-" "code-locals" "closure-code" "len" "vm-set-frames!" "cons" "vm-frames") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "code-from-value" {:upvalue-count nil :arity nil :constants ("Convert a compiler output dict to a vm-code dict. Idempotent — if v\n   already has vm-code keys (vc-bytecode), returns as-is." "not" "dict?" "make-vm-code" nil nil "list" "has-key?" "vc-bytecode" "get" "bytecode" "nil?" "constants" "arity" "+") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-closure?" {:upvalue-count nil :arity nil :constants ("dict?" "has-key?" "vm-code") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "*active-vm*" "*jit-compile-fn*" "lambda?" {:upvalue-count nil :arity nil :constants ("=" "type-of" "lambda") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "lambda-compiled" {:upvalue-count nil :arity nil :constants () :bytecode (nil nil)} "lambda-set-compiled!" {:upvalue-count nil :arity nil :constants () :bytecode (nil nil)} "lambda-name" "cek-call-or-suspend" {:upvalue-count nil :arity nil :constants ("cek-call") :bytecode (nil nil nil nil nil nil nil nil nil)} "try-jit-call" {:upvalue-count nil :arity nil :constants ("lambda-compiled" "vm-closure?" "vm-push" "vm-call-closure" "vm-globals-ref" "=" "jit-failed" "cek-call-or-suspend" "*jit-compile-fn*" "lambda-name" "lambda-set-compiled!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-call" {:upvalue-count nil :arity nil :constants ("vm-closure?" "vm-push-frame" "lambda?" "try-jit-call" "=" "type-of" "component" "island" "vm-push" "cek-call-or-suspend" "callable?" "apply" "error" "str" "VM: not callable: ") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "frame-local-get" {:upvalue-count nil :arity nil :constants ("Read a local variable — check shared cells first, then stack." "get" "local-cells" "str" "has-key?" "uv-get" "vm-stack-get" "vm-stack" "+" "frame-base") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "frame-local-set" {:upvalue-count nil :arity nil :constants ("Write a local variable — to shared cell or stack." "get" "local-cells" "str" "has-key?" "uv-set!" "vm-stack-set!" "vm-stack" "+" "frame-base") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "frame-upvalue-get" {:upvalue-count nil :arity nil :constants ("uv-get" "nth" "frame-closure" "closure-upvalues") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "frame-upvalue-set" {:upvalue-count nil :arity nil :constants ("uv-set!" "nth" "frame-closure" "closure-upvalues") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "frame-ip" {:upvalue-count nil :arity nil :constants ("get" "ip") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "frame-set-ip!" {:upvalue-count nil :arity nil :constants ("dict-set!" "ip") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil)} "frame-base" {:upvalue-count nil :arity nil :constants ("get" "base") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "frame-closure" {:upvalue-count nil :arity nil :constants ("get" "closure") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "closure-code" {:upvalue-count nil :arity nil :constants ("get" "vm-code") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "closure-upvalues" {:upvalue-count nil :arity nil :constants ("get" "vm-upvalues") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "closure-env" {:upvalue-count nil :arity nil :constants ("get" "closure-env") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "code-bytecode" {:upvalue-count nil :arity nil :constants ("get" "vc-bytecode") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "code-constants" {:upvalue-count nil :arity nil :constants ("get" "vc-constants") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "code-locals" {:upvalue-count nil :arity nil :constants ("get" "vc-locals") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "vm-sp" {:upvalue-count nil :arity nil :constants ("get" "sp") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "vm-set-sp!" {:upvalue-count nil :arity nil :constants ("dict-set!" "sp") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-stack" {:upvalue-count nil :arity nil :constants ("get" "stack") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "vm-set-stack!" {:upvalue-count nil :arity nil :constants ("dict-set!" "stack") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-frames" {:upvalue-count nil :arity nil :constants ("get" "frames") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "vm-set-frames!" {:upvalue-count nil :arity nil :constants ("dict-set!" "frames") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-globals-ref" {:upvalue-count nil :arity nil :constants ("get" "globals") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "collect-n-from-stack" {:upvalue-count nil :arity nil :constants ("list" nil {:upvalue-count nil :arity nil :constants ("<" "cons" "vm-pop" "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "pad-n-nils" {:upvalue-count nil :arity nil :constants (nil {:upvalue-count nil :arity nil :constants ("<" "vm-push" "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "collect-n-pairs" {:upvalue-count nil :arity nil :constants (nil {:upvalue-count nil :arity nil :constants ("<" "vm-pop" "dict-set!" "+" nil) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-global-get" {:upvalue-count nil :arity nil :constants ("Look up a global: closure env → globals table → primitives → HO forms" "get" "frame-closure" "vm-closure-env" "nil?" "vm-globals-ref" "has-key?" "cek-try" {:upvalue-count nil :arity nil :constants ("get-primitive") :bytecode (nil nil nil nil nil nil nil)} {:upvalue-count nil :arity nil :constants ("vm-resolve-ho-form") :bytecode (nil nil nil nil nil nil nil nil nil nil)} "env-walk") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-resolve-ho-form" {:upvalue-count nil :arity nil :constants ("for-each" "=" {:upvalue-count nil :arity nil :constants ("for-each" {:upvalue-count nil :arity nil :constants ("vm-call-external" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "map" {:upvalue-count nil :arity nil :constants ("map" {:upvalue-count nil :arity nil :constants ("vm-call-external" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "map-indexed" {:upvalue-count nil :arity nil :constants ("map-indexed" {:upvalue-count nil :arity nil :constants ("vm-call-external" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "filter" {:upvalue-count nil :arity nil :constants ("filter" {:upvalue-count nil :arity nil :constants ("vm-call-external" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "reduce" {:upvalue-count nil :arity nil :constants ("reduce" {:upvalue-count nil :arity nil :constants ("vm-call-external" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "some" {:upvalue-count nil :arity nil :constants ("some" {:upvalue-count nil :arity nil :constants ("vm-call-external" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "every?" {:upvalue-count nil :arity nil :constants ("every?" {:upvalue-count nil :arity nil :constants ("vm-call-external" "list") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "error" "str" "VM undefined: ") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-call-external" {:upvalue-count nil :arity nil :constants ("vm-closure?" "vm-call-closure" "vm-globals-ref" "cek-call") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-global-set" {:upvalue-count nil :arity nil :constants ("Set a global: write to closure env if found, else globals table." "get" "frame-closure" "vm-closure-env" "not" "nil?" "env-walk-set!" "dict-set!" "vm-globals-ref") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "env-walk" {:upvalue-count nil :arity nil :constants ("nil?" "env-has?" "env-get" "env-parent" "env-walk") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "env-walk-set!" {:upvalue-count nil :arity nil :constants ("nil?" "env-has?" "env-set!" "env-parent" "env-walk-set!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-create-closure" {:upvalue-count nil :arity nil :constants ("Create a closure from a code constant. Reads upvalue descriptors\n     from the bytecode stream and captures values from the enclosing frame." "code-from-value" "dict?" "get" "upvalue-count" nil "list" {:upvalue-count nil :arity nil :constants ("<" "frame-read-u8" "=" nil "get" "local-cells" "str" "has-key?" "make-upvalue-cell" "vm-stack-get" "vm-stack" "+" "frame-base" "dict-set!" "nth" "frame-closure" "closure-upvalues" "append!") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "make-vm-closure" "vm-globals-ref") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-run" {:upvalue-count nil :arity nil :constants ("Execute bytecode until all frames are done or IO suspension." {:upvalue-count nil :arity nil :constants ("not" "empty?" "vm-frames" "first" "rest" "frame-closure" "closure-code" "code-bytecode" "code-constants" ">=" "frame-ip" "len" "vm-set-frames!" "list" "vm-step" "nil?" "get" "vm-globals-ref" "__io_request") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-step" {:upvalue-count nil :arity nil :constants ("frame-read-u8" "=" nil "frame-read-u16" "vm-push" "nth" nil nil nil nil "vm-pop" nil "vm-peek" nil "frame-local-get" nil "frame-local-set" nil "frame-upvalue-get" nil "frame-upvalue-set" nil "vm-global-get" nil "vm-global-set" nil "frame-read-i16" "frame-set-ip!" "+" "frame-ip" nil "not" nil nil "collect-n-from-stack" "vm-call" nil "vm-set-frames!" "vm-set-sp!" "frame-base" nil nil "vm-create-closure" nil "call-primitive" nil nil "collect-n-pairs" nil "apply" "str" nil "dict-set!" "vm-globals-ref" nil nil "-" nil "*" nil "/" nil nil "<" nil ">" nil nil "len" nil "first" nil "rest" nil nil "cons" nil nil nil "inc" nil "dec" nil "__io_request" "error" "VM: unknown opcode ") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-call-closure" {:upvalue-count nil :arity nil :constants ("*active-vm*" "make-vm" "vm-push-frame" "vm-run" "vm-pop") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-execute-module" {:upvalue-count nil :arity nil :constants ("code-from-value" "make-vm" "make-vm-closure" "list" "module" "make-vm-frame" nil "pad-n-nils" "code-locals" "vm-set-frames!" "vm-run" "get" "vm-globals-ref" "__io_request" "nil?" "vm-pop" "vm" "suspended" "op" "import" "request") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} "vm-resume-module" {:upvalue-count nil :arity nil :constants ("Resume a suspended VM after IO (import) has been resolved.\n     Clears __io_request in globals, pushes nil (import result), re-runs." "get" "vm" "dict-set!" "vm-globals-ref" "__io_request" "vm-push" "vm-run" "nil?" "vm-pop" "suspended" "op" "import" "request") :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)} {:library (sx vm) :op "import"}) :bytecode (nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)))