From 746d308a758aa9fa792adcb68984df9e7a15d77a Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 18 Aug 2020 22:14:09 -0400
Subject: [PATCH] Fix regression in `is-a?`

---
 scheme/base.sld | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scheme/base.sld b/scheme/base.sld
index 7a02dd55..0d779321 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -2027,7 +2027,8 @@
 (define (is-a? obj rtype)
   (and (record? obj)
        (record? rtype)
-       (equal? (vector-ref obj 1) rtype)))
+       (equal? (vector-ref obj 1) 
+               (vector-ref rtype 1))))
 
 (define-syntax define-record-type
   (er-macro-transformer