klisp

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

GC Bugfix: added tvs_push/pop to fp_old_si around cons.

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

1 file changed, 2 insertions(+), 0 deletions(-)
diff --git a/src/kread.c b/src/kread.c
@@ -400,7 +400,9 @@ 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_old_si);
 		push_data(K, kcons (K, fp, fp_old_si));
+		krooted_tvs_pop(K);
 		push_state(K, ST_FIRST_LIST);
 		push_data(K, fp);
 		push_state(K, ST_MIDDLE_LIST);