From 0e25d5bffda9c07cffda7ce0940785b0342d0461 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 28 Jan 2006 02:50:42 +0000
Subject: [PATCH] Eliminate compiler warning.

---
 v7/src/xml/xhtml.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/v7/src/xml/xhtml.scm b/v7/src/xml/xhtml.scm
index 2f7b9fe39..53d4c8de2 100644
--- a/v7/src/xml/xhtml.scm
+++ b/v7/src/xml/xhtml.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xhtml.scm,v 1.18 2006/01/28 02:48:32 cph Exp $
+$Id: xhtml.scm,v 1.19 2006/01/28 02:50:42 cph Exp $
 
 Copyright 2002,2003,2004,2005,2006 Massachusetts Institute of Technology
 
@@ -55,6 +55,7 @@ USA.
 (define-syntax define-html-id
   (sc-macro-transformer
    (lambda (form environment)
+     environment
      (if (syntax-match? '(DATUM DATUM DATUM) (cdr form))
 	 (let ((version (cadr form))
 	       (public-id (caddr form))
-- 
2.25.1