equal
deleted
inserted
replaced
356 (root exists and:[root isDirectory and:[root isReadable]]) |
356 (root exists and:[root isDirectory and:[root isReadable]]) |
357 ifFalse:[ |
357 ifFalse:[ |
358 "/ search backward from aFilename for the last readable dir. |
358 "/ search backward from aFilename for the last readable dir. |
359 root := f. |
359 root := f. |
360 parent := root directory. |
360 parent := root directory. |
361 [parent exists and:[parent isDirectory and:[parent isReadable]]] |
361 [parent ~= root |
|
362 and:[parent exists |
|
363 and:[parent isDirectory |
|
364 and:[parent isReadable]]]] |
362 whileTrue:[ |
365 whileTrue:[ |
363 root := parent. |
366 root := parent. |
364 parent := root directory. |
367 parent := root directory. |
365 ]. |
368 ]. |
366 ]. |
369 ]. |