equal
deleted
inserted
replaced
109 path := path asFilename directoryName. |
109 path := path asFilename directoryName. |
110 ('smalltalk.rc [info]: found gnu-smalltalk sources in ' , path , '; removed from systemPath.') infoPrintCR. |
110 ('smalltalk.rc [info]: found gnu-smalltalk sources in ' , path , '; removed from systemPath.') infoPrintCR. |
111 Smalltalk systemPath:(Smalltalk systemPath remove:path; yourself). |
111 Smalltalk systemPath:(Smalltalk systemPath remove:path; yourself). |
112 ] |
112 ] |
113 ]. |
113 ]. |
114 '../../libbasic' asFilename exists ifTrue:[ |
114 '../../../stx/libbasic' asFilename exists ifTrue:[ |
115 Smalltalk systemPath addFirst:'../..'. |
115 Smalltalk systemPath addFirst:'../../../stx'. |
116 ]. |
116 ]. |
117 |
117 |
118 "/ but, the current directory should always be first... |
118 "/ but, the current directory should always be first... |
119 (Smalltalk systemPath includes:'.') ifTrue:[ |
119 (Smalltalk systemPath includes:'.') ifTrue:[ |
120 Smalltalk systemPath remove:'.'. |
120 Smalltalk systemPath remove:'.'. |
127 ] ifFalse:[ |
127 ] ifFalse:[ |
128 "/ |
128 "/ |
129 "/ if running in the development environment, |
129 "/ if running in the development environment, |
130 "/ only use the local packages. |
130 "/ only use the local packages. |
131 "/ |
131 "/ |
132 '../../projects/smalltalk' asFilename exists ifTrue:[ |
132 '../../../stx/projects/smalltalk' asFilename exists ifTrue:[ |
133 Smalltalk packagePath removeAll; add:'../../..'. |
133 Smalltalk packagePath removeAll; add:'../../..'. |
134 'smalltalk.rc [info]: setting packagePath for local operation' printCR. |
134 'smalltalk.rc [info]: setting packagePath for local operation' printCR. |
135 ]. |
135 ]. |
136 |
136 |
137 "/ |
137 "/ |