; * src/json.c (json_parse_object): Call make_hash_table directly.

2024-04-01 17:01:07 +02:00
parent dbfe3cae2d
commit 8bddf7f93e
1 changed files with 1 additions and 2 deletions
--- a/src/json.c
+++ b/src/json.c
@@ -1599,8 +1599,7 @@ json_parse_object (struct json_parser *parser)
    case json_object_hashtable:
      {
 	EMACS_INT value = (parser->object_workspace_current - first) / 2;
-	result = CALLN (Fmake_hash_table, QCtest, Qequal, QCsize,
-			make_fixed_natnum (value));
+	result = make_hash_table (&hashtest_equal, value, Weak_None, false);
 	struct Lisp_Hash_Table *h = XHASH_TABLE (result);
 	for (size_t i = first; i < parser->object_workspace_current; i += 2)
 	  {