diff --git a/build/ludus.jimage b/build/ludus.jimage index 9c3568d..9e9f35a 100644 Binary files a/build/ludus.jimage and b/build/ludus.jimage differ diff --git a/build/out.mjs b/build/out.mjs index b4d614e..d8162e0 100644 --- a/build/out.mjs +++ b/build/out.mjs @@ -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 ___cxa_is_pointer_type = createExportWrapper('__cxa_is_pointer_type', 1); 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) { var sp = stackSave(); try { diff --git a/build/out.wasm b/build/out.wasm index 95ba7c8..db3a4c5 100755 Binary files a/build/out.wasm and b/build/out.wasm differ diff --git a/src/base.janet b/src/base.janet index 1d72f04..7c5ffe4 100644 --- a/src/base.janet +++ b/src/base.janet @@ -248,8 +248,6 @@ ([e] (break [:err e]))) [:ok out]) -(math/seedrandom (os/cryptorand 8)) - (def ctx { "add" + "and" ludus/and diff --git a/src/ludus.janet b/src/ludus.janet index 763f276..65bb702 100644 --- a/src/ludus.janet +++ b/src/ludus.janet @@ -11,8 +11,6 @@ (import /src/prelude :as prelude) (import /src/json :as j) -(math/seedrandom (os/cryptorand 8)) - (defn ludus [source] (when (= :error prelude/pkg) (error "could not load prelude")) (def ctx @{:^parent prelude/ctx}) @@ -39,8 +37,9 @@ (each err (validated :errors) (e/validation-error err)) (break (-> out j/encode string))) - (try - (set result (i/interpret (parsed :ast) ctx)) + (try (do + (math/seedrandom (os/cryptorand 8)) + (set result (i/interpret (parsed :ast) ctx))) ([err] (e/runtime-error err) (break (-> out j/encode string))))