From 1537ac999d847c183fcced4e2a104f9052a8e258 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 23 Oct 2012 09:49:44 -0700 Subject: [PATCH] tools.completion: don't use file-directory. --- basis/tools/completion/completion.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/tools/completion/completion.factor b/basis/tools/completion/completion.factor index 4a0e6f88cd..60ca1e7bea 100644 --- 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 ;