From 8820035c3ca3ac46a93322e91be4b4b197fc51e9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 3 Feb 2000 22:24:52 +0000
Subject: [PATCH] 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.

---
 v7/src/edwin/dosfile.scm | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/v7/src/edwin/dosfile.scm b/v7/src/edwin/dosfile.scm
index 4260a7961..d97218f42 100644
--- 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
-- 
2.25.1