# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 898204411 -7200
# Node ID 75629df7f224142d1738311d4fbca3de3f0f21f4
# Parent  5d6fc1e8e578638ca013e921fd512e9635431ba2
fixed readSmalltalkSyntax (dont read behind number)

diff -r 5d6fc1e8e578 -r 75629df7f224 Number.st
--- 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 $'
 ! !