diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/alloc.c b/src/alloc.c index 6abe9e28650..8c94c7eb33c 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -6034,8 +6034,7 @@ purecopy (Lisp_Object obj) | |||
| 6034 | return obj; /* Don't hash cons it. */ | 6034 | return obj; /* Don't hash cons it. */ |
| 6035 | } | 6035 | } |
| 6036 | 6036 | ||
| 6037 | struct Lisp_Hash_Table *h = purecopy_hash_table (table); | 6037 | obj = make_lisp_hash_table (purecopy_hash_table (table)); |
| 6038 | XSET_HASH_TABLE (obj, h); | ||
| 6039 | } | 6038 | } |
| 6040 | else if (COMPILEDP (obj) || VECTORP (obj) || RECORDP (obj)) | 6039 | else if (COMPILEDP (obj) || VECTORP (obj) || RECORDP (obj)) |
| 6041 | { | 6040 | { |