~cy-de-fect/HaverOnCuis commit

1 files changed, 9 insertions(+), 9 deletions(-)

M Haverize.st

M Haverize.st +9 -9

@@ 1,13 1,13 @@ 
 | haverSourceDirectory haverVersion |
-(haverSourceDirectory := (DirectoryEntry smalltalkImageDirectory) / 'HaverOnCuis')
-    isDirectory ifFalse: [
-        haverSourceDirectory := (DirectoryEntry currentDirectory) ].
+(haverSourceDirectory := 
+	DirectoryEntry smalltalkImageDirectory / 'HaverOnCuis') exists ifFalse: [
+		haverSourceDirectory := (DirectoryEntry currentDirectory) ].
 haverVersion :=
-    haverSourceDirectory // 'HaverVersionNumber.txt' ::
-        readStream nextNumber.
+	haverSourceDirectory // 'HaverVersionNumber.txt' ::
+		readStream nextNumber.
 Feature 
-    require:
-        (haverSourceDirectory / 'haver' // 'Haverize.pck.st' :: pathName).
+	require:
+		(haverSourceDirectory / 'haver' // 'Haverize.pck.st' :: pathName).
 HaverizePackage
-    haverVersion: haverVersion;
-    saveAsNewHaverVersionWhenIntegrating
+	haverVersion: haverVersion;
+	saveAsNewHaverVersionWhenIntegrating