equal
deleted
inserted
replaced
729 ! ! |
729 ! ! |
730 |
730 |
731 !BlockNode methodsFor:'misc'! |
731 !BlockNode methodsFor:'misc'! |
732 |
732 |
733 rememberOuterBlockVarAccess:aVariableNode |
733 rememberOuterBlockVarAccess:aVariableNode |
734 |
734 accessedOuterBlockVars isNil ifTrue:[ |
735 "Created: 2.7.1997 / 11:12:55 / cg" |
735 accessedOuterBlockVars := OrderedCollection new. |
|
736 ]. |
|
737 accessedOuterBlockVars add:aVariableNode |
|
738 |
|
739 "Modified: 2.7.1997 / 18:52:49 / cg" |
736 ! |
740 ! |
737 |
741 |
738 rememberSubBlock:aBlockNode |
742 rememberSubBlock:aBlockNode |
739 subBlocks isNil ifTrue:[ |
743 subBlocks isNil ifTrue:[ |
740 subBlocks := OrderedCollection new. |
744 subBlocks := OrderedCollection new. |
859 ]. |
863 ]. |
860 |
864 |
861 ^ true |
865 ^ true |
862 |
866 |
863 "Created: 2.7.1997 / 10:43:37 / cg" |
867 "Created: 2.7.1997 / 10:43:37 / cg" |
864 "Modified: 2.7.1997 / 17:43:09 / cg" |
868 "Modified: 2.7.1997 / 18:55:36 / cg" |
865 ! |
869 ! |
866 |
870 |
867 numArgs |
871 numArgs |
868 "return the number of arguments the block represented by myself |
872 "return the number of arguments the block represented by myself |
869 expects for evaluation" |
873 expects for evaluation" |
890 ! ! |
894 ! ! |
891 |
895 |
892 !BlockNode class methodsFor:'documentation'! |
896 !BlockNode class methodsFor:'documentation'! |
893 |
897 |
894 version |
898 version |
895 ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.47 1997-07-02 15:43:25 cg Exp $' |
899 ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.48 1997-07-02 16:55:54 cg Exp $' |
896 ! ! |
900 ! ! |