From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 8 Apr 1991 22:26:18 +0000 (+0000)
Subject: Eliminate unused variable.
X-Git-Tag: 20090517-FFI~10771
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=245b550b10e1a988b35f4aef7fcf783104326fa2;p=mit-scheme.git

Eliminate unused variable.
---

diff --git a/v7/src/runtime/defstr.scm b/v7/src/runtime/defstr.scm
index 4918ebd7f..e3b4e3662 100644
--- a/v7/src/runtime/defstr.scm
+++ b/v7/src/runtime/defstr.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/defstr.scm,v 14.16 1991/03/25 22:03:47 markf Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/defstr.scm,v 14.17 1991/04/08 22:26:18 cph Exp $
 
-Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1988-91 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -95,12 +95,10 @@ must be defined when the defstruct is evaluated.
 			    (parse/slot-descriptions structure
 						     slot-descriptions))
       (if (eq? (structure/scheme-type structure) 'RECORD)
-	  (let ((tag-name (structure/tag-name structure)))
-	    (structure/set-type! structure
-				 (make-record-type
-				  (make-record-type-name structure)
-				  (map slot/name
-				       (structure/slots structure))))))
+	  (structure/set-type! structure
+			       (make-record-type
+				(make-record-type-name structure)
+				(map slot/name (structure/slots structure)))))
       `(BEGIN ,@(type-definitions structure)
 	      ,@(constructor-definitions structure)
 	      ,@(accessor-definitions structure)