guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 3a2c82c09a8cec3347b97807105e3caf9bfc016b
Author: Maxim Cournoyer <[email protected]>
AuthorDate: Thu Feb 12 17:40:27 2026 +0900
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
---
build-aux/update-guix-package.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/build-aux/update-guix-package.scm
b/build-aux/update-guix-package.scm
index 383fcd00fc..2117125f84 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|[email protected]: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)
