StandaloneStartup.st
branchjv
changeset 24906 c72a81776a28
parent 20727 fb8c5591428b
--- a/StandaloneStartup.st	Fri Jul 19 12:22:40 2019 +0100
+++ b/StandaloneStartup.st	Tue Jul 23 14:40:39 2019 +0100
@@ -994,7 +994,7 @@
         --allowHost host ..... add host to the allowed scripting hosts
     "
 
-    |idx debugging baseDir|
+    |idx debugging|
 
 "/    Smalltalk beHeadless:true.
 "/    OperatingSystem disableSignal:(OperatingSystem sigHUP).
@@ -1029,18 +1029,6 @@
     ] ifFalse:[
         self setupToolsForNoDebug.
     ].
-    baseDir := OperatingSystem pathOfSTXExecutable asFilename directory.
-    baseDir baseName = 'application' ifTrue:[
-        ".../work/exept/expecco/application/expecco -> .../work/"
-        baseDir := baseDir directory directory directory.
-        Smalltalk packagePath 
-                    add:(baseDir pathName).
-    ] ifFalse:[
-        "/opt/expecco/bin/expecco -> /opt/expecco/"
-        baseDir := baseDir directory.
-        Smalltalk packagePath 
-                    add:(baseDir constructString:'packages').
-    ].
 
     (self suppressRCFileReading) ifFalse:[
         self handleRCFileOptionsFromArguments:argv.
@@ -1055,6 +1043,7 @@
     ^ true
 
     "Modified: / 24-05-2011 / 16:14:45 / cg"
+    "Modified: / 23-07-2019 / 14:28:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 setupToolsForDebug
@@ -1268,6 +1257,11 @@
 
 version_CVS
     ^ '$Header$'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !