Bugfix in Smalltalk: care for non-existent directories when loading abbrevs. jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 20 Nov 2013 15:12:13 +0000
branchjv
changeset 18106 48ba10eeb21c
parent 18105 3a3a3e0ac47f
child 18107 d46c13a0795b
Bugfix in Smalltalk: care for non-existent directories when loading abbrevs.
Smalltalk.st
--- a/Smalltalk.st	Mon Nov 04 11:11:22 2013 -0300
+++ b/Smalltalk.st	Wed Nov 20 15:12:13 2013 +0000
@@ -5202,6 +5202,10 @@
     |dir noAutoloadHere dirName directoryContents haveAbbrevDotSTC|
 
     dir := aDirectory asFilename.
+
+    "/ Care for non-existent directories"
+    dir exists ifFalse:[ ^ self ].
+
     dirName := dir physicalPathName.            "take care of symbolic links"
 
     (dirsConsulted includes:dirName) ifTrue:[