diff options
| author | Eduardo Julian | 2016-01-02 21:32:05 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2016-01-02 21:32:05 -0400 |
| commit | d7c9dcc381596e8ae1617af23ffbf71190737173 (patch) | |
| tree | beafb57810979d7c8c7d2063ec069f17e3a32057 /src/lux/compiler/case.clj | |
| parent | 9815881b839528ed139a6e8a7b0646d4d3ecbf46 (diff) | |
- Switched from VariantT to SumT.
Diffstat (limited to '')
| -rw-r--r-- | src/lux/compiler/case.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lux/compiler/case.clj b/src/lux/compiler/case.clj index 61209b7fb..e0d1b886e 100644 --- a/src/lux/compiler/case.clj +++ b/src/lux/compiler/case.clj @@ -111,14 +111,14 @@ (doto writer (.visitTypeInsn Opcodes/CHECKCAST "[Ljava/lang/Object;") (.visitInsn Opcodes/DUP) - (.visitLdcInsn (int 0)) + (.visitLdcInsn (int 1)) (.visitInsn Opcodes/AALOAD) (.visitLdcInsn ?tag) (&&/wrap-long) (.visitMethodInsn Opcodes/INVOKEVIRTUAL "java/lang/Object" "equals" "(Ljava/lang/Object;)Z") (.visitJumpInsn Opcodes/IFEQ $else) (.visitInsn Opcodes/DUP) - (.visitLdcInsn (int 1)) + (.visitLdcInsn (int 2)) (.visitInsn Opcodes/AALOAD) (-> (doto (compile-match ?test $value-then $value-else) (.visitLabel $value-then) |