From f215258b4b1a1847c05f0339af8807f8efd20f61 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 21 Mar 2017 19:08:12 -0400
Subject: - Fixed a bug when compiling the ["io" "exit"] procedure on the JVM.

---
 luxc/src/lux/compiler/jvm/proc/common.clj | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'luxc/src')

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