extensions.st
changeset 41 f3898a3b378d
parent 37 be8c2dd09dff
child 42 acdc3ec6d152
equal deleted inserted replaced
40:c99f058e2276 41:f3898a3b378d
     1 "{ Package: 'cvut:stx/goodies/newcompiler' }"!
     1 "{ Package: 'ctu:ircompiler' }"!
     2 
     2 
     3 !ByteCodeCompiler methodsFor:'accessing'!
     3 !ByteCodeCompiler methodsFor:'accessing'!
     4 
     4 
     5 literalArray: anArray
     5 literalArray: anArray
     6     "return the literal array - only valid after parsing"
     6     "return the literal array - only valid after parsing"
    26     ^(self fullName , ':' , classVarName) asSymbol
    26     ^(self fullName , ':' , classVarName) asSymbol
    27 
    27 
    28     "Created: / 11-06-2008 / 11:29:19 / Jan Vrany <vranyj1@fel.cvut.cz>"
    28     "Created: / 11-06-2008 / 11:29:19 / Jan Vrany <vranyj1@fel.cvut.cz>"
    29 ! !
    29 ! !
    30 
    30 
    31 !cvut_stx_goodies_newcompiler class methodsFor:'documentation'!
    31 !ctu_ircompiler class methodsFor:'documentation'!
    32 
    32 
    33 extensionsVersion_SVN
    33 extensionsVersion_SVN
    34     ^ '$Id::                                                                                                                        $'
    34     ^ '$Id::                                                                                                                        $'
    35 ! !
    35 ! !