From e65e734e5df3746ffb7df2cc9fa33826e0083fcd Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 6 May 2018 03:30:47 -0400
Subject: - Re-named shift-left -> left-shift, shift-right ->
 logical-right-shift, signed-shift-right -> arithmetic-right-shift.

---
 new-luxc/source/luxc/lang/translation/js/eval.jvm.lux | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/js/eval.jvm.lux')

diff --git a/new-luxc/source/luxc/lang/translation/js/eval.jvm.lux b/new-luxc/source/luxc/lang/translation/js/eval.jvm.lux
index 3d4dbc782..5b2499eb0 100644
--- a/new-luxc/source/luxc/lang/translation/js/eval.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/js/eval.jvm.lux
@@ -64,9 +64,9 @@
             [[(Number::longValue [] (:! Number high))
               (Number::longValue [] (:! Number low))]
              [high low]])
-    (#.Some (nat-to-int (n/+ (|> high (:! Nat) (bit.shift-left +32))
+    (#.Some (nat-to-int (n/+ (|> high (:! Nat) (bit.left-shift +32))
                              (if (i/< 0 (:! Int low))
-                               (|> low (:! Nat) (bit.shift-left +32) (bit.shift-right +32))
+                               (|> low (:! Nat) (bit.left-shift +32) (bit.logical-right-shift +32))
                                (|> low (:! Nat))))))
 
     _
-- 
cgit v1.2.3