From 722b621835b1470f420ad9610f80f50f4b31a5c6 Mon Sep 17 00:00:00 2001 From: Pip Cet Date: Thu, 27 Jun 2019 20:11:52 +0000 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 fd0c7fc71a..2fc000a7f4 100644 --- a/src/fns.c +++ b/src/fns.c @@ -2164,8 +2164,6 @@ DEFUN ("plist-get", Fplist_get, Splist_get, 2, 2, 0, if (EQ (prop, XCAR (tail))) return XCAR (XCDR (tail)); tail = XCDR (tail); - if (EQ (tail, li.tortoise)) - break; } return Qnil; @@ -2208,8 +2206,6 @@ DEFUN ("plist-put", Fplist_put, Splist_put, 3, 3, 0, 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 @@ DEFUN ("lax-plist-get", Flax_plist_get, Slax_plist_get, 2, 2, 0, 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 @@ DEFUN ("lax-plist-put", Flax_plist_put, Slax_plist_put, 3, 3, 0, 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 @@ DEFUN ("plist-member", Fplist_member, Splist_member, 2, 2, 0, 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 23234c767d..48820a1cb0 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.20.1