diff options
author | Eduardo Julian | 2018-08-16 06:22:54 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-08-16 06:22:54 -0400 |
commit | e4c1b1645fa1a62a0bf8c90723eab7be634dd67f (patch) | |
tree | 8413a7270493bc18c7af67d9458e7c31331a0fc7 /new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux | |
parent | 18bb5f90d24376d3731986bf2c16bf6b58dcd3cb (diff) |
Extension-related fixes.
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux')
-rw-r--r-- | new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux index efccb25f6..d1826669a 100644 --- a/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux @@ -307,27 +307,27 @@ (bundle.install "is" (binary lux::is)) (bundle.install "try" (unary lux::try)))) -(def: bundle::bit +(def: bundle::i64 Bundle - (<| (bundle.prefix "bit") + (<| (bundle.prefix "i64") (|> (: Bundle bundle.empty) (bundle.install "and" (binary bit::and)) (bundle.install "or" (binary bit::or)) (bundle.install "xor" (binary bit::xor)) (bundle.install "left-shift" (binary bit::left-shift)) (bundle.install "logical-right-shift" (binary bit::logical-right-shift)) - (bundle.install "arithmetic-right-shift" (binary bit::arithmetic-right-shift))))) + (bundle.install "arithmetic-right-shift" (binary bit::arithmetic-right-shift)) + (bundle.install "+" (binary i64::+)) + (bundle.install "-" (binary i64::-)) + (bundle.install "=" (binary i64::=))))) -(def: bundle::i64 +(def: bundle::int Bundle - (<| (bundle.prefix "i64") + (<| (bundle.prefix "int") (|> (: Bundle bundle.empty) - (bundle.install "+" (binary i64::+)) - (bundle.install "-" (binary i64::-)) (bundle.install "*" (binary i64::*)) (bundle.install "/" (binary i64::/)) (bundle.install "%" (binary i64::%)) - (bundle.install "=" (binary i64::=)) (bundle.install "<" (binary i64::<)) (bundle.install "to-f64" (unary i64::to-f64)) (bundle.install "char" (unary i64::char))))) @@ -375,8 +375,8 @@ Bundle (<| (bundle.prefix "lux") (|> bundle::lux - (dictionary.merge bundle::bit) (dictionary.merge bundle::i64) + (dictionary.merge bundle::int) (dictionary.merge bundle::f64) (dictionary.merge bundle::text) (dictionary.merge bundle::io)))) |