From 1797521191746640e761cc1b4973d46b8c403dee Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 28 Jan 2021 20:14:11 -0400
Subject: Implemented arithmetic right-shift in terms of logic right-shift.

---
 lux-js/source/program.lux | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lux-js/source')

diff --git a/lux-js/source/program.lux b/lux-js/source/program.lux
index 48392d358..aacbcdb54 100644
--- a/lux-js/source/program.lux
+++ b/lux-js/source/program.lux
@@ -285,7 +285,7 @@
                           [high low]])
                  (#.Some (.int (n.+ (|> high .nat (i64.left_shift 32))
                                     (if (i.< +0 (.int low))
-                                      (|> low .nat (i64.left_shift 32) (i64.logic_right_shift 32))
+                                      (|> low .nat (i64.left_shift 32) (i64.right_shift 32))
                                       (.nat low)))))
 
                  _
-- 
cgit v1.2.3