--- a/Scanner.st Thu May 29 14:35:14 2014 +0200
+++ b/Scanner.st Thu May 29 16:30:17 2014 +0200
@@ -3418,7 +3418,7 @@
and multiline-delimiter comment (quote-less-less)."
|commentStream commentType commentText startPos endPos stillInComment anyNonBlank
- delimiter delimiter2 line|
+ delimiter line|
anyNonBlank := false.
@@ -3465,7 +3465,7 @@
"
another special ST/X addition:
a << right after the initial double quote makes it a token delimited comment,
- which continues up to a line consisting of the token alone.
+ which continues up to a line starting with the token.
This is very useful to comment out which contain any other type of comment.
Since this is non-standard, you loose compatibility with other Smalltalks, if you use it.
"
@@ -3483,7 +3483,6 @@
commentStream notNil ifTrue:[
commentStream nextPutLine:delimiter
].
- delimiter2 := delimiter,'>>'. "/ to allow delimiter>>"
stillInComment := true.
[stillInComment] whileTrue:[
line := String streamContents:[:s | self skipToEndOfLineRememberingIn:s].
@@ -3494,7 +3493,7 @@
hereChar := source nextPeek.
].
stillInComment := hereChar notNil
- and:[ ((line = delimiter) or:[ line startsWith:delimiter2 ]) not ].
+ and:[ (line startsWith:delimiter) not ].
].
hereChar isNil ifTrue:[
self markCommentFrom:startPos to:(source collectionSize).
@@ -3690,11 +3689,11 @@
!Scanner class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.317 2014-05-29 12:32:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.318 2014-05-29 14:30:17 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.317 2014-05-29 12:32:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.318 2014-05-29 14:30:17 cg Exp $'
! !