Process.st
changeset 1086 7b0641a2e1ef
parent 1033 244530001e84
child 1092 2a8acc60f5b5
--- a/Process.st	Thu Mar 07 19:00:58 1996 +0100
+++ b/Process.st	Thu Mar 07 19:32:41 1996 +0100
@@ -771,13 +771,15 @@
 "/  ('restart process ' , id printString) errorPrintNL.
 
     (Processor newProcessFor:self withId:id) ifFalse:[ 
-	"for some reason, the Processor was unable to create
-	 a VM process for me ...."
+        "for some reason, the Processor was unable to create
+         a VM process for me ...."
 
-	('process ' , id printString , ' failed to restart.') errorPrintNL.
-	^ nil
+        ('PROCESS: process ' , id printString , ' failed to restart.') errorPrintNL.
+        ^ nil
     ].
     self resume
+
+    "Modified: 7.3.1996 / 19:21:50 / cg"
 !
 
 start
@@ -932,6 +934,6 @@
 !Process class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.44 1996-02-28 20:38:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.45 1996-03-07 18:32:16 cg Exp $'
 ! !
 Process initialize!