From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 28 Oct 2004 22:58:01 +0000 (+0000)
Subject: Don't print warning when bad mime.types line is encountered.
X-Git-Tag: 20090517-FFI~1510
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=02ad1a9a4a965b2549d9735f0e05ec208ba53416;p=mit-scheme.git

Don't print warning when bad mime.types line is encountered.
---

diff --git a/v7/src/runtime/unxprm.scm b/v7/src/runtime/unxprm.scm
index a19a1d24a..e4ec7ae0a 100644
--- a/v7/src/runtime/unxprm.scm
+++ b/v7/src/runtime/unxprm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unxprm.scm,v 1.69 2004/10/28 19:38:50 cph Exp $
+$Id: unxprm.scm,v 1.70 2004/10/28 22:58:01 cph Exp $
 
 Copyright 1988,1989,1990,1991,1992,1993 Massachusetts Institute of Technology
 Copyright 1994,1995,1997,1998,1999,2000 Massachusetts Institute of Technology
@@ -256,13 +256,9 @@ USA.
 	   (char=? (string-ref line 0) #\#))
       #f
       (let ((parts (burst-string line char-set:whitespace #t)))
-	(if (pair? parts)
-	    (if (mime-type-string? (car parts))
-		parts
-		(begin
-		  (warn "Invalid mime.types line:" line)
-		  #f))
-	    #f))))
+	(and (pair? parts)
+	     (mime-type-string? (car parts))
+	     parts))))
 
 (define (user-home-directory user-name)
   (let ((directory ((ucode-primitive get-user-home-directory 1) user-name)))