# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1095690424 -7200
# Node ID aca77c69cd919895c910378288406244fd08d58f
# Parent  09e2910c1e4ff885c2c2f7a54da88dac804780d9
*** empty log message ***

diff -r 09e2910c1e4f -r aca77c69cd91 Continuation.st
--- a/Continuation.st	Mon Sep 20 12:54:54 2004 +0200
+++ b/Continuation.st	Mon Sep 20 16:27:04 2004 +0200
@@ -65,8 +65,9 @@
     cont := super new.
 %{
     int __cId;
+    extern int __continuationCreate();
 
-    __cId = __threadContinuation(cont);
+    __cId = __continuationCreate(cont);
     if (__cId) {
         id = __MKSMALLINT(__cId);
     }
@@ -89,5 +90,5 @@
 !Continuation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Continuation.st,v 1.4 2004-09-20 10:54:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Continuation.st,v 1.5 2004-09-20 14:27:04 cg Exp $'
 ! !