# HG changeset patch # User Kenichi Handa # Date 951527591 0 # Node ID fe0206a9f10c1c7261482b9146003502881c9813 # Parent c85e2370a691da87c51faf428db1513ce9524cc9 (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. diff -r c85e2370a691 -r fe0206a9f10c src/ccl.c --- a/src/ccl.c Sat Feb 26 01:12:19 2000 +0000 +++ b/src/ccl.c Sat Feb 26 01:13:11 2000 +0000 @@ -1450,6 +1450,7 @@ } else if (EQ (content, Qlambda)) { + reg[RRR] = i; break; } else @@ -1492,13 +1493,13 @@ 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);