--- a/Number.st Thu Jun 18 18:44:22 1998 +0200
+++ b/Number.st Thu Jun 18 23:13:31 1998 +0200
@@ -160,7 +160,8 @@
read and return the next Number in smalltalk syntax from the
(character-)stream aStream."
- ^ Compiler evaluate:aStream compile:false "/ self readFrom:aStream.
+ ^ Scanner scanNumberFrom:aStream
+"/ ^ Compiler evaluate:aStream compile:false "/ self readFrom:aStream.
"
Number readSmalltalkSyntaxFrom:(ReadStream on:'54.32e-01')
@@ -171,11 +172,13 @@
Number readSmalltalkSyntaxFrom:(ReadStream on:'+00000123.45')
Number readFrom:(ReadStream on:'+00000123.45')
"
+
+ "Modified: / 18.6.1998 / 23:02:57 / cg"
! !
!Number class methodsFor:'error reporting'!
-raise:aSignalSymbol receiver:someNumber selector:sel arguments:argArray errorString:text
+raise:aSignalSymbol receiver:someNumber selector:sel arg:arg errorString:text
"ST-80 compatible signal raising. Provided for PD numeric classes"
|msg|
@@ -183,7 +186,7 @@
msg := MessageSend
receiver:someNumber
selector:sel
- arguments:argArray.
+ arguments:(Array with:arg).
^ (self perform:aSignalSymbol)
raiseRequestWith:msg
@@ -200,7 +203,7 @@
"
!
-raise:aSignalSymbol receiver:someNumber selector:sel arg:arg errorString:text
+raise:aSignalSymbol receiver:someNumber selector:sel arguments:argArray errorString:text
"ST-80 compatible signal raising. Provided for PD numeric classes"
|msg|
@@ -208,7 +211,7 @@
msg := MessageSend
receiver:someNumber
selector:sel
- arguments:(Array with:arg).
+ arguments:argArray.
^ (self perform:aSignalSymbol)
raiseRequestWith:msg
@@ -529,5 +532,5 @@
!Number class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.43 1998-04-22 19:11:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.44 1998-06-18 21:13:31 cg Exp $'
! !