Fix circular read syntax for records.

* lread.c (substitute_object_recurse): Work with records.

* lread-tests.el (lread-record-1): New test.

1 files changed, 2 insertions, 1 deletions

diff --git a/src/lread.c b/src/lread.c
index 6de9fe6e08e..513f63e4315 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -3400,7 +3400,8 @@ substitute_object_recurse (Lisp_Object object, Lisp_Object placeholder, Lisp_Obj
         if (BOOL_VECTOR_P (subtree))
           return subtree;               /* No sub-objects anyway.  */
         else if (CHAR_TABLE_P (subtree) || SUB_CHAR_TABLE_P (subtree)
-                 || COMPILEDP (subtree) || HASH_TABLE_P (subtree))
+                 || COMPILEDP (subtree) || HASH_TABLE_P (subtree)
+                 || RECORDP (subtree))
           length = ASIZE (subtree) & PSEUDOVECTOR_SIZE_MASK;
         else if (VECTORP (subtree))
           length = ASIZE (subtree);