diff options
Diffstat (limited to 'stdlib/source/lux/tool/compiler/phase/generation/python/extension/common.lux')
| -rw-r--r-- | stdlib/source/lux/tool/compiler/phase/generation/python/extension/common.lux | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/stdlib/source/lux/tool/compiler/phase/generation/python/extension/common.lux b/stdlib/source/lux/tool/compiler/phase/generation/python/extension/common.lux index 48fd005fb..4cfc7a1e6 100644 --- a/stdlib/source/lux/tool/compiler/phase/generation/python/extension/common.lux +++ b/stdlib/source/lux/tool/compiler/phase/generation/python/extension/common.lux @@ -29,14 +29,14 @@ Bundle (<| (bundle.prefix "i64") (|> bundle.empty - (bundle.install "and" (binary (product.uncurry _.bit-and))) - (bundle.install "or" (binary (product.uncurry _.bit-or))) - (bundle.install "xor" (binary (product.uncurry _.bit-xor))) - (bundle.install "left-shift" (binary (|>> (product.uncurry _.bit-shl) ///runtime.i64//64))) - (bundle.install "logical-right-shift" (binary (product.uncurry (function.flip ///runtime.i64//logic-right-shift)))) - (bundle.install "arithmetic-right-shift" (binary (product.uncurry (function.flip _.bit-shr)))) - (bundle.install "=" (binary (product.uncurry _.=))) - (bundle.install "+" (binary (product.uncurry _.+))) + (bundle.install "and" (binary (product.uncurry (function.flip _.bit-and)))) + (bundle.install "or" (binary (product.uncurry (function.flip _.bit-or)))) + (bundle.install "xor" (binary (product.uncurry (function.flip _.bit-xor)))) + (bundle.install "left-shift" (binary (function.compose ///runtime.i64//64 (product.uncurry _.bit-shl)))) + (bundle.install "logical-right-shift" (binary (product.uncurry ///runtime.i64//logic-right-shift))) + (bundle.install "arithmetic-right-shift" (binary (product.uncurry _.bit-shr))) + (bundle.install "=" (binary (product.uncurry (function.flip _.=)))) + (bundle.install "+" (binary (product.uncurry (function.flip _.+)))) (bundle.install "-" (binary (product.uncurry (function.flip _.-)))) ))) @@ -59,7 +59,7 @@ (<| (bundle.prefix "int") (|> bundle.empty (bundle.install "<" (binary (product.uncurry (function.flip _.<)))) - (bundle.install "*" (binary (product.uncurry _.*))) + (bundle.install "*" (binary (product.uncurry (function.flip _.*)))) (bundle.install "/" (binary (product.uncurry (function.flip _./)))) (bundle.install "%" (binary (product.uncurry (function.flip _.%)))) (bundle.install "frac" (unary _.float/1)) @@ -69,12 +69,12 @@ Bundle (<| (bundle.prefix "frac") (|> bundle.empty - (bundle.install "+" (binary (product.uncurry _.+))) + (bundle.install "+" (binary (product.uncurry (function.flip _.+)))) (bundle.install "-" (binary (product.uncurry (function.flip _.-)))) - (bundle.install "*" (binary (product.uncurry _.*))) + (bundle.install "*" (binary (product.uncurry (function.flip _.*)))) (bundle.install "/" (binary (product.uncurry (function.flip _./)))) (bundle.install "%" (binary (product.uncurry (function.flip _.%)))) - (bundle.install "=" (binary (product.uncurry _.=))) + (bundle.install "=" (binary (product.uncurry (function.flip _.=)))) (bundle.install "<" (binary (product.uncurry (function.flip _.<)))) (bundle.install "smallest" (nullary frac//smallest)) (bundle.install "min" (nullary frac//min)) @@ -99,7 +99,7 @@ Bundle (<| (bundle.prefix "text") (|> bundle.empty - (bundle.install "=" (binary (product.uncurry _.=))) + (bundle.install "=" (binary (product.uncurry (function.flip _.=)))) (bundle.install "<" (binary (product.uncurry (function.flip _.<)))) (bundle.install "concat" (binary (product.uncurry (function.flip _.+)))) (bundle.install "index" (trinary text//index)) |