andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: assoc: Prepare for M2-Planet. 

* src/mes.c (assoc): Prepare for M2-Planet.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2019-10-24 19:02:44 +02:00
parent 429e5a1f94
commit 03d80a8197
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/mes.c
View File

@ -287,10 +287,12 @@ assoc (SCM x, SCM a)
{ {
if (TYPE (x) == TSTRING) if (TYPE (x) == TSTRING)
return assoc_string (x, a); return assoc_string (x, a);
while (a != cell_nil && equal2_p (x, CAAR (a)) == cell_f) while (a != cell_nil)
a = CDR (a); {
if (a != cell_nil) if (equal2_p (x, CAAR (a)) == cell_t)
return CAR (a); return CAR (a);
a = CDR (a);
}
return cell_f; return cell_f;
} }