[Pkg] The Trunk: Files-ul.108.mcz

[commits at source.squeak.org]

Levente Uzonyi uploaded a new version of Files to project The Trunk:
http://source.squeak.org/trunk/Files-ul.108.mcz

==================== Summary ====================

Name: Files-ul.108
Author: ul
Time: 26 April 2011, 4:17:22.631 am
UUID: 6db817ff-7efb-0846-b0f8-27cdf91b3e65
Ancestors: Files-dtl.107

- use #== for Symbol-Symbol comparison

=============== Diff against Files-dtl.107 ===============

Item was changed:
  ----- Method: FileDirectory>>directoryContentsFor:do: (in category 'private') -----
  directoryContentsFor: fullPath do: aBlock
  "Do aBlock for the files and directories in the directory with the given path. See primLookupEntryIn:index: for further details."
  
  	| f entryArray index |
  	f := fullPath asVmPathName.
  	index := 1.
  	[(entryArray := self primLookupEntryIn: f index: index) == nil] whileFalse: [
+ 		#badDirectoryPath == entryArray ifTrue: [
- 		#badDirectoryPath = entryArray ifTrue: [
  			^(InvalidDirectoryError pathName: pathName) signal].
  		index := index + 1.
  		aBlock value: (DirectoryEntry fromArray: entryArray directory: self) convertFromSystemName]!