--- a/Scanner.st Wed Apr 02 14:03:12 1997 +0200
+++ b/Scanner.st Wed Apr 02 14:20:09 1997 +0200
@@ -943,8 +943,7 @@
nextChar == (Character cr) ifTrue:[
tokenLineNr := tokenLineNr + 1.
].
- peekChar := nextChar.
- nextChar := $..
+ nextChar := peekChar := $..
]
].
((nextChar == $e) or:[nextChar == $E]) ifTrue:[
@@ -1295,6 +1294,6 @@
!Scanner class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.62 1997-04-02 12:03:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.63 1997-04-02 12:20:09 cg Exp $'
! !
Scanner initialize!