Shell now uses path and it's own REPL

master
Thomas Hintz 14 years ago
parent 1d7015aa31
commit da4fc7f5d2

@ -1,12 +1,12 @@
(use shell)
(include "../macs/general-macs.scm")
(define-syntax mk-shell-cmd
(syntax-rules ()
((mk-shell-cmd cmd)
(define-syntax cmd
(syntax-rules ()
((cmd . r)
(execute '((cmd . r)))))))))
(define (shell-repl)
(let ((x (read)))
(if (eq? x 'exit)
#t
(begin (execute (list x))
(newline)
(display "#;> ")
(shell-repl)))))
(mac-apply mk-shell-cmd ls pwd cat rm touch cd ps grep kill killall mkdir mv top alsamixer nano emacs git)
(shell-repl)
Loading…
Cancel
Save