From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 20 Oct 2019 05:20:19 +0000 (-0700)
Subject: Fix typo in earlier change.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~34
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b16cb5a8dc35e2ff2b5df0ede4026a2ad44a7b8f;p=mit-scheme.git

Fix typo in earlier change.
---

diff --git a/src/runtime/record.scm b/src/runtime/record.scm
index 8e14d58cc..bd4035383 100644
--- a/src/runtime/record.scm
+++ b/src/runtime/record.scm
@@ -241,9 +241,9 @@ USA.
        (%pred-check-marker 0 marker3 object)
        (let loop ((type (%record-type-parent type3)))
 	 (if type
-	     (and (check-type (%record-type-start-index type)
-			      (%record-type-instance-marker type)
-			      object)
+	     (and (%pred-check-marker (%record-type-start-index type)
+				      (%record-type-instance-marker type)
+				      object)
 		  (loop (%record-type-parent type)))
 	     #t))))