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 ce9aae83710ad9797a73627f87dc680c36dbfacb..a931403de6d00a992b334d02489449fa361b28e8 100644 (file)
--- 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)))