From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 5 Nov 2001 03:52:23 +0000 (+0000)
Subject: (Fmake_hash_table): Use XCAR and XCDR, not Fnth and Flength.
X-Git-Tag: ttn-vms-21-2-B4~18814
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c1dd95fcc145ad942deb331b40594dc15207de71;p=emacs.git

(Fmake_hash_table): Use XCAR and XCDR, not Fnth and Flength.
---

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;