equal
deleted
inserted
replaced
27 ] |
27 ] |
28 ]. |
28 ]. |
29 k notNil ifTrue:[ |
29 k notNil ifTrue:[ |
30 libDir := k valueNamed:'LibDir'. |
30 libDir := k valueNamed:'LibDir'. |
31 (libDir notNil and:[libDir asFilename exists]) ifTrue:[ |
31 (libDir notNil and:[libDir asFilename exists]) ifTrue:[ |
32 Smalltalk systemPath addFirst:libDir. |
32 (Smalltalk systemPath includes:(libDir asFilename pathName)) ifFalse:[ |
33 Smalltalk flushPathCaches |
33 Smalltalk systemPath addFirst:(libDir asFilename pathName). |
|
34 Smalltalk flushPathCaches |
|
35 ] |
34 ]. |
36 ]. |
35 k close. |
37 k close. |
36 ]. |
38 ]. |
37 ! |
39 ! |
38 |
40 |