From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 7 Dec 2004 07:25:26 +0000 (+0000)
Subject: Fix a #f/() type error.
X-Git-Tag: 20090517-FFI~1419
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=90db83ce1016ccda82c57f08cf81683b00ff6421;p=mit-scheme.git

Fix a #f/() type error.
---

diff --git a/v7/src/imail/imail-imap.scm b/v7/src/imail/imail-imap.scm
index 0984694c6..2ebdb6171 100644
--- a/v7/src/imail/imail-imap.scm
+++ b/v7/src/imail/imail-imap.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: imail-imap.scm,v 1.202 2004/02/17 05:53:31 cph Exp $
+$Id: imail-imap.scm,v 1.203 2004/12/07 07:25:26 cph Exp $
 
 Copyright 1999,2000,2001,2003,2004 Massachusetts Institute of Technology
 
@@ -1330,17 +1330,21 @@ USA.
   (error "Unrecognized MIME bodystructure:" body))
 
 (define (parse-mime-parameters parameters)
-  (let ((lose (lambda () (error "Malformed MIME parameters:" parameters))))
-    (let loop ((parameters parameters) (alist '()))
-      (if (pair? parameters)
-	  (if (pair? (cdr parameters))
-	      (loop (cddr parameters)
-		    (cons (cons (intern (car parameters)) (cadr parameters))
-			  alist))
-	      (lose))
-	  (if (null? parameters)
-	      (reverse! alist)
-	      (lose))))))
+  (if parameters
+      (let ((lose
+	     (lambda () (error "Malformed MIME parameters:" parameters))))
+	(let loop ((parameters parameters) (alist '()))
+	  (if (pair? parameters)
+	      (if (pair? (cdr parameters))
+		  (loop (cddr parameters)
+			(cons (cons (intern (car parameters))
+				    (cadr parameters))
+			      alist))
+		  (lose))
+	      (if (null? parameters)
+		  (reverse! alist)
+		  (lose)))))
+      '()))
 
 (define (parse-mime-disposition disposition)
   (and disposition