aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--luxc/src/lux/compiler/js/base.clj4
1 files changed, 2 insertions, 2 deletions
diff --git a/luxc/src/lux/compiler/js/base.clj b/luxc/src/lux/compiler/js/base.clj
index 329252798..c6a6f538c 100644
--- a/luxc/src/lux/compiler/js/base.clj
+++ b/luxc/src/lux/compiler/js/base.clj
@@ -79,8 +79,8 @@
JSObject
(getMember [self member]
(condp = member
- "H" (-> value (unsigned-bit-shift-right 32) (bit-and i64-mask) int)
- "L" (-> value (bit-and i64-mask) int)
+ "H" (-> value (bit-shift-right 32) int)
+ "L" (-> value (bit-and i64-mask) (bit-shift-left 32) (bit-shift-right 32) int)
;; else
(assert false (str "I64#getMember = " member)))))