diff options
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/path-test.tl | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/stdlib/path-test.tl b/stdlib/path-test.tl index 4d700167..04ed2055 100644 --- a/stdlib/path-test.tl +++ b/stdlib/path-test.tl @@ -185,16 +185,3 @@ (casequal ent (("." "..")) (t (return nil)))))))) - -(defun path-search (name : (path (getenv "PATH"))) - (if (empty name) - nil - (let ((pcomp (if (listp path) - path - (spl (if (starts-with "CYGNAL" (uname).sysname) #\; #\:) - path)))) - (each ((pc pcomp)) - (if (nequal pc "") - (let ((st (ignerr (stat (path-cat pc name))))) - (if (and st (path-executable-to-me-p st) (path-file-p st)) - (return st.path)))))))) |