Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 08:47:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Typecheck list parameter of (assoc)

Browse source
This commit is contained in:
Justin Ethier 2015-05-19 21:42:46 -04:00
parent 55db975bc7
commit 9c41247c67
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
runtime.c
View file

@ -421,7 +421,7 @@ list assq(x,l) object x; list l;
return boolean_f;} return boolean_f;}
list assoc(x,l) object x; list l; list assoc(x,l) object x; list l;
{for (; !nullp(l); l = cdr(l)) {for (; !nullp(l) && type_of(l) == cons_tag; l = cdr(l))
{register list la = car(l); if (boolean_f != equalp(x,car(la))) return la;} {register list la = car(l); if (boolean_f != equalp(x,car(la))) return la;}
return boolean_f;} return boolean_f;}