#newProcess et al never return nil - but raise an exception
authorStefan Vogel <sv@exept.de>
Mon, 05 Mar 2007 22:36:04 +0100
changeset 10435 2461cec9c7e9
parent 10434 25f76184bf81
child 10436 2782fa4bd45a
#newProcess et al never return nil - but raise an exception
ProcessorScheduler.st
--- a/ProcessorScheduler.st	Mon Mar 05 16:19:44 2007 +0100
+++ b/ProcessorScheduler.st	Mon Mar 05 22:36:04 2007 +0100
@@ -1509,22 +1509,20 @@
     |id|
 
     id := self class threadCreate:aProcess withId:nil.
-    id isNil ifTrue:[^ false].
-
     aProcess setId:id state:#light.   "meaning: has no stack yet"
     self remember:aProcess.
-    ^ true
 !
 
 newProcessFor:aProcess withId:idWant
     "private entry for Process restart - do not use in your program"
 
     idWant isNil ifTrue:[
-	^ self newProcessFor:aProcess
+        self newProcessFor:aProcess.
+        ^ true.
     ].
 
     (self class threadCreate:aProcess withId:idWant) ~~ idWant ifTrue:[
-	^ false
+        ^ false
     ].
 
     aProcess state:#light.   "meaning: has no stack yet"
@@ -3343,7 +3341,7 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.237 2006-12-07 18:47:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.238 2007-03-05 21:36:04 stefan Exp $'
 ! !
 
 ProcessorScheduler initialize!