diff options
| author | Eduardo Julian | 2020-12-09 20:42:37 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-12-09 20:42:37 -0400 |
| commit | 893c76ad530ca0e81cd84602543c3114407f4592 (patch) | |
| tree | 6d14f38c7b9f5b37809615d0dca7545b36405525 /lux-bootstrapper/src | |
| parent | 8df63aae42c40ac0413ccfacc3b2e8eb72e00a15 (diff) | |
Added support for "Commons Clause" to Licentia.
Diffstat (limited to 'lux-bootstrapper/src')
| -rw-r--r-- | lux-bootstrapper/src/lux/analyser/proc/common.clj | 2 | ||||
| -rw-r--r-- | lux-bootstrapper/src/lux/compiler/jvm/proc/common.clj | 12 |
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) ) |