diff options
Diffstat (limited to 'lux-js')
| -rw-r--r-- | lux-js/source/program.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lux-js/source/program.lux b/lux-js/source/program.lux index 5e7cdd72f..450b4f9ae 100644 --- a/lux-js/source/program.lux +++ b/lux-js/source/program.lux @@ -78,7 +78,7 @@ "???")) (for @.jvm - (as_is (import: java/lang/String + (these (import: java/lang/String "[1]::[0]") (import: (java/lang/Class a) @@ -458,10 +458,10 @@ ) @.js - (as_is)) + (these)) (for @.jvm - (as_is (def: (call_macro inputs lux macro) + (these (def: (call_macro inputs lux macro) (-> (List Code) Lux org/openjdk/nashorn/api/scripting/JSObject (Try (Try [Lux (List Code)]))) (let [to_js (is (-> Any java/lang/Object) (|>> (as (Array java/lang/Object)) js_structure (as java/lang/Object)))] @@ -502,7 +502,7 @@ ) (for @.jvm - (as_is (def: (evaluate! interpreter alias input) + (these (def: (evaluate! interpreter alias input) (-> javax/script/ScriptEngine unit.ID _.Expression (Try Any)) (do try.monad [?output (javax/script/ScriptEngine::eval (ffi.as_string (_.code input)) interpreter)] @@ -553,7 +553,7 @@ ) @.js - (as_is (def: (eval code) + (these (def: (eval code) (-> Text (Try (Maybe Any))) ... Note: I have to call "eval" this way ... in order to avoid a quirk of calling eval in Node |