Eliminate compiler warning.

diff --git a/v7/src/compiler/rtlbase/valclass.scm b/v7/src/compiler/rtlbase/valclass.scm
index 78951ea7f651556041f8602bb396182a4e164844..d4966f2cb41232f54c7b4468c69bd3b0d67853d7 100644 (file)
--- a/v7/src/compiler/rtlbase/valclass.scm
+++ b/v7/src/compiler/rtlbase/valclass.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: valclass.scm,v 1.7 2003/02/13 02:38:27 cph Exp $
+$Id: valclass.scm,v 1.8 2003/02/13 02:59:28 cph Exp $
 
 Copyright 1989,1990,1999,2001,2002,2003 Massachusetts Institute of Technology
 
@@ -84,8 +84,7 @@ Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
        (let* ((name->variable
               (lambda (name)
                 (symbol-append 'VALUE-CLASS= name)))
-             (variable (name->variable name))
-             (var-ref (close-syntax variable environment)))
+             (variable (name->variable name)))
         `(BEGIN
            (DEFINE ,variable
              (MAKE-VALUE-CLASS