From 66ae7b1c0317e02e0eaa8cc3e1af0a40c89dc2ec Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Tue, 20 Jul 2010 00:19:02 +0900
Subject: [PATCH] preserving internal define source info

---
 eval.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/eval.c b/eval.c
index 7a17155d..6e567770 100644
--- a/eval.c
+++ b/eval.c
@@ -564,7 +564,9 @@ static sexp analyze_lambda (sexp ctx, sexp x) {
     if (sexp_pairp(sexp_caar(tmp))) {
       name = sexp_caaar(tmp);
       tmp = sexp_cons(ctx3, sexp_cdaar(tmp), sexp_cdar(tmp));
-      value = analyze_lambda(ctx3, sexp_cons(ctx3, SEXP_VOID, tmp));
+      tmp = sexp_cons(ctx3, SEXP_VOID, tmp);
+      sexp_pair_source(tmp) = sexp_pair_source(sexp_caar(ls));
+      value = analyze_lambda(ctx3, tmp);
     } else {
       name = sexp_caar(tmp);
       value = analyze(ctx3, sexp_cadar(tmp));
@@ -624,6 +626,7 @@ static sexp analyze_define (sexp ctx, sexp x) {
       sexp_push(ctx, sexp_lambda_sv(sexp_env_lambda(env)), name);
       sexp_push(ctx, sexp_lambda_locals(sexp_env_lambda(env)), name);
       tmp = sexp_cons(ctx, sexp_cdr(x), ctx);
+      sexp_pair_source(sexp_cdr(x)) = sexp_pair_source(x);
       sexp_push(ctx, sexp_lambda_defs(sexp_env_lambda(env)), tmp);
       res = SEXP_VOID;
     } else {