Minor simplification.

diff --git a/src/runtime/gentag.scm b/src/runtime/gentag.scm
index 2a4487ddfc5c288c26ff5b506e4e40071ffa2507..41a83e0651e5e313fd231797d441b780b21ce457 100644 (file)
--- a/src/runtime/gentag.scm
+++ b/src/runtime/gentag.scm
@@ -34,14 +34,10 @@ USA.
 (declare (usual-integrations))
 \f
 (define (make-dispatch-tag contents)
-  (let ((tag
-        ((ucode-primitive object-set-type)
-         (ucode-type record)
-         ((ucode-primitive vector-cons) dispatch-tag-index-end #f))))
-    (%record-set! tag 0 dispatch-tag-marker)
+  (let ((tag (%make-record dispatch-tag-marker dispatch-tag-index-end)))
     (%record-set! tag 1 contents)
     (do ((i dispatch-tag-index-start (fix:+ i 1)))
-       ((fix:= i dispatch-tag-index-end))
+       ((not (fix:< i dispatch-tag-index-end)))
       (%record-set! tag i (get-dispatch-tag-cache-number)))
     tag))
 
@@ -54,9 +50,7 @@ USA.
     (lambda (tag)
       (list (dispatch-tag-contents tag)))))
 
-(define-integrable dispatch-tag-marker
-  ((ucode-primitive string->symbol) "#[dispatch-tag]"))
-
+(define-integrable dispatch-tag-marker '|#[dispatch-tag]|)
 (define-integrable dispatch-tag-index-start 2)
 (define-integrable dispatch-tag-index-end 10)