aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--vps.scm12
1 files changed, 6 insertions, 6 deletions
diff --git a/vps.scm b/vps.scm
index 96b7e4f..0a3497d 100644
--- a/vps.scm
+++ b/vps.scm
@@ -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