Mercurial > emacs
diff src/fns.c @ 40734:95dd892ad5e3
(Fmake_hash_table): Use XCAR and XCDR, not Fnth and Flength.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 05 Nov 2001 03:52:23 +0000 |
parents | cdfd4d09b79a |
children | fa1546836808 |
line wrap: on
line diff
--- 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;