use class based exceptions
authorStefan Vogel <sv@exept.de>
Tue, 07 Sep 2004 16:51:43 +0200
changeset 8523 f15feab27431
parent 8522 09b3ac13da48
child 8524 ad922805e66d
use class based exceptions
ProcessorScheduler.st
--- a/ProcessorScheduler.st	Tue Sep 07 16:45:29 2004 +0200
+++ b/ProcessorScheduler.st	Tue Sep 07 16:51:43 2004 +0200
@@ -811,20 +811,20 @@
     dispatchAction := [self dispatch].
 
     handlerAction := [:ex |
-			('Processor [info]: ignored signal (', ex signal printString, ')') infoPrintCR.
-			ex return
-		     ].
+                        ('Processor [info]: ignored signal (', ex signal printString, ')') infoPrintCR.
+                        ex return
+                     ].
 
     ignoredSignals := SignalSet 
-			with:TerminateProcessRequest
-			with:AbortSignal.
+                        with:TerminateProcessRequest
+                        with:AbortOperationRequest.
 
     "/
     "/ I made this an extra call to dispatch; this allows recompilation
     "/  of the dispatch-handling code in the running system.
     "/
     [dispatching] whileTrue:[
-	ignoredSignals handle:handlerAction do:dispatchAction
+        ignoredSignals handle:handlerAction do:dispatchAction
     ].
 
     "/ we arrive here in standalone Apps,
@@ -3318,7 +3318,7 @@
 !ProcessorScheduler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.223 2004-08-31 14:25:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.224 2004-09-07 14:51:43 stefan Exp $'
 ! !
 
 ProcessorScheduler initialize!