smalltalk.rc
changeset 426 74cc4af22873
parent 424 4b6de7399a42
child 428 a73fe2bfa29e
--- a/smalltalk.rc	Mon Feb 07 13:26:52 2000 +0100
+++ b/smalltalk.rc	Mon Feb 07 13:44:33 2000 +0100
@@ -238,7 +238,8 @@
 "/ For now, this is experimental. Once the best numbers
 "/ have been found, I'll hardwire them and document it ...
 
-|a|
+|a needToReactivate|
+
 ObjectMemory newSpaceSize > (500*1024) ifTrue:[
     a := #(nil nil nil nil -16 -4 -2 -2 0 0 16 nil) copy.
 ] ifFalse:[
@@ -278,6 +279,23 @@
 Autoload compileLazy:true.
 
 "/
+"/ read the abbrev.stc file, extract class names
+"/ and install all nonExisting classes as autoloaded
+"/
+HistoryManager notNil ifTrue:[
+    needToReactivate := HistoryManager isActive.
+    HistoryManager deactivate.
+] ifFalse:[
+    needToReactivate := false
+].
+
+Class withoutUpdatingChangesDo:[   
+   'smalltalk.rc [info]: installing autoloaded classes ...' infoPrintCR.
+   Smalltalk installAutoloadedClasses.
+].
+needToReactivate ifTrue:[HistoryManager activate].
+
+"/
 "/ define the language (you can also set the LANG-shell variable)
 "/ (currently #english, #german and #french are supported).
 "/ some fragments for other languages (japanese ;-) exist.
@@ -346,25 +364,6 @@
 !
 
 "/
-"/ read the abbrev.stc file, extract class names
-"/ and install all nonExisting classes as autoloaded
-"/
-|needToReactivate|
-
-HistoryManager notNil ifTrue:[
-    needToReactivate := HistoryManager isActive.
-    HistoryManager deactivate.
-] ifFalse:[
-    needToReactivate := false
-].
-
-Class withoutUpdatingChangesDo:[   
-   'smalltalk.rc [info]: installing autoloaded classes ...' infoPrintCR.
-   Smalltalk installAutoloadedClasses.
-].
-needToReactivate ifTrue:[HistoryManager activate].
-
-"/
 "/ some ST80 name aliases
 "/ (actually, much more is needed - this is just a start ...)
 "/