aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/meta/target/jvm/bytecode/instruction.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/library/lux/meta/target/jvm/bytecode/instruction.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/library/lux/meta/target/jvm/bytecode/instruction.lux b/stdlib/source/library/lux/meta/target/jvm/bytecode/instruction.lux
index 9dc19ed00..573424e12 100644
--- a/stdlib/source/library/lux/meta/target/jvm/bytecode/instruction.lux
+++ b/stdlib/source/library/lux/meta/target/jvm/bytecode/instruction.lux
@@ -608,7 +608,7 @@
maximum (///signed.+/4 minimum amount_of_afterwards)]
(in (let [_ (binary.has_8! offset (hex "AA") binary)
offset (n.+ (///unsigned.value ..opcode_size) offset)
- _ (case padding
+ _ (when padding
3 (|> binary
(binary.has_8! offset 0)
(binary.has_16! (++ offset) 0))
@@ -624,7 +624,7 @@
(loop (again [offset (n.+ (///unsigned.value ..integer_size) offset)
afterwards (is (List Big_Jump)
{.#Item at_minimum afterwards})])
- (case afterwards
+ (when afterwards
{.#End}
binary
@@ -668,7 +668,7 @@
[(n.+ lookupswitch_size offset)
(let [_ (binary.has_8! offset (hex "AB") binary)
offset (n.+ (///unsigned.value ..opcode_size) offset)
- _ (case padding
+ _ (when padding
3 (|> binary
(binary.has_8! offset 0)
(binary.has_16! (++ offset) 0))
@@ -681,7 +681,7 @@
_ (binary.has_32! offset amount_of_cases binary)]
(loop (again [offset (n.+ (///unsigned.value ..integer_size) offset)
cases cases])
- (case cases
+ (when cases
{.#End}
binary