avoid endless recursion in terminateAllSubProcesses
authorClaus Gittinger <cg@exept.de>
Mon, 03 Nov 1997 16:29:58 +0100
changeset 3094 647219dc860b
parent 3093 642a1fa90695
child 3095 cdb753308f6e
avoid endless recursion in terminateAllSubProcesses - must check with markus bendel ...
Process.st
--- a/Process.st	Mon Nov 03 16:28:12 1997 +0100
+++ b/Process.st	Mon Nov 03 16:29:58 1997 +0100
@@ -1394,15 +1394,15 @@
 
     ProcessorScheduler knownProcesses do:[:aProcess |
         aProcess ~~ self ifTrue:[
-            (aProcess processGroupId == processGroupId 
-            or:[aProcess processGroupId == id]) ifTrue:[
+            ("aProcess processGroupId == processGroupId 
+            or:["aProcess processGroupId == id"]") ifTrue:[
                 aProcess terminateWithAllSubprocesses
             ]
         ]
     ].
 
-    "Created: 28.10.1996 / 20:43:32 / cg"
-    "Modified: 26.8.1997 / 03:09:40 / cg"
+    "Created: / 28.10.1996 / 20:43:32 / cg"
+    "Modified: / 3.11.1997 / 00:28:06 / cg"
 !
 
 terminateGroup
@@ -1477,6 +1477,6 @@
 !Process class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.88 1997-10-10 11:08:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Process.st,v 1.89 1997-11-03 15:29:58 cg Exp $'
 ! !
 Process initialize!