From 01d6349b17316e184b890d056c575815edf11e26 Mon Sep 17 00:00:00 2001 From: Pip Cet Date: Thu, 27 Jun 2019 14:58:56 -0700 Subject: [PATCH] Remove unnecessary tortoise checks. * src/fns.c (Fplist_get, Fplist_put, Flax_plist_get) (Flax_plist_put, Fplist_member): Remove unnecessary check. * src/json.c (lisp_to_json_toplevel_1): Remove unnecessary check. --- src/fns.c | 10 ---------- src/json.c | 1 - 2 files changed, 11 deletions(-) diff --git a/src/fns.c b/src/fns.c index fd0c7fc71a0..2fc000a7f43 100644 --- a/src/fns.c +++ b/src/fns.c @@ -2164,8 +2164,6 @@ properties on the list. This function never signals an error. */) if (EQ (prop, XCAR (tail))) return XCAR (XCDR (tail)); tail = XCDR (tail); - if (EQ (tail, li.tortoise)) - break; } return Qnil; @@ -2208,8 +2206,6 @@ The PLIST is modified by side effects. */) prev = tail; tail = XCDR (tail); - if (EQ (tail, li.tortoise)) - circular_list (plist); } CHECK_TYPE (NILP (tail), Qplistp, plist); Lisp_Object newcell @@ -2247,8 +2243,6 @@ one of the properties on the list. */) if (! NILP (Fequal (prop, XCAR (tail)))) return XCAR (XCDR (tail)); tail = XCDR (tail); - if (EQ (tail, li.tortoise)) - circular_list (plist); } CHECK_TYPE (NILP (tail), Qplistp, plist); @@ -2280,8 +2274,6 @@ The PLIST is modified by side effects. */) prev = tail; tail = XCDR (tail); - if (EQ (tail, li.tortoise)) - circular_list (plist); } CHECK_TYPE (NILP (tail), Qplistp, plist); Lisp_Object newcell = list2 (prop, val); @@ -3045,8 +3037,6 @@ The value is actually the tail of PLIST whose car is PROP. */) tail = XCDR (tail); if (! CONSP (tail)) break; - if (EQ (tail, li.tortoise)) - circular_list (tail); } CHECK_TYPE (NILP (tail), Qplistp, plist); return Qnil; diff --git a/src/json.c b/src/json.c index 23234c767d8..48820a1cb04 100644 --- a/src/json.c +++ b/src/json.c @@ -404,7 +404,6 @@ lisp_to_json_toplevel_1 (Lisp_Object lisp, tail = XCDR (tail); CHECK_CONS (tail); value = XCAR (tail); - if (EQ (tail, li.tortoise)) circular_list (lisp); } else { -- 2.39.2