From c1dd95fcc145ad942deb331b40594dc15207de71 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 5 Nov 2001 03:52:23 +0000 Subject: [PATCH] (Fmake_hash_table): Use XCAR and XCDR, not Fnth and Flength. --- src/fns.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/fns.c b/src/fns.c index 74208831ee2..880886071de 100644 --- a/src/fns.c +++ b/src/fns.c @@ -4776,11 +4776,11 @@ usage: (make-hash-table &rest KEYWORD-ARGS) */) Lisp_Object prop; prop = Fget (test, Qhash_table_test); - if (!CONSP (prop) || XFASTINT (Flength (prop)) < 2) + if (!CONSP (prop) || !CONSP (XCDR (prop))) Fsignal (Qerror, list2 (build_string ("Invalid hash table test"), test)); - user_test = Fnth (make_number (0), prop); - user_hash = Fnth (make_number (1), prop); + user_test = XCAR (prop); + user_hash = XCAR (XCDR (prop)); } else user_test = user_hash = Qnil; -- 2.39.5