From 8039ddf9c5bd491bbf6bb2bfd3c5bc876e53a1a3 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 13 Aug 2014 14:44:00 +0900
Subject: [PATCH] [bugfix] rhs of assignment may modify lhs pointer

---
 src/vm.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/vm.c b/src/vm.c
index b958ce4d..93b4c4e0 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -775,9 +775,11 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv)
       ci->fp = pic->sp - c.u.i;
       ci->env = NULL;
       if (pic_proc_func_p(pic_proc_ptr(x))) {
+        pic_value *sp;
 
         /* invoke! */
-	pic->sp[0] = proc->u.func.f(pic);
+        sp = pic->sp;
+        sp[0] = proc->u.func.f(pic);
         pic->sp += pic->ci->retc;
 
         pic_gc_arena_restore(pic, ai);