--- a/ByteCodeCompiler.st Tue Feb 25 12:54:43 2003 +0100
+++ b/ByteCodeCompiler.st Tue Feb 25 20:43:38 2003 +0100
@@ -811,13 +811,21 @@
"return the path to the stc command for incremental method compilation,
or nil if not found."
- |f|
+ |f cmd|
STC notNil ifTrue:[
- ^ STC
+ cmd := STC
+ ] ifFalse:[
+ (f := self stcPathOf:'stc') notNil ifTrue:[
+ cmd := f
+ ] ifFalse:[
+ cmd := self stcPathOf:'demostc'
+ ]
].
- (f := self stcPathOf:'stc') notNil ifTrue:[^ f].
- ^ self stcPathOf:'demostc'
+ (cmd includes:Character space) ifTrue:[
+ cmd := '"' , cmd , '"'.
+ ].
+ ^cmd
"
Compiler stcPath:'../../stc/stc'
@@ -3820,7 +3828,7 @@
!ByteCodeCompiler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.210 2003-02-25 11:48:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.211 2003-02-25 19:43:38 penk Exp $'
! !
ByteCodeCompiler initialize!