# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1044201167 -3600
# Node ID f91f6a0a56d5aa7f6d57984582b865873bd68922
# Parent  19b74038d13366fb2ae619e8216fe500c183a790
when required to compile, use Compiler instead of self class.

diff -r 19b74038d133 -r f91f6a0a56d5 Parser.st
--- a/Parser.st	Fri Jan 31 16:24:40 2003 +0100
+++ b/Parser.st	Sun Feb 02 16:52:47 2003 +0100
@@ -3342,7 +3342,7 @@
 
             sReal := 'doIt ^[\' withCRs , s , '\] value' withCRs.
 
-            compiler := self class new.
+            compiler := ByteCodeCompiler new.
             compiler initializeFlagsFrom:self.
             method := compiler
                     compile:sReal 
@@ -7051,7 +7051,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.367 2003-01-31 15:24:02 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.368 2003-02-02 15:52:47 cg Exp $'
 ! !
 
 Parser initialize!