diff options
| author | Eduardo Julian | 2021-01-28 20:14:11 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-01-28 20:14:11 -0400 |
| commit | 1797521191746640e761cc1b4973d46b8c403dee (patch) | |
| tree | 197b60bf206f75c32a930b85910101c6d4c0d0f9 /stdlib/source/lux.lux | |
| parent | 43d28326ad59c74439b96343cc8f619ed7d90231 (diff) | |
Implemented arithmetic right-shift in terms of logic right-shift.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux index bd492b4aa..2b9d0b27e 100644 --- a/stdlib/source/lux.lux +++ b/stdlib/source/lux.lux @@ -2091,7 +2091,7 @@ (def:''' (high_bits value) (list) (-> ($' I64 Any) I64) - ("lux i64 logical-right-shift" 32 value)) + ("lux i64 right-shift" 32 value)) (def:''' low_mask (list) @@ -2167,7 +2167,7 @@ 0 1) (let' [quotient (|> subject - ("lux i64 logical-right-shift" 1) + ("lux i64 right-shift" 1) ("lux i64 /" ("lux coerce" Int param)) ("lux i64 left-shift" 1)) flat ("lux i64 *" |