"{ Package: 'cvut:stx/goodies/newcompiler' }"!

!ByteCodeCompiler methodsFor:'accessing'!

literalArray: anArray
    "return the literal array - only valid after parsing"

    litArray := anArray

    "Created: / 03-11-2008 / 14:09:33 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!Class methodsFor:'accessing'!

binding

    ^self fullName asSymbol

    "Created: / 11-06-2008 / 11:20:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!Class methodsFor:'accessing'!

bindingOf: classVarName

    ^(self fullName , ':' , classVarName) asSymbol

    "Created: / 11-06-2008 / 11:29:19 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!cvut_stx_goodies_newcompiler class methodsFor:'documentation'!

extensionsVersion_SVN
    ^ '$Id::                                                                                                                        $'
! !