[Wisp-cvs] wisp/users/pisi dialect.pisi.wim,1.5,1.6

[<pi...@us...>]

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