diff options
Diffstat (limited to 'stdlib/source/lux/tool/compiler/language/lux/phase/extension/generation/js/common.lux')
-rw-r--r-- | stdlib/source/lux/tool/compiler/language/lux/phase/extension/generation/js/common.lux | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/stdlib/source/lux/tool/compiler/language/lux/phase/extension/generation/js/common.lux b/stdlib/source/lux/tool/compiler/language/lux/phase/extension/generation/js/common.lux index 03b2ca14b..4c1ab473f 100644 --- a/stdlib/source/lux/tool/compiler/language/lux/phase/extension/generation/js/common.lux +++ b/stdlib/source/lux/tool/compiler/language/lux/phase/extension/generation/js/common.lux @@ -91,24 +91,6 @@ (//runtime.io//log messageG) //runtime.unit)) -(def: (io//exit codeG) - (Unary Expression) - (let [exit_node_js! (let [@@process (_.var "process")] - (|> (_.not (_.= _.undefined (_.type_of @@process))) - (_.and (_.the "exit" @@process)) - (_.and (_.do "exit" (list (//runtime.i64//to_number codeG)) @@process)))) - close_browser_window! (let [@@window (_.var "window")] - (|> (_.not (_.= _.undefined (_.type_of @@window))) - (_.and (_.the "close" @@window)) - (_.and (_.do "close" (list) @@window)))) - reload_page! (let [@@location (_.var "location")] - (|> (_.not (_.= _.undefined (_.type_of @@location))) - (_.and (_.the "reload" @@location)) - (_.and (_.do "reload" (list) @@location))))] - (|> exit_node_js! - (_.or close_browser_window!) - (_.or reload_page!)))) - (def: (io//current_time _) (Nullary Expression) (|> (_.new (_.var "Date") (list)) @@ -204,7 +186,6 @@ (|> /.empty (/.install "log" (unary io//log)) (/.install "error" (unary //runtime.io//error)) - (/.install "exit" (unary io//exit)) (/.install "current-time" (nullary io//current_time))))) (def: #export bundle |