Fix typo in earlier refactor.

diff --git a/src/runtime/record.scm b/src/runtime/record.scm
index eff9a8128c8dc485fed0767d7e0599f8b2e381c9..a1bb4fe373a77dbba8d80e9985b2ba4c31e8fa2e 100644 (file)
--- 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")