--- a/ProcSched.st Thu Aug 03 05:26:11 1995 +0200
+++ b/ProcSched.st Sat Aug 05 16:05:36 1995 +0200
@@ -35,7 +35,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.43 1995-07-28 02:37:48 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.44 1995-08-05 14:05:36 claus Exp $
'!
Smalltalk at:#Processor put:nil!
@@ -58,7 +58,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.43 1995-07-28 02:37:48 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.44 1995-08-05 14:05:36 claus Exp $
"
!
@@ -1150,7 +1150,7 @@
any := false.
nActions := readCheckArray size.
1 to:nActions do:[:index |
- |checkBlock sema action|
+ |checkBlock sema|
checkBlock := readCheckArray at:index.
(checkBlock notNil and:[checkBlock value]) ifTrue:[
--- a/ProcessorScheduler.st Thu Aug 03 05:26:11 1995 +0200
+++ b/ProcessorScheduler.st Sat Aug 05 16:05:36 1995 +0200
@@ -35,7 +35,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.43 1995-07-28 02:37:48 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.44 1995-08-05 14:05:36 claus Exp $
'!
Smalltalk at:#Processor put:nil!
@@ -58,7 +58,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.43 1995-07-28 02:37:48 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.44 1995-08-05 14:05:36 claus Exp $
"
!
@@ -1150,7 +1150,7 @@
any := false.
nActions := readCheckArray size.
1 to:nActions do:[:index |
- |checkBlock sema action|
+ |checkBlock sema|
checkBlock := readCheckArray at:index.
(checkBlock notNil and:[checkBlock value]) ifTrue:[