aboutsummaryrefslogtreecommitdiff
path: root/lux-bootstrapper/src
diff options
context:
space:
mode:
authorEduardo Julian2020-12-09 20:42:37 -0400
committerEduardo Julian2020-12-09 20:42:37 -0400
commit893c76ad530ca0e81cd84602543c3114407f4592 (patch)
tree6d14f38c7b9f5b37809615d0dca7545b36405525 /lux-bootstrapper/src
parent8df63aae42c40ac0413ccfacc3b2e8eb72e00a15 (diff)
Added support for "Commons Clause" to Licentia.
Diffstat (limited to 'lux-bootstrapper/src')
-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)
)