klisp

commit f9a01fcf11ef99b15ccbf93a8e18cf3f892f9a72
parent 3fbb488749901d2a50b1cb55a2de8df8a8d80947
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Thu, 21 Apr 2011 16:37:41 -0300

Bugfix: uncommented code to add the source info to the table and added the setting of the flag to indicate that this pair indeed has si.

Diffstat:
M
src/kread.c
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/kread.c b/src/kread.c
@@ -65,8 +65,9 @@ TValue kget_source_info(klisp_State *K, TValue pair)
 /* GC: Assumes pair and si are rooted */
 void kset_source_info(klisp_State *K, TValue pair, TValue si)
 {
-//    TValue *node = klispH_set(K, tv2table(K->si_table), pair);
-//    *node = si;
+    gcvalue(pair)->gch.kflags |= K_FLAG_HAS_SI;
+    TValue *node = klispH_set(K, tv2table(K->si_table), pair);
+    *node = si;
 }