--- a/Parser.st Fri Jul 26 17:26:33 2002 +0200
+++ b/Parser.st Wed Jul 31 18:44:14 2002 +0200
@@ -2900,6 +2900,10 @@
(requestor isNil or:[requestor isStream]) ifTrue:[^ aSelectorString].
].
+ aSelectorString = '#' ifTrue:[
+ self warnPossibleIncompatibility:'''#'' might not be a valid selector in other smalltalk systems' position:pos1 to:pos2.
+ ].
+
"
check if the selector is known at all
- if not, it cannot be understood
@@ -4990,7 +4994,7 @@
^ self primary_lazyValue.
].
tokenType == #HashHash ifTrue:[
- self warning:'''##'' might parse differently with other smalltalk systems' position:pos to:tokenPosition.
+ self warnPossibleIncompatibility:'''##'' might be interpreted differently in other smalltalk systems' position:pos to:tokenPosition.
tokenType := #Symbol.
token := tokenValue := tokenName := '#'.
^ self primary_simpleLiteral.
@@ -6680,6 +6684,6 @@
!Parser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.343 2002-07-25 17:44:06 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.344 2002-07-31 16:44:14 cg Exp $'
! !
Parser initialize!