--- a/smalltalk.rc Fri Dec 24 03:33:44 1999 +0100
+++ b/smalltalk.rc Sat Jan 08 16:34:48 2000 +0100
@@ -42,7 +42,7 @@
"/ funny viewStyles, colors and stupid strings if wrong.
"/
-|path|
+|path systemPath|
(path := OperatingSystem getEnvironment:'STX_SYSTEMPATH') notNil ifTrue:[
Smalltalk systemPath:(path asCollectionOfSubstringsSeparatedBy:$:)
@@ -57,7 +57,9 @@
]
].
(path := OperatingSystem getEnvironment:'STX_PACKAGEPATH') notNil ifTrue:[
- Smalltalk packagePath:(path asCollectionOfSubstringsSeparatedBy:$:)
+ Smalltalk packagePath:(path asCollectionOfSubstringsSeparatedBy:$:).
+"/ 'setting packagePath from STX_PACKAGEPATH' printCR.
+"/ 'packagePath: ' print. Smalltalk packagePath printCR.
] ifFalse:[
"/
"/ if running in the development environment,
@@ -65,12 +67,16 @@
"/
'../../../stx/doc' asFilename exists ifTrue:[
Smalltalk packagePath removeAll; add:'../../..'.
+"/ 'setting packagePath for local operation' printCR.
+"/ 'packagePath: ' print. Smalltalk packagePath printCR.
].
"/
"/ any additional local packages ?.
"/
'packages' asFilename exists ifTrue:[
Smalltalk packagePath addFirst:'./packages'.
+"/ 'additional local packages' printCR.
+"/ 'packagePath: ' print. Smalltalk packagePath printCR.
].
].
@@ -81,10 +87,8 @@
"/ but, the current directory should always be first ...
(Smalltalk systemPath includes:'.') ifTrue:[
Smalltalk systemPath remove:'.'.
- Smalltalk systemPath addFirst:'.'.
-] ifFalse:[
- Smalltalk systemPath addFirst:'.'.
].
+Smalltalk systemPath addFirst:'.'.
Smalltalk flushPathCaches.
!