--- a/smalltalk.rc Fri Dec 23 11:51:37 2005 +0100
+++ b/smalltalk.rc Fri Dec 23 17:36:32 2005 +0100
@@ -99,7 +99,10 @@
|path pathOfSTXExecutable|
-'systemPath before: ' print. Smalltalk systemPath printCR.
+'systemPath before: ' infoPrint. Smalltalk systemPath infoPrintCR.
+'exec: ' infoPrint. OperatingSystem nameOfSTXExecutable infoPrintCR.
+'execPath: ' infoPrint. OperatingSystem pathOfSTXExecutable infoPrintCR.
+
pathOfSTXExecutable := OperatingSystem pathOfSTXExecutable asFilename directory.
(path := OperatingSystem getEnvironment:'STX_SYSTEMPATH') notNil ifTrue:[
@@ -130,7 +133,7 @@
(path := OperatingSystem getEnvironment:'STX_PACKAGEPATH') notNil ifTrue:[
Smalltalk packagePath:(path asCollectionOfSubstringsSeparatedBy:$:).
- 'smalltalk.rc [info]: setting packagePath from STX_PACKAGEPATH' printCR.
+ 'smalltalk.rc [info]: setting packagePath from STX_PACKAGEPATH' infoPrintCR.
] ifFalse:[
"/
"/ if running in the development environment,
@@ -138,7 +141,7 @@
"/
(pathOfSTXExecutable construct:'../../../stx/projects/smalltalk') exists ifTrue:[
Smalltalk packagePath removeAll; add:(pathOfSTXExecutable construct:'../../..') pathName.
- 'smalltalk.rc [info]: setting packagePath for local operation' printCR.
+ 'smalltalk.rc [info]: setting packagePath for local operation' infoPrintCR.
].
"/