devops: Use string*.
authorMatt Birkholz <matt@birchwood-abbey.net>
Thu, 4 Jul 2019 03:28:04 +0000 (20:28 -0700)
committerMatt Birkholz <matt@birchwood-abbey.net>
Thu, 4 Jul 2019 03:28:04 +0000 (20:28 -0700)
src/devops/build.scm

index 3527ca11b57295314e1f5ff21abba74efd783321..c3bc1f950407efae45fb61cbd6bf37192f32b12c 100644 (file)
@@ -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)