# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1022698677 0
# Node ID 0a94e1efe9fc7e101619e7bbfdef447fb4780fa7
# Parent  642180519072e52e5c43ad7733e60bb90aedfbb2
(Fread_from_string): Don't depend on order of evaluation for C
function parameters.

diff -r 642180519072 -r 0a94e1efe9fc src/lread.c
--- a/src/lread.c	Wed May 29 18:57:33 2002 +0000
+++ b/src/lread.c	Wed May 29 18:57:57 2002 +0000
@@ -1481,8 +1481,8 @@
      Lisp_Object string, start, end;
 {
   CHECK_STRING (string);
-  return Fcons (read_internal_start (string, start, end),
-		make_number (read_from_string_index));
+  Lisp_Object ret = read_internal_start (string, start, end);
+  return Fcons (ret, make_number (read_from_string_index));
 }
 
 /* Function to set up the global context we need in toplevel read