branch | jv |
changeset 19019 | 07dc163edbcc |
parent 18873 | ce58d469e583 |
parent 19018 | 441811c95c15 |
child 19042 | b81f2c85df7d |
--- a/Number.st Mon Jan 11 22:45:14 2016 +0000 +++ b/Number.st Tue Jan 12 07:07:44 2016 +0100 @@ -1,5 +1,3 @@ -"{ Encoding: utf8 }" - " COPYRIGHT (c) 1988 by Claus Gittinger All Rights Reserved @@ -1389,6 +1387,9 @@ aNumber isInteger ifTrue:[ ^ self raisedToInteger:aNumber ]. + aNumber isNumber ifFalse:[ + ^ aNumber raisedFromNumber:self. + ]. ^ self asFloat raisedTo:aNumber " @@ -1468,6 +1469,7 @@ ^ self ! ! + !Number methodsFor:'printing & storing'! displayOn:aGCOrStream