[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 748e6c1e80: Automatically detect cyclic lists in some Haiku funct
From: |
Po Lu |
Subject: |
master 748e6c1e80: Automatically detect cyclic lists in some Haiku functions |
Date: |
Tue, 28 Jun 2022 03:31:55 -0400 (EDT) |
branch: master
commit 748e6c1e80e7c34cf255e1e8e030dd5414afb5da
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>
Automatically detect cyclic lists in some Haiku functions
* src/haikuselect.c (haiku_lisp_to_message): Use FOR_EACH_TAIL
to iterate over message data.
---
src/haikuselect.c | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/src/haikuselect.c b/src/haikuselect.c
index 96223902f8..fe76e09810 100644
--- a/src/haikuselect.c
+++ b/src/haikuselect.c
@@ -441,10 +441,10 @@ haiku_lisp_to_message (Lisp_Object obj, void *message)
int rc;
specpdl_ref ref;
- CHECK_LIST (obj);
- for (tem = obj; CONSP (tem); tem = XCDR (tem))
+ tem = obj;
+
+ FOR_EACH_TAIL (tem)
{
- maybe_quit ();
t1 = XCAR (tem);
CHECK_CONS (t1);
@@ -490,9 +490,9 @@ haiku_lisp_to_message (Lisp_Object obj, void *message)
signal_error ("Unknown data type", type_sym);
CHECK_LIST (t1);
- for (t2 = XCDR (t1); CONSP (t2); t2 = XCDR (t2))
+ t2 = XCDR (t1);
+ FOR_EACH_TAIL (t2)
{
- maybe_quit ();
data = XCAR (t2);
if (FIXNUMP (type_sym) || BIGNUMP (type_sym))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 748e6c1e80: Automatically detect cyclic lists in some Haiku functions,
Po Lu <=