From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 16 Mar 2018 05:52:08 +0000 (-0700)
Subject: Fix typo in previous change.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~209
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=08d9b9b0af6f0c4cd85c2d9c5a597ea32d5e8056;p=mit-scheme.git

Fix typo in previous change.
---

diff --git a/src/runtime/record.scm b/src/runtime/record.scm
index d6996883f..fa8af7d29 100644
--- a/src/runtime/record.scm
+++ b/src/runtime/record.scm
@@ -120,10 +120,10 @@ USA.
   (%dispatch-tag-extra-set! record-type 2 applicator))
 
 (define-integrable (%record-type-instance-marker record-type)
-  (dispatch-tag-extra-ref record-type 2))
+  (dispatch-tag-extra-ref record-type 3))
 
 (define-integrable (%set-record-type-instance-marker! record-type marker)
-  (%dispatch-tag-extra-set! record-type 2 marker))
+  (%dispatch-tag-extra-set! record-type 3 marker))
 
 (define (%initialize-applicator-context!)
   (set-fixed-objects-item! 'record-dispatch-tag %record-metatag)