--- a/private.rc Fri Aug 08 18:00:39 1997 +0200
+++ b/private.rc Fri Aug 08 18:05:26 1997 +0200
@@ -222,13 +222,15 @@
].
incDir := Smalltalk getSystemFileName:'include'.
incDir notNil ifTrue:[
- incDir asFilename exists ifTrue:[
- includes := includes , '-I' , incDir asFilename pathName , ' '
- ]
-].
-('/usr/local/lib/smalltalk/include' asFilename exists) ifTrue:[
+ includes := includes , '-I' , incDir asFilename pathName , ' '
+] ifFalse:[
"/ running in a shared environment ...
includes := includes , '-I/usr/local/lib/smalltalk/include '.
+
+ ('/usr/local/lib/smalltalk/include' asFilename exists) ifFalse:[
+ 'private.rc [warning]: no include directory found (STX_PATH or /usr/local/lib/smalltalk).' errorPrintCR.
+ 'private.rc [info]: this may affect stc-compilation from within the browser.' infoPrintCR.
+ ].
].
Compiler stcCompilationIncludes:includes.