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/common-lisp/runtime.jvm.lux | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux')

diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux
index 33f72b995..96393c970 100644
--- a/new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/common-lisp/runtime.jvm.lux
@@ -195,7 +195,7 @@
                  @@product//right
                  @@sum//get)))
 
-(runtime: (bit//shift-right shift input)
+(runtime: (bit//logical-right-shift shift input)
   (_.if (_.= (_.int 0) (@@ shift))
     (@@ input)
     (|> (@@ input)
@@ -204,7 +204,7 @@
 
 (def: runtime//bit
   Runtime
-  (_.progn (list @@bit//shift-right)))
+  (_.progn (list @@bit//logical-right-shift)))
 
 (do-template [<name> <top-cmp>]
   [(def: (<name> top value)
-- 
cgit v1.2.3