--- a/Scanner.st Thu Jul 25 16:03:20 2002 +0200
+++ b/Scanner.st Thu Jul 25 16:08:35 2002 +0200
@@ -1533,7 +1533,7 @@
].
(nextChar == $#) ifTrue:[
- AllowDolphinExtensions ifTrue:[
+ AllowDolphinExtensions == true ifTrue:[
"dolphin does computed literals as ##( ... )"
nextChar := source nextPeek.
nextChar == $( ifTrue:[
@@ -1545,18 +1545,18 @@
token := '##'.
tokenType := #HashHash.
^ tokenType
- ] ifFalse:[
- nextChar := source nextPeek.
- nextChar == $[ ifTrue:[
- source next.
- token := '##('.
- tokenType := #HashHashLeftBrack.
- ^ tokenType
- ].
- token := '##'.
- tokenType := #HashHash.
+ ].
+
+ nextChar := source nextPeek.
+ nextChar == $[ ifTrue:[
+ source next.
+ token := '##('.
+ tokenType := #HashHashLeftBrack.
^ tokenType
].
+ token := '##'.
+ tokenType := #HashHash.
+ ^ tokenType
].
((typeArray at:(nextChar asciiValue)) == #special) ifTrue:[
@@ -2285,6 +2285,6 @@
!Scanner class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.146 2002-07-25 14:03:20 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.147 2002-07-25 14:08:35 cg Exp $'
! !
Scanner initialize!