From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 4 Jul 2019 03:28:04 +0000 (-0700)
Subject: devops: Use string*.
X-Git-Tag: mit-scheme-pucked-devops-0.12~5
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8b682bf61f4a36e6fccad0429c592c4b442fa44f;p=mit-scheme.git

devops: Use string*.
---

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)