Smalltalk.st
changeset 16675 39e0cf323c6b
parent 16668 b88318df967d
child 16691 2a12b888e973
--- a/Smalltalk.st	Wed Jul 02 12:47:15 2014 +0200
+++ b/Smalltalk.st	Thu Jul 03 12:59:02 2014 +0200
@@ -227,17 +227,17 @@
      right after startup, usually immediately followed by Smalltalk>>start.
 
      Notice:
-	this is NOT called when an image is restarted; in this
-	case the show starts in Smalltalk>>restart."
+        this is NOT called when an image is restarted; in this
+        case the show starts in Smalltalk>>restart."
 
     Compiler := ByteCodeCompiler.
     Compiler isNil ifTrue:[
-	"
-	 ByteCodeCompiler is not in the system (i.e. has not been linked in)
-	 this allows at least immediate evaluations for runtime systems without compiler
-	 NOTICE: a parser is always needed, otherwise we cannot read resource files etc.
-	"
-	Compiler := Parser
+        "
+         ByteCodeCompiler is not in the system (i.e. has not been linked in)
+         this allows at least immediate evaluations for runtime systems without compiler
+         NOTICE: a parser is always needed, otherwise we cannot read resource files etc.
+        "
+        Compiler := Parser
     ].
 
     "/
@@ -270,14 +270,11 @@
     self initSystemPath.
 
     "/
-    "/ another one, to be initialized before others
-    "/
-    ProcessorScheduler initialize.
-
-    "/
     "/ in case, someone needs the objectFileLoader early
     "/
-    ObjectFileLoader initialize.
+    ObjectFileLoader notNil ifTrue:[
+        ObjectFileLoader initialize.
+    ].
 
     "/
     "/ now, finally, initialize all other classes
@@ -292,7 +289,9 @@
     "/ just to make sure: if any prefs affect any resources,
     "/ flush them here, so they are reread in any case.
     "/ required for some apps, for example to show the menu correctly (see launcher's help menu)
-    ApplicationModel flushAllClassResources.
+    ApplicationModel notNil ifTrue:[
+        ApplicationModel flushAllClassResources.
+    ].
 
     "/
     "/ give classes a chance to perform 2nd-level initialization
@@ -8258,13 +8257,14 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1084 2014-06-30 15:22:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1085 2014-07-03 10:59:02 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1084 2014-06-30 15:22:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1085 2014-07-03 10:59:02 cg Exp $'
 !
 
 version_SVN
     ^ '$ Id: Smalltalk.st 10648 2011-06-23 15:55:10Z vranyj1  $'
 ! !
+