--- a/Continuation.st Sat Nov 01 19:24:05 2008 +0100
+++ b/Continuation.st Mon Nov 03 12:20:32 2008 +0100
@@ -129,7 +129,7 @@
__continuationResume(__intVal(cID));
%}
].
-self halt:'not yet implemented'.
+ self shouldImplement.
"/ self terminate: thisContext.
"/ self restoreValues.
@@ -145,11 +145,10 @@
!Continuation methodsFor:'private'!
terminate: aContext
-self halt:'not yet implemented'.
+ self shouldImplement.
"/ | context |
"/ context _ aContext.
"/ [context notNil] whileTrue: [context _ context swapSender: nil]
-
! !
!Continuation methodsFor:'private accessing'!
@@ -174,7 +173,7 @@
!Continuation methodsFor:'restoration'!
restoreValues
-self halt:'not yet implemented'.
+ self shouldImplement.
"/ | valueStream context |
"/
"/ valueStream _ values readStream.
@@ -187,5 +186,5 @@
!Continuation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Continuation.st,v 1.14 2008-10-21 22:19:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Continuation.st,v 1.15 2008-11-03 11:20:32 stefan Exp $'
! !