changeset 45577:30f1ddc50732

Fix previous change (oops).
author Colin Walters <walters@gnu.org>
date Wed, 29 May 2002 18:58:38 +0000
parents 0a94e1efe9fc
children 73f6b3b88ae9
files src/lread.c
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Wed May 29 18:57:57 2002 +0000
+++ b/src/lread.c	Wed May 29 18:58:38 2002 +0000
@@ -1480,8 +1480,10 @@
      (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));
 }