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

2012-10-23 09:49:44 -07:00 · 2012-10-23 09:49:44 -07:00 · 1537ac999d
parent 5c810c2fa5
commit 1537ac999d
1 changed files with 1 additions and 1 deletions
--- a/basis/tools/completion/completion.factor
+++ b/basis/tools/completion/completion.factor
@ -121,7 +121,7 @@ PRIVATE>
 PRIVATE>

 : 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&&
    [ directory-paths completions ] [ 2drop { } ] if ;