From 66bbcefe6a03af474068fbdec36229d071ac5083 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 19 Jul 2010 23:42:18 +0900 Subject: [PATCH] removing debug line --- eval.c | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/eval.c b/eval.c index a2f07073..7a17155d 100644 --- a/eval.c +++ b/eval.c @@ -457,14 +457,9 @@ static sexp analyze_app (sexp ctx, sexp x) { res = sexp_nreverse(ctx, res); if (sexp_lambdap(sexp_car(res))) { p=sexp_lambda_params(sexp_car(res)); - for (tmp=sexp_cdr(res); - sexp_pairp(tmp) && sexp_pairp(p); - tmp=sexp_cdr(tmp), p=sexp_cdr(p)) { - if (sexp_lambdap(sexp_car(tmp))) { - sexp_debug(ctx, "setting lambda name: ", sexp_car(p)); + for (tmp=sexp_cdr(res); sexp_pairp(tmp)&&sexp_pairp(p); tmp=sexp_cdr(tmp), p=sexp_cdr(p)) + if (sexp_lambdap(sexp_car(tmp))) sexp_lambda_name(sexp_car(tmp)) = sexp_car(p); - } - } } } sexp_gc_release2(ctx);