vps.scm: Move (cmd) definition to before reader macro

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