From e4888ad775fad093cd16f6134d6c509a664996ff Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 15 Mar 2016 01:03:39 -0400
Subject: - Fixed a bug in the way sub-indices for sub-tuples were being
 calculated when doing product_getLeft.

---
 src/lux/compiler/host.clj | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/lux/compiler/host.clj b/src/lux/compiler/host.clj
index 0715b024f..b94dc0e7c 100644
--- a/src/lux/compiler/host.clj
+++ b/src/lux/compiler/host.clj
@@ -892,8 +892,8 @@
                                           (.visitLdcInsn (int 1)) ;; tuple-size, index, offset-last-elem
                                           (.visitInsn Opcodes/IADD) ;; tuple-size, index-last-elem
                                           (.visitInsn Opcodes/DUP2) ;; tuple-size, index-last-elem, tuple-size, index-last-elem
-                                          (.visitJumpInsn Opcodes/IF_ICMPGT $not-rec)
-                                          ;; tuple-size, index-last-elem
+                                          (.visitJumpInsn Opcodes/IF_ICMPGT $not-rec) ;; tuple-size, index-last-elem
+                                          (.visitInsn Opcodes/SWAP) ;; index-last-elem, tuple-size
                                           (.visitInsn Opcodes/ISUB) ;; sub-index
                                           (.visitVarInsn Opcodes/ALOAD 0) ;; sub-index, tuple
                                           (.visitInsn Opcodes/DUP) ;; sub-index, tuple, tuple
-- 
cgit v1.2.3