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

diff --git a/src/runtime/defstr.scm b/src/runtime/defstr.scm
index 73f590e281065710b582c73960b84b5a89cebd8c..ebb2f0237d52a944949f9b7ea6d7d08a5d394546 100644 (file)
--- 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)