; * src/lread.c (read_internal_start): Simplify.

This removes code that became dead in the non-recursive reader reform.

(cherry picked from commit f605e6ede36de1bb91cbefaca24cbd987961dd84)

diff --git a/src/lread.c b/src/lread.c
index 7f226074f094d90c909a31b29245d2b6fe689d1e..9c8adf889c030082c658fb779fed0af25079296c 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -2787,22 +2787,14 @@ read_internal_start (Lisp_Object stream, Lisp_Object start, Lisp_Object end,
     read_objects_completed
       = make_hash_table (&hashtest_eq, DEFAULT_HASH_SIZE, Weak_None);
 
-  if (STRINGP (stream)
-      || ((CONSP (stream) && STRINGP (XCAR (stream)))))
+  if (STRINGP (stream))
     {
       ptrdiff_t startval, endval;
-      Lisp_Object string;
-
-      if (STRINGP (stream))
-       string = stream;
-      else
-       string = XCAR (stream);
-
-      validate_subarray (string, start, end, SCHARS (string),
+      validate_subarray (stream, start, end, SCHARS (stream),
                         &startval, &endval);
 
       read_from_string_index = startval;
-      read_from_string_index_byte = string_char_to_byte (string, startval);
+      read_from_string_index_byte = string_char_to_byte (stream, startval);
       read_from_string_limit = endval;
     }