hyung-hwan/moo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

redefined Integer<<timesRepeat:

Browse Source
This commit is contained in:
hyunghwan.chung 2017-05-07 14:45:27 +00:00
parent 8f00605804
commit f45cde7ba7
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
moo/kernel/Magnitu.moo
View File

@ -285,9 +285,7 @@ class Number(Magnitude)
(* self < 0 ifTrue: [^-1].
self > 0 ifTrue: [^1].
^0.*)
^if (self < 0) { -1 }
elsif (self > 0) { 1 }
else { 0 }
^if (self < 0) { -1 } elsif (self > 0) { 1 } else { 0 }
}
}
@ -295,7 +293,10 @@ class(#limited) Integer(Number)
{
method timesRepeat: aBlock
{
1 to: self by: 1 do: [ :count | aBlock value ].
## 1 to: self by: 1 do: [ :count | aBlock value ].
| count |
count := 0.
while (count < self) { aBlock value. count := count + 1 }
}
}
@ -307,7 +308,7 @@ class SmallInteger(Integer)
## }
method(#primitive) asCharacter.
method(#primitive) asError.
method(#primitive) asError.
}
class(#liword,#limited) LargeInteger(Integer)