Fix bug: unable to run gzip properly on Windows systems if the

location of the gzip binary is in a directory with spaces in its name.
Must quote the name after it is expanded.

diff --git a/v7/src/edwin/dosfile.scm b/v7/src/edwin/dosfile.scm
index 4260a7961f5144871039897207ce836a5c895723..d97218f4240e42b7db467ac039fbfc20626134b3 100644 (file)
--- a/v7/src/edwin/dosfile.scm
+++ b/v7/src/edwin/dosfile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dosfile.scm,v 1.34 2000/02/03 22:23:06 cph Exp $
+;;; $Id: dosfile.scm,v 1.35 2000/02/03 22:24:52 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-2000 Massachusetts Institute of Technology
 ;;;
@@ -582,11 +582,10 @@ filename suffix \".gz\"."
   (append-message "done"))
 
 (define (quote-program program arguments)
-  (let ((arguments
-        (apply string-append
-               (map (lambda (argument)
-                      (string-append " " arg))
-                    arguments))))
-    (if (eq? 'NT microcode-id/operating-system)
-       (string-append "\"" (os/find-program program #f) "\"" arguments)
-       (string-append program arguments))))
\ No newline at end of file
+  (string-append (if (eq? 'NT microcode-id/operating-system)
+                    (string-append "\"" (os/find-program program #f) "\"")
+                    program)
+                (apply string-append
+                       (map (lambda (argument)
+                              (string-append " " argument))
+                            arguments))))
\ No newline at end of file