--- a/Smalltalk.st Sun Jul 31 09:30:26 2011 +0200
+++ b/Smalltalk.st Sun Jul 31 20:02:53 2011 +0200
@@ -3996,6 +3996,7 @@
idx := CommandLineArguments indexOf:'--repl'.
idx ~~ 0 ifTrue:[
CommandLineArguments removeAtIndex:idx.
+ self startSchedulerAndBackgroundCollector.
self readEvalPrint.
self exit.
].
@@ -4019,6 +4020,7 @@
CommandLineArguments
removeAtIndex:idx+1; removeAtIndex:idx.
+ self startSchedulerAndBackgroundCollector.
arg = '-' ifTrue:[
self fileInStream:Stdin
lazy:nil
@@ -4043,6 +4045,7 @@
CommandLineArguments
removeAtIndex:idx+1; removeAtIndex:idx.
+ self startSchedulerAndBackgroundCollector.
self
fileInStream:arg readStream
lazy:nil
@@ -4067,6 +4070,7 @@
].
commandFile notNil ifTrue:[
+ self startSchedulerAndBackgroundCollector.
(self secureFileIn:commandFile) ifFalse:[
('Smalltalk [error]: startup file "', commandFile, '" not found.') errorPrintCR.
OperatingSystem exit:1.
@@ -4114,10 +4118,7 @@
ObjectMemory startBackgroundCollectorAt:5.
ObjectMemory startBackgroundFinalizationAt:5.
self addStartBlock:[
- Processor startTimeSlicing.
- Processor supportDynamicPriorities:true.
- ObjectMemory backgroundCollectProcess priorityRange:(4 to:9).
- ObjectMemory backgroundFinalizationProcess priorityRange:(4 to:9).
+ self startSchedulerAndBackgroundCollector
].
].
].
@@ -4129,7 +4130,16 @@
self mainStartup:graphicalMode
- "Modified: / 29-07-2011 / 18:07:15 / cg"
+ "Modified: / 31-07-2011 / 20:02:37 / cg"
+!
+
+startSchedulerAndBackgroundCollector
+ Processor startTimeSlicing.
+ Processor supportDynamicPriorities:true.
+ ObjectMemory backgroundCollectProcess priorityRange:(4 to:9).
+ ObjectMemory backgroundFinalizationProcess priorityRange:(4 to:9).
+
+ "Created: / 31-07-2011 / 20:01:33 / cg"
!
startStartBlockProcess
@@ -7616,11 +7626,11 @@
!Smalltalk class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.963 2011-07-29 18:41:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.964 2011-07-31 18:02:53 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.963 2011-07-29 18:41:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.964 2011-07-31 18:02:53 cg Exp $'
!
version_SVN