from macros to functions

macros.scm

@@ -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))))

shell.scm

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