Continuation.st
changeset 11304 dbc86babac7d
parent 11259 1139cf276d57
child 15554 b4d307032579
child 17711 39faaaf888b4
--- 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 $'
 ! !