an open source interpreter for the Kernel Programming Language.
git clone http://git.hanabi.in/repos/klisp.git
Log | Files | Refs | README

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.

Msrc/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