diff options
| author | Maxim Cournoyer <maxim@guixotic.coop> | 2026-02-12 17:40:27 +0900 |
|---|---|---|
| committer | Maxim Cournoyer <maxim@guixotic.coop> | 2026-02-13 15:01:33 +0900 |
| commit | 3a2c82c09a8cec3347b97807105e3caf9bfc016b (patch) | |
| tree | d6ac1775ec535355b3b1d483466ccd8982715b20 /build-aux | |
| parent | 875eb949e9bd2fe217b3a148260ae76f0ec37d78 (diff) | |
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
Diffstat (limited to 'build-aux')
| -rw-r--r-- | build-aux/update-guix-package.scm | 6 |
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) |