core: xassq: Prepare for M2-Planet.
* src/lib.c (xassq): Prepare for M2-Planet.
This commit is contained in:
parent
e24f840106
commit
798fc40f8d
10
src/lib.c
10
src/lib.c
|
@ -112,10 +112,12 @@ stack_ref (SCM stack, SCM index)
|
||||||
SCM
|
SCM
|
||||||
xassq (SCM x, SCM a) /* For speed in core. */
|
xassq (SCM x, SCM a) /* For speed in core. */
|
||||||
{
|
{
|
||||||
while (a != cell_nil && x != CDAR (a))
|
while (a != cell_nil)
|
||||||
a = CDR (a);
|
{
|
||||||
if (a != cell_nil)
|
if (x == CDAR (a))
|
||||||
return CAR (a);
|
return CAR (a);
|
||||||
|
a = CDR (a);
|
||||||
|
}
|
||||||
return cell_f;
|
return cell_f;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue