--- 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