#FEATURE
authorClaus Gittinger <cg@exept.de>
Mon, 11 Jan 2016 12:35:37 +0100
changeset 19018 441811c95c15
parent 19015 8cce2933467a
child 19019 07dc163edbcc
child 19020 59bdb0a35a88
#FEATURE class: Number changed: #raisedTo: double dispatch, if argument is not a number
Number.st
--- a/Number.st	Fri Jan 08 15:21:52 2016 +0100
+++ b/Number.st	Mon Jan 11 12:35:37 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