Number.st
branchjv
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