# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 909749796 -3600
# Node ID d2c567b79091ccc383a54be41377dac35aa71d5f
# Parent  459868dcb5915908af109325374f3cec2f3d284c
checkin from browser

diff -r 459868dcb591 -r d2c567b79091 Scanner.st
--- a/Scanner.st	Sat Oct 24 13:01:10 1998 +0200
+++ b/Scanner.st	Fri Oct 30 13:16:36 1998 +0100
@@ -492,6 +492,13 @@
     "Modified: 23.5.1997 / 12:14:45 / cg"
 !
 
+newSourceStream:aStream
+    source := aStream.
+    self nextToken.
+
+    "Created: / 29.10.1998 / 21:59:33 / cg"
+!
+
 saveComments:aBoolean
     "not yet implemented"
 
@@ -1884,6 +1891,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.88 1998-10-22 20:22:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.89 1998-10-30 12:16:36 cg Exp $'
 ! !
 Scanner initialize!