# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1027606115 -7200
# Node ID c33753e28dbfaaff03e677a3277df9be6820b7c0
# Parent  380fa6f65268dbdd0de58b8d798edf495ffcd887
*** empty log message ***

diff -r 380fa6f65268 -r c33753e28dbf Scanner.st
--- 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!