From 611346fec19c15f385d68df7c2d6c5d24e05f4a8 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 17 Jan 2018 19:37:46 -0800
Subject: [PATCH] Fix typo in earlier refactor.

---
 src/runtime/record.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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")
-- 
2.25.1