Return absolute paths in files-in-dir

2005-09-12 15:54:53 +00:00 · 2005-09-12 15:54:53 +00:00 · 41ac17dbe6
parent 186cebc46a
commit 41ac17dbe6
1 changed files with 2 additions and 3 deletions
--- a/scheme/complete-util.scm
+++ b/scheme/complete-util.scm
@ -18,9 +18,8 @@

 (define (files-in-dir file-filter dir)
  (debug-message "files-in-dir " file-filter " " dir)
-  (with-cwd dir
-    (filter-map file-filter 
-		(glob-carefully "*"))))
+  (filter-map file-filter 
+              (glob-carefully (string-append dir "*"))))

 (define (complete-path path)
  (debug-message "complete-path " path ", " (cwd))