Commit b1cab202 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(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.
parent 4013921d
......@@ -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);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment