diff options
-rw-r--r-- | vps.scm | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -111,6 +111,12 @@ `(lambda (%) ,(read-delimited-list #\] port))) +(define (cmd . args) + (let* ((port (apply popen:open-pipe* OPEN_READ args)) + (out (string-trim-right (rdelim:read-string port)))) + (popen:close-pipe port) + out)) + (read-hash-extend #\[ lambda-shorthand-reader) (define (tick-cmd-reader _char port) @@ -144,12 +150,6 @@ x sexps)) -(define (cmd . args) - (let* ((port (apply popen:open-pipe* OPEN_READ args)) - (out (string-trim-right (rdelim:read-string port)))) - (popen:close-pipe port) - out)) - ;; DNS constants |