From b1cab2020b3c5e74809b58fa71e1304def5ac6f2 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sat, 26 Feb 2000 01:13:11 +0000 Subject: [PATCH] (ccl_driver) [CCL_MapMultiple]: When the mapped value is `lambda', set reg[RRR] to the map index. (ccl_driver) [CCL_MapSingle]: When the mapped value is found, set reg[RRR] to 0. Otherwise, set it to -1. --- src/ccl.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/ccl.c b/src/ccl.c index 01d6dd6ca4b..0b11bafe7d2 100644 --- a/src/ccl.c +++ b/src/ccl.c @@ -1450,6 +1450,7 @@ ccl_driver (ccl, source, destination, src_bytes, dst_bytes, consumed) } else if (EQ (content, Qlambda)) { + reg[RRR] = i; break; } else @@ -1492,13 +1493,13 @@ ccl_driver (ccl, source, destination, src_bytes, dst_bytes, consumed) reg[RRR] = -1; else { + reg[RRR] = 0; content = XVECTOR (map)->contents[point]; if (NILP (content)) reg[RRR] = -1; else if (NUMBERP (content)) reg[rrr] = XINT (content); - else if (EQ (content, Qt)) - reg[RRR] = i; + else if (EQ (content, Qt)); else if (CONSP (content)) { attrib = XCAR (content); -- 2.39.5