UnixOperatingSystem.st
changeset 7085 71d0e451114d
parent 7079 07625dfffcbf
child 7109 0c5c8be61083
--- a/UnixOperatingSystem.st	Fri Feb 28 19:11:52 2003 +0100
+++ b/UnixOperatingSystem.st	Sun Mar 02 19:30:03 2003 +0100
@@ -8330,35 +8330,35 @@
 
     sysPath := super defaultSystemPath.
     #(
-	'/usr/local/lib/stx'
-	'/usr/local/lib/smalltalk'
-	'/usr/lib/stx'
-	'/usr/lib/smalltalk'
-	'/lib/stx'
-	'/lib/smalltalk'
-	'/opt/stx'
-	'/opt/smalltalk'
+        '/usr/local/lib/stx'
+        '/usr/local/lib/smalltalk'
+        '/usr/lib/stx'
+        '/usr/lib/smalltalk'
+        '/lib/stx'
+        '/lib/smalltalk'
+        '/opt/stx'
+        '/opt/smalltalk'
     ) do:[:d |
-	(d asFilename isDirectory) ifTrue:[
-	    "/ try to guess a gnu-smalltalk; skip it
-	    (d asFilename construct:'initialize.st') exists ifFalse:[
-		releaseFile := d asFilename construct:'RELEASE'.
-		releaseFile exists ifTrue:[
-		    s := releaseFile readStream.
-		    s notNil ifTrue:[
-			v := Integer readFrom:s onError:-1.
-			s close.
-			v == majorVersionNr ifTrue:[
-			    sysPath add:d
-			] ifFalse:[
-			    ('UnixOperatingSystem [info]: ignore files in ' , d asFilename pathName , ' (RELEASE mismatch)') infoPrintCR.
-			]
-		    ] ifFalse:[
-			('UnixOperatingSystem [info]: ignore files in ' , d asFilename pathName , ' (RELEASE missing)') infoPrintCR.
-		    ]
-		]
-	    ]
-	]
+        (d asFilename isDirectory) ifTrue:[
+            "/ try to guess a gnu-smalltalk; skip it
+            (d asFilename construct:'initialize.st') exists ifFalse:[
+                releaseFile := d asFilename construct:'RELEASE'.
+                releaseFile exists ifTrue:[
+                    s := releaseFile readStreamOrNil.
+                    s notNil ifTrue:[
+                        v := Integer readFrom:s onError:-1.
+                        s close.
+                        v == majorVersionNr ifTrue:[
+                            sysPath add:d
+                        ] ifFalse:[
+                            ('UnixOperatingSystem [info]: ignore files in ' , d asFilename pathName , ' (RELEASE mismatch)') infoPrintCR.
+                        ]
+                    ] ifFalse:[
+                        ('UnixOperatingSystem [info]: ignore files in ' , d asFilename pathName , ' (RELEASE missing)') infoPrintCR.
+                    ]
+                ]
+            ]
+        ]
     ].
     ^ sysPath
 
@@ -12229,7 +12229,7 @@
 !UnixOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.144 2003-02-27 14:40:01 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.145 2003-03-02 18:28:50 stefan Exp $'
 ! !
 
 UnixOperatingSystem initialize!