Continuation.st
changeset 8913 b9498d27a554
parent 8849 f0bfc23a2f7b
child 10210 963dac304d35
--- a/Continuation.st	Fri Jul 08 18:41:53 2005 +0200
+++ b/Continuation.st	Fri Jul 08 19:15:03 2005 +0200
@@ -97,7 +97,7 @@
 
     __cId = __continuationCreate(cont);
     if (__cId) {
-        id = __MKSMALLINT(__cId);
+        id = __mkSmallInteger(__cId);
     }
 %}.
     id isNil ifTrue:[
@@ -207,5 +207,5 @@
 !Continuation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Continuation.st,v 1.10 2005-04-18 09:18:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Continuation.st,v 1.11 2005-07-08 17:15:01 cg Exp $'
 ! !