Revert eta-expansion change.

diff --git a/src/runtime/gentag.scm b/src/runtime/gentag.scm
index f734ebfbcc345a8c00225a5dfde5aa437fca5c43..7134f9578f984c8e85b394171139f13f8a9b13f1 100644 (file)
--- a/src/runtime/gentag.scm
+++ b/src/runtime/gentag.scm
@@ -54,9 +54,11 @@ USA.
 (define-integrable dispatch-tag-index-start 2)
 (define-integrable dispatch-tag-index-end 10)
 
-(define-integrable dispatch-tag-ref (ucode-primitive %record-ref))
+(define-integrable (dispatch-tag-ref t i)
+  (%record-ref t i))
 
-(define-integrable dispatch-tag-set! (ucode-primitive %record-set!))
+(define-integrable (dispatch-tag-set! t i x)
+  (%record-set! t i x))
 
 (define (dispatch-tag-contents tag)
   (guarantee-dispatch-tag tag 'DISPATCH-TAG-CONTENTS)