From 86f7ee4241f9499710660e20d337c05bdbf814f7 Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Fri, 19 Feb 2021 11:40:14 -0300 Subject: vps.scm: Move (cmd) definition to before reader macro --- vps.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'vps.scm') 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 -- cgit v1.2.3