From 08d9b9b0af6f0c4cd85c2d9c5a597ea32d5e8056 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 15 Mar 2018 22:52:08 -0700 Subject: [PATCH] Fix typo in previous change. --- src/runtime/record.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.25.1