Commit c1dd95fc authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent cf24f894
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment