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

9
moo/kernel/Magnitu.moo
View File

@ -285,9 +285,7 @@ class Number(Magnitude)
(* self < 0 ifTrue: [^-1]. (* self < 0 ifTrue: [^-1].
self > 0 ifTrue: [^1]. self > 0 ifTrue: [^1].
^0.*) ^0.*)
^if (self < 0) { -1 } ^if (self < 0) { -1 } elsif (self > 0) { 1 } else { 0 }
elsif (self > 0) { 1 }
else { 0 }
} }
} }
@ -295,7 +293,10 @@ class(#limited) Integer(Number)
{ {
method timesRepeat: aBlock 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 }
} }
} }