From 149a7dabefde2ac0d6c0088a987c51bba6eaffa2 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 25 Dec 2017 23:54:30 -0500 Subject: [PATCH] Eliminate no-longer-used binding genrated by define-structure. --- src/runtime/defstr.scm | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) 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) -- 2.25.1