--- a/MessageTally.st Fri Jul 05 15:45:18 2002 +0200
+++ b/MessageTally.st Tue Jul 09 16:12:43 2002 +0200
@@ -175,7 +175,7 @@
[
[
aTally spyLeafOn:aBlock interval:ms.
- ] valueOnUnwindDo:[
+ ] ifCurtailed:[
outStream nextPutLine:'TALLY: block returned'.
]
] ensure:[
@@ -195,7 +195,7 @@
[
[
aTally spyOn:aBlock interval:ms.
- ] valueOnUnwindDo:[
+ ] ifCurtailed:[
outStream nextPutLine:'TALLY: block returned'.
]
] ensure:[
@@ -683,5 +683,5 @@
!MessageTally class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/MessageTally.st,v 1.40 2002-02-26 13:02:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MessageTally.st,v 1.41 2002-07-09 14:12:43 stefan Exp $'
! !