steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.completion: don't use file-directory.

db4
John Benediktsson 2012-10-23 09:49:44 -07:00
parent 5c810c2fa5
commit 1537ac999d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/tools/completion/completion.factor
View File

@ -121,7 +121,7 @@ PRIVATE>
PRIVATE> PRIVATE>
: paths-matching ( str -- seq ) : paths-matching ( str -- seq )
dup file-directory [ ?head drop trim-head-separators ] keep dup last-path-separator [ 1 + cut ] [ drop "" ] if swap
dup { [ exists? ] [ file-info directory? ] } 1&& dup { [ exists? ] [ file-info directory? ] } 1&&
[ directory-paths completions ] [ 2drop { } ] if ; [ directory-paths completions ] [ 2drop { } ] if ;