From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 17 Nov 2004 05:59:13 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~1475
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a3e41530fcfb4a379038d923132ce4024586e83d;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/xml/xhtml.scm b/v7/src/xml/xhtml.scm
index e5b16da60..2b7a308d4 100644
--- a/v7/src/xml/xhtml.scm
+++ b/v7/src/xml/xhtml.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xhtml.scm,v 1.14 2004/11/17 05:48:35 cph Exp $
+$Id: xhtml.scm,v 1.15 2004/11/17 05:59:13 cph Exp $
 
 Copyright 2002,2003,2004 Massachusetts Institute of Technology
 
@@ -257,7 +257,7 @@ USA.
 
 (define (html:style-attr . keyword-list)
   (guarantee-keyword-list keyword-list 'HTML:STYLE-ATTR)
-  (if (pair? bindings)
+  (if (pair? keyword-list)
       (let loop ((bindings keyword-list))
 	(string-append (symbol-name (car bindings))
 		       ": "