aboutsummaryrefslogtreecommitdiff
path: root/luxc
diff options
context:
space:
mode:
authorEduardo Julian2017-03-21 19:08:12 -0400
committerEduardo Julian2017-03-21 19:08:12 -0400
commitf215258b4b1a1847c05f0339af8807f8efd20f61 (patch)
tree6f6fb5bf055f610f86312c0c02e5a0fd9f4999ee /luxc
parent57d7b77d354338da57646f8b28eaccee4a7d2525 (diff)
- Fixed a bug when compiling the ["io" "exit"] procedure on the JVM.
Diffstat (limited to '')
-rw-r--r--luxc/src/lux/compiler/jvm/proc/common.clj3
1 files changed, 2 insertions, 1 deletions
diff --git a/luxc/src/lux/compiler/jvm/proc/common.clj b/luxc/src/lux/compiler/jvm/proc/common.clj
index d434e0365..ffb621c3b 100644
--- a/luxc/src/lux/compiler/jvm/proc/common.clj
+++ b/luxc/src/lux/compiler/jvm/proc/common.clj
@@ -735,7 +735,8 @@
:let [_ (doto *writer*
&&/unwrap-long
(.visitInsn Opcodes/L2I)
- (.visitMethodInsn Opcodes/INVOKESTATIC "java/lang/System" "exit" "(I)V"))]]
+ (.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]