--- a/ProcSched.st Fri Feb 26 13:27:56 1999 +0100
+++ b/ProcSched.st Fri Feb 26 13:53:03 1999 +0100
@@ -1831,7 +1831,6 @@
(l isNil or:[(l remove:aProcess ifAbsent:nil) isNil]) ifTrue:[
wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
'Processor [warning]: bad suspend: not on run list' errorPrintCR.
-aProcess printCR.
"/ MiniDebugger enterWithMessage:'bad suspend: not on run list'.
aProcess == activeProcess ifTrue:[
self threadSwitch:scheduler.
@@ -2999,6 +2998,6 @@
!ProcessorScheduler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.172 1999-02-25 20:16:06 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.173 1999-02-26 12:53:03 cg Exp $'
! !
ProcessorScheduler initialize!
--- a/ProcessorScheduler.st Fri Feb 26 13:27:56 1999 +0100
+++ b/ProcessorScheduler.st Fri Feb 26 13:53:03 1999 +0100
@@ -1831,7 +1831,6 @@
(l isNil or:[(l remove:aProcess ifAbsent:nil) isNil]) ifTrue:[
wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
'Processor [warning]: bad suspend: not on run list' errorPrintCR.
-aProcess printCR.
"/ MiniDebugger enterWithMessage:'bad suspend: not on run list'.
aProcess == activeProcess ifTrue:[
self threadSwitch:scheduler.
@@ -2999,6 +2998,6 @@
!ProcessorScheduler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.172 1999-02-25 20:16:06 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.173 1999-02-26 12:53:03 cg Exp $'
! !
ProcessorScheduler initialize!