From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Sat, 5 Sep 2009 23:34:31 +0000 (-0700)
Subject: Revert eta-expansion change.
X-Git-Tag: 20100708-Gtk~343
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c74545450363adad347ba019525d0c1b81146124;p=mit-scheme.git

Revert eta-expansion change.
---

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)