From dbbea577c2d4f4aa4bec89ad277f671a67b74fd2 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 13 Feb 2003 02:59:28 +0000 Subject: [PATCH] Eliminate compiler warning. --- v7/src/compiler/rtlbase/valclass.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/rtlbase/valclass.scm b/v7/src/compiler/rtlbase/valclass.scm index 78951ea7f..d4966f2cb 100644 --- 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 -- 2.25.1