equal
deleted
inserted
replaced
727 aBlock value. |
727 aBlock value. |
728 thisContext restart |
728 thisContext restart |
729 ! |
729 ! |
730 |
730 |
731 whileTrue:aBlock |
731 whileTrue:aBlock |
|
732 "evaluate the argument, aBlock while the receiver evaluates to true." |
|
733 |
732 self value ifFalse:[^ nil]. |
734 self value ifFalse:[^ nil]. |
733 aBlock value. |
735 aBlock value. |
734 thisContext restart |
736 thisContext restart |
|
737 |
|
738 "Modified: / 22-08-2006 / 14:40:48 / cg" |
735 ! ! |
739 ! ! |
736 |
740 |
737 !BlockNode methodsFor:'misc'! |
741 !BlockNode methodsFor:'misc'! |
738 |
742 |
739 rememberOuterBlockVarAccess:aVariableNode |
743 rememberOuterBlockVarAccess:aVariableNode |
918 ! ! |
922 ! ! |
919 |
923 |
920 !BlockNode class methodsFor:'documentation'! |
924 !BlockNode class methodsFor:'documentation'! |
921 |
925 |
922 version |
926 version |
923 ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.72 2006-03-16 14:24:47 cg Exp $' |
927 ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.73 2006-08-22 12:41:52 cg Exp $' |
924 ! ! |
928 ! ! |