diff options
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/print.c b/src/print.c index 3a36a4eb54d..8c4bb24555e 100644 --- a/src/print.c +++ b/src/print.c @@ -1806,14 +1806,12 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag) print_object (h->weak, printcharfun, escapeflag); } - if (!NILP (h->rehash_size)) - { - print_c_string (" rehash-size ", printcharfun); - print_object (h->rehash_size, printcharfun, escapeflag); - } + print_c_string (" rehash-size ", printcharfun); + print_object (Fhash_table_rehash_size (obj), + printcharfun, escapeflag); print_c_string (" rehash-threshold ", printcharfun); - print_object (make_float (h->rehash_threshold), + print_object (Fhash_table_rehash_threshold (obj), printcharfun, escapeflag); if (h->pure) |