Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 22:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

removing debug line

Browse source
This commit is contained in:
Alex Shinn 2010-07-19 23:42:18 +09:00
parent b165a27fcf
commit 66bbcefe6a
1 changed files with 2 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
eval.c
View file

@ -457,14 +457,9 @@ static sexp analyze_app (sexp ctx, sexp x) {
res = sexp_nreverse(ctx, res); res = sexp_nreverse(ctx, res);
if (sexp_lambdap(sexp_car(res))) { if (sexp_lambdap(sexp_car(res))) {
p=sexp_lambda_params(sexp_car(res)); p=sexp_lambda_params(sexp_car(res));
for (tmp=sexp_cdr(res); for (tmp=sexp_cdr(res); sexp_pairp(tmp)&&sexp_pairp(p); tmp=sexp_cdr(tmp), p=sexp_cdr(p))
sexp_pairp(tmp) && sexp_pairp(p); if (sexp_lambdap(sexp_car(tmp)))
tmp=sexp_cdr(tmp), p=sexp_cdr(p)) {
if (sexp_lambdap(sexp_car(tmp))) {
sexp_debug(ctx, "setting lambda name: ", sexp_car(p));
sexp_lambda_name(sexp_car(tmp)) = sexp_car(p); sexp_lambda_name(sexp_car(tmp)) = sexp_car(p);
}
}
} }
} }
sexp_gc_release2(ctx); sexp_gc_release2(ctx);