From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 26 Dec 2017 04:54:30 +0000 (-0500)
Subject: Eliminate no-longer-used binding genrated by define-structure.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~424^2~4
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=149a7dabefde2ac0d6c0088a987c51bba6eaffa2;p=mit-scheme.git

Eliminate no-longer-used binding genrated by define-structure.
---

diff --git a/src/runtime/defstr.scm b/src/runtime/defstr.scm
index 73f590e28..ebb2f0237 100644
--- a/src/runtime/defstr.scm
+++ b/src/runtime/defstr.scm
@@ -782,13 +782,9 @@ differences:
 		(close (structure/tag-expression structure) context)))
 	  (case (structure/physical-type structure)
 	    ((RECORD)
-	     (let ((tag-name (make-synthetic-identifier 'TAG)))
-	       `((DEFINE ,tag-name
-		   (,(absolute 'RECORD-TYPE-DISPATCH-TAG context)
-		    ,tag-expression))
-		 (DEFINE ,predicate-name
-		   (,(absolute 'RECORD-PREDICATE context)
-		    ,(close (structure/type-descriptor structure) context))))))
+	     `((DEFINE ,predicate-name
+		 (,(absolute 'RECORD-PREDICATE context)
+		  ,(close (structure/type-descriptor structure) context)))))
 	    ((VECTOR)
 	     `((DEFINE (,predicate-name OBJECT)
 		 (AND (,(absolute 'VECTOR? context) OBJECT)