# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1317799451 -7200
# Node ID cdf6aa380b3e70b94cf2c7a58359787e1c219a80
# Parent  0a71a9bb034fc50944ad4868f5e1e5e8923503ac
changed: #initializeFor:

only init once

diff -r 0a71a9bb034f -r cdf6aa380b3e Scanner.st
--- a/Scanner.st	Wed Oct 05 09:23:11 2011 +0200
+++ b/Scanner.st	Wed Oct 05 09:24:11 2011 +0200
@@ -1817,8 +1817,13 @@
 initializeFor:aStringOrStream
     "initialize the new scanner & prepare for reading from aStringOrStream"
 
-    self initialize.
+    actionArray isNil ifTrue:[
+        "/ if not already initialized...
+        self initialize.
+    ].
     self source:aStringOrStream.
+
+    "Modified: / 05-10-2011 / 09:24:00 / cg"
 !
 
 requestor:anObject
@@ -3338,11 +3343,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.269 2011-10-05 07:23:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.270 2011-10-05 07:24:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.269 2011-10-05 07:23:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.270 2011-10-05 07:24:11 cg Exp $'
 ! !
 
 Scanner initialize!