fix a bug in valid_formal

2013-10-25 00:35:37 +09:00 · 2013-10-25 00:35:37 +09:00 · c88f0926a4
parent 83de938342
commit c88f0926a4
1 changed files with 1 additions and 1 deletions
--- a/src/codegen.c
+++ b/src/codegen.c
@ -503,7 +503,7 @@ valid_formal(pic_state *pic, pic_value formal)
  if (pic_symbol_p(formal))
    return true;

-  while (! pic_pair_p(formal)) {
+  while (pic_pair_p(formal)) {
    if (! pic_symbol_p(pic_car(pic, formal))) {
      return false;
    }