# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1004932343 0
# Node ID 95dd892ad5e3dc809ff88d25b3d3c7c080bbc5b1
# Parent  2b78c1af4afa6f2b7e9f208e99b42a0d4ce0b02d
(Fmake_hash_table): Use XCAR and XCDR, not Fnth and Flength.

diff -r 2b78c1af4afa -r 95dd892ad5e3 src/fns.c
--- a/src/fns.c	Mon Nov 05 03:40:14 2001 +0000
+++ b/src/fns.c	Mon Nov 05 03:52:23 2001 +0000
@@ -4776,11 +4776,11 @@
       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;