Add exit, make cd smarter

2005-05-26 17:39:20 +00:00 · 2005-05-26 17:39:20 +00:00 · f681d13f49
parent 93c6d96922
commit f681d13f49
1 changed files with 11 additions and 2 deletions
--- a/scheme/std-command.scm
+++ b/scheme/std-command.scm
@ -29,7 +29,10 @@
 (make-command-plugin "cd"
 		      no-completer
 		      (lambda (command args)
- 			(chdir (car args)))))
+ 			(chdir (resolve-file-name (if (null? args)
+                                                      "~"
+                                                      (car args))))
+                        (cwd))))

 (register-plugin!
 (make-command-plugin "setenv"
@ -49,4 +52,10 @@
 		      (lambda (command args)
 			(env->alist))))

-
+(register-plugin!
+ (make-command-plugin "exit"
+                      no-completer
+                      (lambda (command args)
+                        (exit (if (null? args)
+                                  0
+                                  (string->number (car args)))))))