equal
deleted
inserted
replaced
3340 "/ actually, its a block, to allow |
3340 "/ actually, its a block, to allow |
3341 "/ easy return ... |
3341 "/ easy return ... |
3342 |
3342 |
3343 sReal := 'doIt ^[\' withCRs , s , '\] value' withCRs. |
3343 sReal := 'doIt ^[\' withCRs , s , '\] value' withCRs. |
3344 |
3344 |
3345 compiler := self class new. |
3345 compiler := ByteCodeCompiler new. |
3346 compiler initializeFlagsFrom:self. |
3346 compiler initializeFlagsFrom:self. |
3347 method := compiler |
3347 method := compiler |
3348 compile:sReal |
3348 compile:sReal |
3349 forClass:anObject class |
3349 forClass:anObject class |
3350 inCategory:'_temporary_' |
3350 inCategory:'_temporary_' |
7049 ! ! |
7049 ! ! |
7050 |
7050 |
7051 !Parser class methodsFor:'documentation'! |
7051 !Parser class methodsFor:'documentation'! |
7052 |
7052 |
7053 version |
7053 version |
7054 ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.367 2003-01-31 15:24:02 penk Exp $' |
7054 ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.368 2003-02-02 15:52:47 cg Exp $' |
7055 ! ! |
7055 ! ! |
7056 |
7056 |
7057 Parser initialize! |
7057 Parser initialize! |