diff options
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/print.c b/src/print.c index f26837055f2..1a0aebbeba7 100644 --- a/src/print.c +++ b/src/print.c @@ -1171,12 +1171,7 @@ print_preprocess (Lisp_Object obj) if (PRINT_CIRCLE_CANDIDATE_P (obj)) { if (!HASH_TABLE_P (Vprint_number_table)) - { - Lisp_Object args[2]; - args[0] = QCtest; - args[1] = Qeq; - Vprint_number_table = Fmake_hash_table (2, args); - } + Vprint_number_table = CALLN (Fmake_hash_table, QCtest, Qeq); /* In case print-circle is nil and print-gensym is t, add OBJ to Vprint_number_table only when OBJ is a symbol. */ |