From 613f692c09dcbc6bc3b216f50e82c4f7bc6d5063 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Thu, 6 Feb 2014 13:04:11 +0900
Subject: [PATCH] apply is broken with arg_list is nil

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

diff --git a/src/proc.c b/src/proc.c
index 04e162b4..e1344182 100644
--- a/src/proc.c
+++ b/src/proc.c
@@ -102,7 +102,7 @@ pic_proc_apply(pic_state *pic)
     arg_list = pic_cons(pic, args[argc], arg_list);
   }
 
-  *pic->ci->fp++ = pic_obj_value(proc);
+  arg_list = pic_cons(pic, pic_obj_value(proc), arg_list);
   pic_for_each (v, arg_list) {
     *pic->ci->fp++ = v;
   }