# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 768206718 0
# Node ID 334cececa42dc2b8221d2bbed556da8cd3f4f526
# Parent  ef89b78c1a92354472c0020e36a8ddf2d0998717
(error): Fix logic in call to xmalloc/xrealloc.

diff -r ef89b78c1a92 -r 334cececa42d src/eval.c
--- a/src/eval.c	Fri May 06 06:39:48 1994 +0000
+++ b/src/eval.c	Fri May 06 06:45:18 1994 +0000
@@ -1331,7 +1331,11 @@
       size *= 2;
       if (allocated)
 	buffer = (char *) xrealloc (buffer, size);
-      buffer = (char *) xmalloc (size);
+      else
+	{
+	  buffer = (char *) xmalloc (size);
+	  allocated = 1;
+	}
     }
 
   string = build_string (buf);