"{ 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>"
! !