scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add exit, make cd smarter

This commit is contained in:
mainzelm 2005-05-26 17:39:20 +00:00
parent 93c6d96922
commit f681d13f49
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
scheme/std-command.scm
View File

@ -29,7 +29,10 @@
(make-command-plugin "cd" (make-command-plugin "cd"
no-completer no-completer
(lambda (command args) (lambda (command args)
(chdir (car args))))) (chdir (resolve-file-name (if (null? args)
"~"
(car args))))
(cwd))))
(register-plugin! (register-plugin!
(make-command-plugin "setenv" (make-command-plugin "setenv"
@ -49,4 +52,10 @@
(lambda (command args) (lambda (command args)
(env->alist)))) (env->alist))))
(register-plugin!
(make-command-plugin "exit"
no-completer
(lambda (command args)
(exit (if (null? args)
0
(string->number (car args)))))))