aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/scheme/runtime.jvm.lux
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/scheme/runtime.jvm.lux')
-rw-r--r--new-luxc/source/luxc/lang/translation/scheme/runtime.jvm.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/new-luxc/source/luxc/lang/translation/scheme/runtime.jvm.lux b/new-luxc/source/luxc/lang/translation/scheme/runtime.jvm.lux
index 816f92389..09259c2b9 100644
--- a/new-luxc/source/luxc/lang/translation/scheme/runtime.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/scheme/runtime.jvm.lux
@@ -225,7 +225,7 @@
@@product//right
@@sum//get)))
-(runtime: (bit//shift-right shift input)
+(runtime: (bit//logical-right-shift shift input)
(_.if (_.= (_.int 0) (@@ shift))
(@@ input)
(|> (@@ input)
@@ -234,9 +234,9 @@
(def: runtime//bit
Runtime
- (_.begin (list @@bit//shift-right)))
+ (_.begin (list @@bit//logical-right-shift)))
-(def: int-high (bit//shift-right (_.int 32)))
+(def: int-high (bit//logical-right-shift (_.int 32)))
(def: int-low (_.bit-and (_.int (hex "FFFFFFFF"))))
(runtime: (nat//< param subject)
@@ -254,7 +254,7 @@
(_.int 1))
(with-vars [quotient]
(_.let (list [quotient (|> (@@ subject)
- (bit//shift-right (_.int 1))
+ (bit//logical-right-shift (_.int 1))
(_.quotient (@@ param))
(_.arithmetic-shift (_.int 1)))])
(let [remainder (_.- (_.* (@@ param) (@@ quotient))