From 02ad1a9a4a965b2549d9735f0e05ec208ba53416 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 28 Oct 2004 22:58:01 +0000
Subject: [PATCH] Don't print warning when bad mime.types line is encountered.

---
 v7/src/runtime/unxprm.scm | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

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