diff options
author | Eduardo Julian | 2017-03-21 19:08:12 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-03-21 19:08:12 -0400 |
commit | f215258b4b1a1847c05f0339af8807f8efd20f61 (patch) | |
tree | 6f6fb5bf055f610f86312c0c02e5a0fd9f4999ee | |
parent | 57d7b77d354338da57646f8b28eaccee4a7d2525 (diff) |
- Fixed a bug when compiling the ["io" "exit"] procedure on the JVM.
-rw-r--r-- | luxc/src/lux/compiler/jvm/proc/common.clj | 3 |
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] |