[bugfix] assq and assoc should return false if key is not found
This commit is contained in:
parent
fb2e7ac498
commit
fabe70aaf2
|
@ -118,7 +118,7 @@ pic_assq(pic_state *pic, pic_value key, pic_value assoc)
|
||||||
enter:
|
enter:
|
||||||
|
|
||||||
if (pic_nil_p(assoc))
|
if (pic_nil_p(assoc))
|
||||||
return assoc;
|
return pic_false_value();
|
||||||
|
|
||||||
cell = pic_car(pic, assoc);
|
cell = pic_car(pic, assoc);
|
||||||
if (pic_eq_p(key, pic_car(pic, cell)))
|
if (pic_eq_p(key, pic_car(pic, cell)))
|
||||||
|
@ -136,7 +136,7 @@ pic_assoc(pic_state *pic, pic_value key, pic_value assoc)
|
||||||
enter:
|
enter:
|
||||||
|
|
||||||
if (pic_nil_p(assoc))
|
if (pic_nil_p(assoc))
|
||||||
return assoc;
|
return pic_false_value();
|
||||||
|
|
||||||
cell = pic_car(pic, assoc);
|
cell = pic_car(pic, assoc);
|
||||||
if (pic_equal_p(pic, key, pic_car(pic, cell)))
|
if (pic_equal_p(pic, key, pic_car(pic, cell)))
|
||||||
|
|
Loading…
Reference in New Issue