--- 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 ...)
"/