build-aux: Turn `with-input-pipe-to-string' into a procedure.

There is no reason this should be syntax.

* build-aux/update-guix-package.scm (with-input-pipe-to-string): Make it a
procedure.

Change-Id: I96daeb40eb9202c542a7906926f2e25765d5078f

1 files changed, 3 insertions, 3 deletions

diff --git a/build-aux/update-guix-package.scm b/build-aux/update-guix-package.scm
index 383fcd00fc7..2117125f845 100644
--- a/build-aux/update-guix-package.scm
+++ b/build-aux/update-guix-package.scm
@@ -128,13 +128,13 @@ COMMIT.  PROC receives the temporary directory file name as an argument."
 (define %guix-git-repo-push-url-regexp
   "(git.guix.gnu.org|codeberg.org/guix|git@codeberg.org:guix)/guix(.git)? \\(push\\)")
 
-(define-syntax-rule (with-input-pipe-to-string prog arg ...)
-  (let* ((input-pipe (open-pipe* OPEN_READ prog arg ...))
+(define (with-input-pipe-to-string prog . args)
+  (let* ((input-pipe (apply open-pipe* OPEN_READ prog args))
          (output (get-string-all input-pipe))
          (exit-val (status:exit-val (close-pipe input-pipe))))
     (unless (zero? exit-val)
       (error (format #f "Command ~s exited with non-zero exit status: ~s"
-                     (string-join (list prog arg ...)) exit-val)))
+                     (string-join (cons prog args)) exit-val)))
     (string-trim-both output)))
 
 (define (find-origin-remote)