From: Colin Walters <walters@gnu.org>
Date: Wed, 29 May 2002 18:57:57 +0000 (+0000)
Subject: (Fread_from_string): Don't depend on order of evaluation for C
X-Git-Tag: ttn-vms-21-2-B4~14822
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5135ab39fb3597d44508b6018fcf42e1aca05774;p=emacs.git

(Fread_from_string): Don't depend on order of evaluation for C
function parameters.
---

diff --git a/src/lread.c b/src/lread.c
index 4d275a6877d..33e8db9c317 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1481,8 +1481,8 @@ START and END optionally delimit a substring of STRING from which to read;
      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