From 46a07441f17b3fc969073c67eb16f51411caee28 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sat, 26 Jun 2010 11:34:34 +0900
Subject: [PATCH] fixing line number info for implicit lambda defines

---
 eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/eval.c b/eval.c
index d9a5a0f9..b9c7ad62 100644
--- a/eval.c
+++ b/eval.c
@@ -625,7 +625,6 @@ 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(tmp) = sexp_pair_source(x);
       sexp_push(ctx, sexp_lambda_defs(sexp_env_lambda(env)), tmp);
       res = SEXP_VOID;
     } else {
@@ -634,6 +633,7 @@ static sexp analyze_define (sexp ctx, sexp x) {
       if (sexp_pairp(sexp_cadr(x))) {
         tmp = sexp_cons(ctx, sexp_cdadr(x), sexp_cddr(x));
         tmp = sexp_cons(ctx, SEXP_VOID, tmp);
+        sexp_pair_source(tmp) = sexp_pair_source(x);
         value = analyze_lambda(ctx, tmp);
       } else
         value = analyze(ctx, sexp_caddr(x));