From: Taylor R. Campbell <net/mumble/campbell>
Date: Mon, 10 Sep 2007 17:19:32 +0000 (+0000)
Subject: Fix typo in DEFINE-MIME-MEDIA-PARSER for the case of replacing the
X-Git-Tag: 20090517-FFI~445
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1c06c55dc08745ea8314755059295ba9719254f9;p=mit-scheme.git

Fix typo in DEFINE-MIME-MEDIA-PARSER for the case of replacing the
parser for a specific type/subtype pair: set the cdr of SUB-LEVEL, not
the cdr of TOP-LEVEL.
---

diff --git a/v7/src/imail/imail-mime.scm b/v7/src/imail/imail-mime.scm
index e307dc2a3..5841a6a61 100644
--- a/v7/src/imail/imail-mime.scm
+++ b/v7/src/imail/imail-mime.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: imail-mime.scm,v 1.8 2007/09/10 17:18:24 riastradh Exp $
+$Id: imail-mime.scm,v 1.9 2007/09/10 17:19:32 riastradh Exp $
 
 Copyright 2005 Taylor Campbell
 
@@ -153,7 +153,7 @@ USA.
                                       (cdr sub-level)
                                       (error-irritant/noise " with")
                                       parser)
-                                (set-cdr! top-level parser)))
+                                (set-cdr! sub-level parser)))
                           (else
                            (set-cdr! (cdr top-level)
                                      (cons (cons subtype parser)