aboutsummaryrefslogtreecommitdiff
path: root/lux-bootstrapper
diff options
context:
space:
mode:
Diffstat (limited to 'lux-bootstrapper')
-rw-r--r--lux-bootstrapper/src/lux/analyser/proc/common.clj2
-rw-r--r--lux-bootstrapper/src/lux/compiler/jvm/proc/common.clj12
2 files changed, 0 insertions, 14 deletions
diff --git a/lux-bootstrapper/src/lux/analyser/proc/common.clj b/lux-bootstrapper/src/lux/analyser/proc/common.clj
index 6a1521909..13d9d0cbd 100644
--- a/lux-bootstrapper/src/lux/analyser/proc/common.clj
+++ b/lux-bootstrapper/src/lux/analyser/proc/common.clj
@@ -210,7 +210,6 @@
analyse-io-log &type/Text &type/Any ["io" "log"]
analyse-io-error &type/Text &type/Nothing ["io" "error"]
- analyse-io-exit &type/Int &type/Nothing ["io" "exit"]
)
(defn- analyse-io-current-time [analyse exo-type ?values]
@@ -250,7 +249,6 @@
"lux io log" (analyse-io-log analyse exo-type ?values)
"lux io error" (analyse-io-error analyse exo-type ?values)
- "lux io exit" (analyse-io-exit analyse exo-type ?values)
"lux io current-time" (analyse-io-current-time analyse exo-type ?values)
"lux text =" (analyse-text-eq analyse exo-type ?values)
diff --git a/lux-bootstrapper/src/lux/compiler/jvm/proc/common.clj b/lux-bootstrapper/src/lux/compiler/jvm/proc/common.clj
index d4c825282..569aa44ad 100644
--- a/lux-bootstrapper/src/lux/compiler/jvm/proc/common.clj
+++ b/lux-bootstrapper/src/lux/compiler/jvm/proc/common.clj
@@ -337,17 +337,6 @@
(.visitInsn Opcodes/ATHROW))]]
(return nil)))
-(defn ^:private compile-io-exit [compile ?values special-args]
- (|do [:let [(&/$Cons ?code (&/$Nil)) ?values]
- ^MethodVisitor *writer* &/get-writer
- _ (compile ?code)
- :let [_ (doto *writer*
- &&/unwrap-long
- (.visitInsn Opcodes/L2I)
- (.visitMethodInsn Opcodes/INVOKESTATIC "java/lang/System" "exit" "(I)V")
- (.visitInsn Opcodes/ACONST_NULL))]]
- (return nil)))
-
(defn ^:private compile-io-current-time [compile ?values special-args]
(|do [:let [(&/$Nil) ?values]
^MethodVisitor *writer* &/get-writer
@@ -408,7 +397,6 @@
(case proc
"log" (compile-io-log compile ?values special-args)
"error" (compile-io-error compile ?values special-args)
- "exit" (compile-io-exit compile ?values special-args)
"current-time" (compile-io-current-time compile ?values special-args)
)