diff options
Diffstat (limited to 'lux-bootstrapper/src/lux/compiler/jvm/proc/common.clj')
| -rw-r--r-- | lux-bootstrapper/src/lux/compiler/jvm/proc/common.clj | 12 |
1 files changed, 0 insertions, 12 deletions
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) ) |