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

preserving to be on the safe-side

Browse source
This commit is contained in:
Alex Shinn 2011-01-11 22:53:51 +09:00
parent bb7cae7e92
commit 5aeb7edaff
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
opt/simplify.c
View file

@ -6,9 +6,9 @@
static sexp simplify (sexp ctx, sexp ast, sexp init_substs, sexp lambda) {
int check;
sexp ls1, ls2, p1, p2, sv, ctx2;
sexp_gc_var4(res, substs, tmp, app);
sexp_gc_preserve4(ctx, res, substs, tmp, app);
sexp ls1, ls2, p1, p2, sv;
sexp_gc_var5(res, substs, tmp, app, ctx2);
sexp_gc_preserve5(ctx, res, substs, tmp, app, ctx2);
res = ast; /* return the ast as-is by default */
substs = init_substs;
@ -133,7 +133,7 @@ static sexp simplify (sexp ctx, sexp ast, sexp init_substs, sexp lambda) {
}
sexp_gc_release4(ctx);
sexp_gc_release5(ctx);
return res;
}