build
This commit is contained in:
parent
d9e0fd23ec
commit
7f64164078
Binary file not shown.
|
@ -6489,7 +6489,7 @@ var __emscripten_stack_alloc = (a0) => (__emscripten_stack_alloc = wasmExports['
|
||||||
var _emscripten_stack_get_current = () => (_emscripten_stack_get_current = wasmExports['emscripten_stack_get_current'])();
|
var _emscripten_stack_get_current = () => (_emscripten_stack_get_current = wasmExports['emscripten_stack_get_current'])();
|
||||||
var ___cxa_is_pointer_type = createExportWrapper('__cxa_is_pointer_type', 1);
|
var ___cxa_is_pointer_type = createExportWrapper('__cxa_is_pointer_type', 1);
|
||||||
var dynCall_jiji = Module['dynCall_jiji'] = createExportWrapper('dynCall_jiji', 5);
|
var dynCall_jiji = Module['dynCall_jiji'] = createExportWrapper('dynCall_jiji', 5);
|
||||||
var ___emscripten_embedded_file_data = Module['___emscripten_embedded_file_data'] = 1816028;
|
var ___emscripten_embedded_file_data = Module['___emscripten_embedded_file_data'] = 1816104;
|
||||||
function invoke_i(index) {
|
function invoke_i(index) {
|
||||||
var sp = stackSave();
|
var sp = stackSave();
|
||||||
try {
|
try {
|
||||||
|
|
BIN
build/out.wasm
BIN
build/out.wasm
Binary file not shown.
|
@ -248,8 +248,6 @@
|
||||||
([e] (break [:err e])))
|
([e] (break [:err e])))
|
||||||
[:ok out])
|
[:ok out])
|
||||||
|
|
||||||
(math/seedrandom (os/cryptorand 8))
|
|
||||||
|
|
||||||
(def ctx {
|
(def ctx {
|
||||||
"add" +
|
"add" +
|
||||||
"and" ludus/and
|
"and" ludus/and
|
||||||
|
|
|
@ -11,8 +11,6 @@
|
||||||
(import /src/prelude :as prelude)
|
(import /src/prelude :as prelude)
|
||||||
(import /src/json :as j)
|
(import /src/json :as j)
|
||||||
|
|
||||||
(math/seedrandom (os/cryptorand 8))
|
|
||||||
|
|
||||||
(defn ludus [source]
|
(defn ludus [source]
|
||||||
(when (= :error prelude/pkg) (error "could not load prelude"))
|
(when (= :error prelude/pkg) (error "could not load prelude"))
|
||||||
(def ctx @{:^parent prelude/ctx})
|
(def ctx @{:^parent prelude/ctx})
|
||||||
|
@ -39,8 +37,9 @@
|
||||||
(each err (validated :errors)
|
(each err (validated :errors)
|
||||||
(e/validation-error err))
|
(e/validation-error err))
|
||||||
(break (-> out j/encode string)))
|
(break (-> out j/encode string)))
|
||||||
(try
|
(try (do
|
||||||
(set result (i/interpret (parsed :ast) ctx))
|
(math/seedrandom (os/cryptorand 8))
|
||||||
|
(set result (i/interpret (parsed :ast) ctx)))
|
||||||
([err]
|
([err]
|
||||||
(e/runtime-error err)
|
(e/runtime-error err)
|
||||||
(break (-> out j/encode string))))
|
(break (-> out j/encode string))))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user