core: assoc_string: Prepare for M2-Planet.
src/mes.c (assoc_string): Prepare for M2-Planet.
This commit is contained in:
parent
3c64762674
commit
654aa249d6
|
@ -36,8 +36,15 @@ SCM g_symbols;
|
||||||
SCM
|
SCM
|
||||||
assoc_string (SCM x, SCM a) /*:((internal)) */
|
assoc_string (SCM x, SCM a) /*:((internal)) */
|
||||||
{
|
{
|
||||||
while (a != cell_nil && (TYPE (CAAR (a)) != TSTRING || string_equal_p (x, CAAR (a)) == cell_f))
|
SCM b;
|
||||||
|
while (a != cell_nil)
|
||||||
|
{
|
||||||
|
b = CAR (a);
|
||||||
|
if (TYPE (CAR (b)) == TSTRING)
|
||||||
|
if (string_equal_p (x, CAR (b)) == cell_t)
|
||||||
|
return b;
|
||||||
a = CDR (a);
|
a = CDR (a);
|
||||||
|
}
|
||||||
if (a != cell_nil)
|
if (a != cell_nil)
|
||||||
return CAR (a);
|
return CAR (a);
|
||||||
return cell_f;
|
return cell_f;
|
||||||
|
|
Loading…
Reference in New Issue