From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 14 Sep 1994 20:43:37 +0000 (+0000)
Subject: Fix type error in M-x dired-do-compress.
X-Git-Tag: 20090517-FFI~7117
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=da2d6587ded126cacc329444704a3efb701aade6;p=mit-scheme.git

Fix type error in M-x dired-do-compress.
---

diff --git a/v7/src/edwin/dirunx.scm b/v7/src/edwin/dirunx.scm
index 83fd72149..2577f03f1 100644
--- a/v7/src/edwin/dirunx.scm
+++ b/v7/src/edwin/dirunx.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dirunx.scm,v 1.4 1994/08/04 08:49:16 cph Exp $
+;;;	$Id: dirunx.scm,v 1.5 1994/09/14 20:43:37 cph Exp $
 ;;;
 ;;;	Copyright (c) 1992-93 Massachusetts Institute of Technology
 ;;;
@@ -85,9 +85,10 @@ The files are compressed or uncompressed using gzip."
 		 (let ((type (pathname-type pathname))
 		       (namestring (->namestring pathname)))
 		   (let ((decompress?
-			  (or (string=? "gz" type)
-			      (string=? "z" type)
-			      (string=? "Z" type))))
+			  (and (string? type)
+			       (or (string=? "gz" type)
+				   (string=? "z" type)
+				   (string=? "Z" type)))))
 		     (message (if decompress? "Unc" "C")
 			      "ompressing file `"
 			      namestring