added some number primitives

This commit is contained in:
hyunghwan.chung
2019-01-10 07:00:17 +00:00
parent 05a3c4eefd
commit cd4d34c724
4 changed files with 141 additions and 13 deletions

View File

@ -143,7 +143,7 @@ class(#limited) Number(Magnitude)
method mdiv: aNumber
{
## integer division quotient
<primitive: #_integer_mdiv>
<primitive: #_number_mdiv>
self primitiveFailed.
}
@ -173,31 +173,31 @@ class(#limited) Number(Magnitude)
method < aNumber
{
<primitive: #_integer_lt>
<primitive: #_number_lt>
self primitiveFailed.
}
method > aNumber
{
<primitive: #_integer_gt>
<primitive: #_number_gt>
self primitiveFailed.
}
method <= aNumber
{
<primitive: #_integer_le>
<primitive: #_number_le>
self primitiveFailed.
}
method >= aNumber
{
<primitive: #_integer_ge>
<primitive: #_number_ge>
self primitiveFailed.
}
method negated
{
<primitive: #_integer_negated>
<primitive: #_number_negated>
^0 - self.
}