fix a bug in valid_formal
This commit is contained in:
parent
83de938342
commit
c88f0926a4
|
@ -503,7 +503,7 @@ valid_formal(pic_state *pic, pic_value formal)
|
||||||
if (pic_symbol_p(formal))
|
if (pic_symbol_p(formal))
|
||||||
return true;
|
return true;
|
||||||
|
|
||||||
while (! pic_pair_p(formal)) {
|
while (pic_pair_p(formal)) {
|
||||||
if (! pic_symbol_p(pic_car(pic, formal))) {
|
if (! pic_symbol_p(pic_car(pic, formal))) {
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue