"{ 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:: $'
! !