# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 865210969 0
# Node ID b2a669ef69b1e5aebf04843ed3104258fb8f21e5
# Parent  8e1553706b3d0d381d98d5fe4b59ad370db61b09
(Fmake_byte_code): Set val from p, not from val.
(make_event_array): Convert nargs to Lisp_Object.

diff -r 8e1553706b3d -r b2a669ef69b1 src/alloc.c
--- a/src/alloc.c	Mon Jun 02 00:09:40 1997 +0000
+++ b/src/alloc.c	Mon Jun 02 00:22:49 1997 +0000
@@ -876,7 +876,7 @@
 	args[index] = Fpurecopy (args[index]);
       p->contents[index] = args[index];
     }
-  XSETCOMPILED (val, val);
+  XSETCOMPILED (val, p);
   return val;
 }
 
@@ -1274,7 +1274,7 @@
   {
     Lisp_Object result;
     
-    result = Fmake_string (nargs, make_number (0));
+    result = Fmake_string (make_number (nargs), make_number (0));
     for (i = 0; i < nargs; i++)
       {
 	XSTRING (result)->data[i] = XINT (args[i]);