From daa7bf3d22d09f6a36e1dcda432014df8fff9e0c Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 22 Oct 2012 19:17:52 -0700
Subject: [PATCH] tools.completion: minor fix to complete against file-name,
 not full-path.

---
 basis/tools/completion/completion.factor | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/basis/tools/completion/completion.factor b/basis/tools/completion/completion.factor
index ba8cbdf6d5..4a0e6f88cd 100644
--- a/basis/tools/completion/completion.factor
+++ b/basis/tools/completion/completion.factor
@@ -109,21 +109,21 @@ PRIVATE>
 
 <PRIVATE
 
-: directory-paths ( directory -- paths )
+: directory-paths ( directory -- alist )
     dup '[
         [
-            [ _ prepend-path ]
+            [ dup _ prepend-path ]
             [ file-info directory? [ path-separator append ] when ]
-            bi
-        ] map
+            bi swap
+        ] { } map>assoc
     ] with-directory-files ;
 
 PRIVATE>
 
 : paths-matching ( str -- seq )
-    dup file-directory [ ?head drop ] keep
+    dup file-directory [ ?head drop trim-head-separators ] keep
     dup { [ exists? ] [ file-info directory? ] } 1&&
-    [ directory-paths dup zip completions ] [ 2drop { } ] if ;
+    [ directory-paths completions ] [ 2drop { } ] if ;
 
 <PRIVATE