klisp

commit cee0922e378d421c6cbb07eac10ab5e16b25dd0d
parent 3c3d994eae093e7534db6fbc976c0a3f9c4ec837
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Wed, 20 Apr 2011 12:35:58 -0300

GC Bugfix: the same as before, only also pushed/popped fp. (Thanks Valgrind!).

Diffstat:
M
src/kread.c
 | 
2
++

1 file changed, 2 insertions(+), 0 deletions(-)
diff --git a/src/kread.c b/src/kread.c
@@ -400,9 +400,11 @@ TValue kread_fsm(klisp_State *K)
 		/* continue reading objects of list */
 		/* save first & last pair of the (still incomplete) list */
 		pop_data(K);
+		krooted_tvs_push(K, fp);
 		krooted_tvs_push(K, fp_old_si);
 		push_data(K, kcons (K, fp, fp_old_si));
 		krooted_tvs_pop(K);
+		krooted_tvs_pop(K);
 		push_state(K, ST_FIRST_LIST);
 		push_data(K, fp);
 		push_state(K, ST_MIDDLE_LIST);