Update of /cvsroot/wisp/wisp/users/pisi
In directory sc8-pr-cvs1:/tmp/cvs-serv22110
Modified Files:
dialect.pisi.wim
Log Message:
honour PATH
Index: dialect.pisi.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/users/pisi/dialect.pisi.wim,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- dialect.pisi.wim 9 Feb 2003 11:41:31 -0000 1.5
+++ dialect.pisi.wim 9 Feb 2003 11:59:14 -0000 1.6
@@ -20,7 +20,10 @@
(loop)))
;;; (unix-command "command with options" (pathref))
-(define (unix-command commando (*pathlist* '("/usr/bin" "/bin" "/sbin" "/usr/sbin")))
+(define (unix-command commando (*pathlist* (cond
+ ((env-ref "PATH") (split-by-char #\: (env-ref "PATH")))
+ (else '()))))
+
(if (not (any
(lambda (otsikoht)
(try
|
