From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 18 Jan 2018 03:37:46 +0000 (-0800)
Subject: Fix typo in earlier refactor.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~351
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=611346fec19c15f385d68df7c2d6c5d24e05f4a8;p=mit-scheme.git

Fix typo in earlier refactor.
---

diff --git a/src/runtime/record.scm b/src/runtime/record.scm
index eff9a8128..a1bb4fe37 100644
--- a/src/runtime/record.scm
+++ b/src/runtime/record.scm
@@ -402,7 +402,8 @@ USA.
   (and (list-of-type? object symbol?)
        (let loop ((elements object))
 	 (if (pair? elements)
-	     (not (memq (car elements) (cdr elements)))
+	     (and (not (memq (car elements) (cdr elements)))
+		  (loop (cdr elements)))
 	     #t))))
 
 (define-guarantee record-type "record type")