From c88f0926a4bc49271ff7de0bd4c54f88d4aa0637 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Fri, 25 Oct 2013 00:35:37 +0900
Subject: [PATCH] fix a bug in valid_formal

---
 src/codegen.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/codegen.c b/src/codegen.c
index 7d2ed45a..aad6e6ba 100644
--- 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;
     }