2011-10-30 18:13:50 -04:00
|
|
|
! Copyright (C) 2011 Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: environment fry io.files io.pathnames io.standard-paths
|
|
|
|
|
kernel sequences splitting system ;
|
|
|
|
|
IN: io.standard-paths.unix
|
|
|
|
|
|
2011-10-31 14:53:07 -04:00
|
|
|
M: unix find-in-path*
|
2011-10-30 18:13:50 -04:00
|
|
|
[ "PATH" os-env ":" split ] dip
|
|
|
|
|
'[ _ append-path exists? ] find nip ;
|
|
|
|
|
|
