when required to compile, use Compiler instead of self class.
--- 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!