tjhintz/chicken-scheme-shell
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

from macros to functions

Browse Source
This commit is contained in:
thintz
2012-08-07 14:06:31 -07:00
parent 591e4e9344
commit eb3dc0d2a4
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
macros.scm
View File

@@ -1,3 +1 @@
(define-syntax _ (syntax-rules () ((_ . cmd) (run (fold (lambda (e o) (string-append o " " (->string e))) "" 'cmd))))) (define-syntax _raw (syntax-rules () ((_raw . cmd) (run (fold (lambda (e o) (string-append o " " (->string e))) "" 'cmd)))))
(define-syntax _rl (syntax-rules () ((_rl . cmd) (cmd->list (fold (lambda (e o) (string-append o " " (->string e))) "" 'cmd) read-line))))
(define-syntax _rc (syntax-rules () ((_rc f . cmd) (cmd->list (fold (lambda (e o) (string-append o " " (->string e))) "" 'cmd) 'f))))

2
shell.scm
View File

@@ -43,6 +43,8 @@
(define (run cmd) (process-wait (process-run cmd))) (define (run cmd) (process-wait (process-run cmd)))
(define (_ . r) (cmd->list (fold (lambda (e o) (++ o " " e)) "" r) read-line))
(define (shell-repl) (define (shell-repl)
(if (exit?) (if (exit?)
#t #t