Mercurial > emacs

diff src/alloc.c @ 85329:ad9922c079e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fpurecopy): Set the pvec tag on pseudo vectors.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 16 Oct 2007 15:49:43 +0000
parents d0d527210b0c
children 99492f857499
line wrap: on
line diff
--- a/src/alloc.c	Tue Oct 16 15:42:58 2007 +0000
+++ b/src/alloc.c	Tue Oct 16 15:49:43 2007 +0000
@@ -4966,7 +4966,10 @@
       for (i = 0; i < size; i++)
 	vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]);
       if (COMPILEDP (obj))
-	XSETCOMPILED (obj, vec);
+	{
+	  XSETPVECTYPE (vec, PVEC_COMPILED);
+	  XSETCOMPILED (obj, vec);
+	}
       else
 	XSETVECTOR (obj, vec);
       return obj;