From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 6 Dec 1999 21:08:37 +0000 (+0000)
Subject: Don't pass -c argument to gzip or bzip2.  This argument was added in
X-Git-Tag: 20090517-FFI~4414
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e8b10e85bbee3989eaef8611e9909a87dfa85d22;p=mit-scheme.git

Don't pass -c argument to gzip or bzip2.  This argument was added in
revision 1.99.  Although -c works OK for gzip, it doesn't work with
bzip2.  Since this argument isn't needed, and had no effect on the
problem it was supposed to solve, we won't use it.
---

diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index ce9aae837..a931403de 100644
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: unix.scm,v 1.101 1999/10/07 17:08:16 cph Exp $
+;;; $Id: unix.scm,v 1.102 1999/12/06 21:08:37 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -349,9 +349,9 @@ Includes the new backup.  Must be > 0."
 	  visit?
 	  (let ((type (pathname-type pathname)))
 	    (cond ((equal? "gz" type)
-		   (read-compressed-file "gzip -cd" pathname mark))
+		   (read-compressed-file "gzip -d" pathname mark))
 		  ((equal? "bz2" type)
-		   (read-compressed-file "bzip2 -cd" pathname mark))
+		   (read-compressed-file "bzip2 -d" pathname mark))
 		  ((equal? "Z" type)
 		   (read-compressed-file "uncompress" pathname mark))))))
     ,@(os-independent/read-file-methods)))
@@ -362,9 +362,9 @@ Includes the new backup.  Must be > 0."
 	  visit?
 	  (let ((type (pathname-type pathname)))
 	    (cond ((equal? "gz" type)
-		   (write-compressed-file "gzip -c" region pathname))
+		   (write-compressed-file "gzip" region pathname))
 		  ((equal? "bz2" type)
-		   (write-compressed-file "bzip2 -c" region pathname))
+		   (write-compressed-file "bzip2" region pathname))
 		  ((equal? "Z" type)
 		   (write-compressed-file "compress" region pathname))))))
     ,@(os-independent/write-file-methods)))