From 893c76ad530ca0e81cd84602543c3114407f4592 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 9 Dec 2020 20:42:37 -0400
Subject: Added support for "Commons Clause" to Licentia.

---
 lux-bootstrapper/src/lux/analyser/proc/common.clj     |  2 --
 lux-bootstrapper/src/lux/compiler/jvm/proc/common.clj | 12 ------------
 2 files changed, 14 deletions(-)

(limited to 'lux-bootstrapper')

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)
       )
 
-- 
cgit v1.2.3