From c74545450363adad347ba019525d0c1b81146124 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Sat, 5 Sep 2009 16:34:31 -0700 Subject: [PATCH] Revert eta-expansion change. --- src/runtime/gentag.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/runtime/gentag.scm b/src/runtime/gentag.scm index f734ebfbc..7134f9578 100644 --- 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) -- 2.25.1