Fix previous change (oops).

2530ceaf · Colin Walters · 5135ab39 · 2530ceaf
Commit 2530ceaf authored May 29, 2002 by Colin Walters
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

src/lread.c src/lread.c +3 -1

No files found.
--- a/src/lread.c
+++ b/src/lread.c
@@ -1480,8 +1480,10 @@ START and END optionally delimit a substring of STRING from which to read;
     (string, start, end)
     Lisp_Object string, start, end;
 {
+  Lisp_Object ret;
  CHECK_STRING (string);
-  Lisp_Object ret = read_internal_start (string, start, end);
+  /* read_internal_start sets read_from_string_index. */
+  ret = read_internal_start (string, start, end);
  return Fcons (ret, make_number (read_from_string_index));
 }