fix a bug in valid_formal

This commit is contained in:
Yuichi Nishiwaki 2013-10-25 00:35:37 +09:00
parent 83de938342
commit c88f0926a4
1 changed files with 1 additions and 1 deletions

View File

@ -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;
} }