diff -r 88a4f36a6912 -r 67fb3c4db3a4 smalltalk.rc --- a/smalltalk.rc Mon Jun 27 07:30:29 2016 +0100 +++ b/smalltalk.rc Mon Jun 27 08:05:05 2016 +0100 @@ -144,40 +144,7 @@ Smalltalk systemPath addFirst:Filename currentDirectory pathName. ]. -(path := OperatingSystem getEnvironment:'STX_PACKAGEPATH') notNil ifTrue:[ - Smalltalk packagePath:(path asCollectionOfSubstringsSeparatedBy:$:). - 'smalltalk.rc [info]: setting packagePath from STX_PACKAGEPATH' infoPrintCR. -] ifFalse:[ - "/ - "/ if running in the development environment, - "/ only use the local packages. - "/ - (pathOfSTXExecutable notNil - and:[(pathOfSTXExecutable construct:'../../../stx/projects/smalltalk') exists]) ifTrue:[ - Smalltalk packagePath removeAll; add:(pathOfSTXExecutable construct:'../../..') pathName. - 'smalltalk.rc [info]: setting packagePath for local operation' infoPrintCR. - ] ifFalse:[ - (pathOfCurrentDir construct:'../../../stx/projects/smalltalk') exists ifTrue:[ - Smalltalk packagePath removeAll; add:(pathOfCurrentDir construct:'../../..') pathName. - 'smalltalk.rc [info]: setting packagePath for local operation' infoPrintCR. - ] - ]. - - "/ - "/ any additional local packages ?. - "/ - 'packages' asFilename exists ifTrue:[ - (Smalltalk packagePath includes:'packages' asFilename pathName) ifFalse:[ - Smalltalk packagePath addFirst:'packages' asFilename pathName. - ]. - ]. -]. - "/ 'systemPath: ' errorPrint. Smalltalk systemPath errorPrintCR. -"/ 'packagePath: ' errorPrint. Smalltalk packagePath errorPrintCR. -Smalltalk packagePath isEmpty ifTrue:[ - 'smalltalk.rc [warning]: packagePath is empty' errorPrintCR. -]. Smalltalk flushPathCaches. !