Smalltalk.st
changeset 24376 746ce8c19ac4
parent 24136 0f13645d4faf
child 24405 1cd295707fd7
--- a/Smalltalk.st	Thu Jun 27 12:42:47 2019 +0200
+++ b/Smalltalk.st	Thu Jun 27 12:43:56 2019 +0200
@@ -822,6 +822,7 @@
     Stdout reOpen. Stderr reOpen. Stdin reOpen.
 ! !
 
+
 !Smalltalk class methodsFor:'Compatibility-GNU'!
 
 system:command
@@ -7771,16 +7772,16 @@
     filenameWithoutSuffix:= filenameWithoutSuffixArg asFilename.
 
     ProgrammingLanguage
-	allDo:[:lang |
-	    |file|
-
-	    file := self
-		    getPackageFileName:(filenameWithoutSuffix addSuffix:lang sourceFileSuffix).
-	    file notNil ifTrue:[ ^ file ]
-	].
+        allDo:[:lang |
+            |file|
+
+            file := self getPackageFileName:(filenameWithoutSuffix addSuffix:lang sourceFileSuffix).
+            file notNil ifTrue:[ ^ file ]
+        ].
     ^ nil
 
     "Created: / 16-08-2009 / 14:44:58 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified (format): / 27-06-2019 / 12:32:39 / Claus Gittinger"
 !
 
 getResourceFileName:aFileName