oops - HashLeftAngle was wrong.
--- a/Scanner.st Wed Jul 24 12:17:48 2002 +0200
+++ b/Scanner.st Thu Jul 25 15:20:33 2002 +0200
@@ -1521,14 +1521,6 @@
^ tokenType
].
- (nextChar == $< ) ifTrue:[
- "ST/X experimental: lazy values as #<...>"
- source next.
- token := '#<'.
- tokenType := #HashLeftAngle.
- ^ tokenType
- ].
-
(nextChar == $' ) ifTrue:[
"ST-80 and ST/X support arbitrary symbols as #'...'"
self nextString.
@@ -1541,7 +1533,6 @@
(nextChar == $#) ifTrue:[
AllowDolphinExtensions ifTrue:[
"dolphin does computed literals as ##( ... )"
-
nextChar := source nextPeek.
nextChar == $( ifTrue:[
source next.
@@ -1552,7 +1543,18 @@
token := '##'.
tokenType := #HashHash.
^ tokenType
- ]
+ ] ifFalse:[
+ nextChar := source nextPeek.
+ nextChar == $[ ifTrue:[
+ source next.
+ token := '##('.
+ tokenType := #HashHashLeftBracket.
+ ^ tokenType
+ ].
+ token := '##'.
+ tokenType := #HashHash.
+ ^ tokenType
+ ].
].
((typeArray at:(nextChar asciiValue)) == #special) ifTrue:[
@@ -2281,6 +2283,6 @@
!Scanner class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.144 2002-07-24 10:17:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.145 2002-07-25 13:20:33 cg Exp $'
! !
Scanner initialize!