From 8b682bf61f4a36e6fccad0429c592c4b442fa44f Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 3 Jul 2019 20:28:04 -0700 Subject: [PATCH] devops: Use string*. --- src/devops/build.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/devops/build.scm b/src/devops/build.scm index 3527ca11b..c3bc1f950 100644 --- a/src/devops/build.scm +++ b/src/devops/build.scm @@ -270,20 +270,20 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (for-each write-string strings)) (define (run . strings) - (let ((cmdln (apply string strings))) + (let ((cmdln (string* strings))) (log cmdln"\n") (shell* cmdln))) (define (run-noerror . strings) - (let ((cmdln (apply string strings))) + (let ((cmdln (string* strings))) (log cmdln"\n") (shell*-noerror cmdln))) (define (shell-lines . strings) - (call-with-input-string (shell-output (apply string strings)) read-lines)) + (call-with-input-string (shell-output (string* strings)) read-lines)) (define (file-lines . strings) - (call-with-input-file (apply string strings) read-lines)) + (call-with-input-file (string* strings) read-lines)) (define (read-lines port) (let loop ((lines '())) @@ -293,7 +293,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (loop (cons line lines)))))) (define (shell-output . strings) - (let ((cmdln (apply string strings))) + (let ((cmdln (string* strings))) (call-with-output-string (lambda (port) (let ((status (shell* cmdln 'output port))) @@ -301,7 +301,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA. (error "Non-zero exit status:" cmdln))))))) (define (shell . strings) - (shell* (apply string strings))) + (shell* (string* strings))) (load-option 'synchronous-subprocess) -- 2.25.1