# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1027603233 -7200
# Node ID 917f975e3e7ecfedcd7cf6d69dc9a082cf54ba92
# Parent  ec07b4b3740e2cd6eaf5d504e0eb426d4e26617a
oops - HashLeftAngle was wrong.

diff -r ec07b4b3740e -r 917f975e3e7e Scanner.st
--- 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!