- Storage instructions during pattern matching when doing aliasing now use the -1 index to signal no-op.

- Removed unnecessary debugging logging.

1 files changed, 7 insertions, 3 deletions

diff --git a/src/lux/compiler/case.clj b/src/lux/compiler/case.clj
index 20c90d661..61209b7fb 100644
--- a/src/lux/compiler/case.clj
+++ b/src/lux/compiler/case.clj
@@ -26,9 +26,13 @@
   (defn ^:private compile-match [^MethodVisitor writer ?match $target $else]
     (|case ?match
       (&a-case/$StoreTestAC ?idx)
-      (doto writer
-        (.visitVarInsn Opcodes/ASTORE ?idx)
-        (.visitJumpInsn Opcodes/GOTO $target))
+      (if (< ?idx 0)
+        (doto writer
+          (.visitInsn Opcodes/POP) ;; Basically, a No-Op
+          (.visitJumpInsn Opcodes/GOTO $target))
+        (doto writer
+          (.visitVarInsn Opcodes/ASTORE ?idx)
+          (.visitJumpInsn Opcodes/GOTO $target)))
 
       (&a-case/$BoolTestAC ?value)
       (doto writer