From 4320c730db58a59cb4f78e136735c518a85fbd3a Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 12 Sep 2005 13:42:21 +0000
Subject: [PATCH] Present completions for "cd" with a final /

---
 scheme/std-command.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scheme/std-command.scm b/scheme/std-command.scm
index 3594a32..7d6d4f3 100644
--- a/scheme/std-command.scm
+++ b/scheme/std-command.scm
@@ -208,7 +208,8 @@
 		 (esc #f)
 		 (more)))
 	   (lambda ()
-	     (and (file-directory? file) file))))))
+	     (and (file-directory? file)
+                  (file-name-as-directory file)))))))
      (or (to-complete-prefix to-complete) (cwd))))
   (lambda (command args)
     (chdir (resolve-file-name (if (null? args)