klisp

commit c40010c093384c5c6f5c6855e56438aa29b0e879
parent cab440923e65a995eec42f3a12ea4fec831e044a
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Fri, 29 Apr 2011 16:50:17 -0300

Added source code info to the underlying operative of applicatives created by $lambda.

Diffstat:
M
src/kgcombiners.c
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/kgcombiners.c b/src/kgcombiners.c
@@ -166,12 +166,13 @@ void Slambda(klisp_State *K, TValue *xparams, TValue ptree, TValue denv)
 				       denv);
     #if KTRACK_SI
     /* save as source code info the info from the expression whose evaluation
-       got us here */
+       got us here, both for the applicative and the underlying combiner */
     TValue si = kget_csi(K);
     
     if (!ttisnil(si)) {
 	krooted_tvs_push(K, new_app);
 	kset_source_info(K, new_app, si);
+	kset_source_info(K, kunwrap(new_app), si);
 	krooted_tvs_pop(K);
     }
     #endif