From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 3 Feb 2000 22:24:52 +0000 (+0000)
Subject: Fix bug: unable to run gzip properly on Windows systems if the
X-Git-Tag: 20090517-FFI~4266
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8820035c3ca3ac46a93322e91be4b4b197fc51e9;p=mit-scheme.git

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 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