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

sexp_strip_synclos checks cycles

Browse source
This commit is contained in:
Alex Shinn 2011-10-30 22:36:56 +09:00
parent e08c0eac45
commit c4acf012b5
1 changed files with 23 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
eval.c
View file

@ -473,17 +473,34 @@ sexp sexp_syntactic_closure_expr_op (sexp ctx sexp_api_params(self, n), sexp x)
}
sexp sexp_strip_synclos (sexp ctx sexp_api_params(self, n), sexp x) {
sexp res;
sexp_gc_var2(kar, kdr);
sexp_gc_preserve2(ctx, kar, kdr);
sexp ls1, ls2, ls3;
sexp_gc_var2(res, tmp);
sexp_gc_preserve2(ctx, res, tmp);
loop:
if (sexp_synclop(x)) {
x = sexp_synclo_expr(x);
goto loop;
} else if (sexp_pairp(x)) {
kar = sexp_strip_synclos(ctx sexp_api_pass(self, n), sexp_car(x));
kdr = sexp_strip_synclos(ctx sexp_api_pass(self, n), sexp_cdr(x));
res = sexp_cons(ctx, kar, kdr);
tmp = sexp_strip_synclos(ctx sexp_api_pass(self, n), sexp_car(x));
ls3 = res = sexp_cons(ctx, tmp, SEXP_NULL);
for (ls1=sexp_cdr(x), ls2=x;
sexp_pairp(ls1) && sexp_pairp(sexp_cdr(ls1)) && ls1 != ls2;
ls1=sexp_cddr(ls1), ls2=sexp_cdr(ls2)) {
tmp = sexp_strip_synclos(ctx sexp_api_pass(self, n), sexp_car(ls1));
sexp_cdr(ls3) = sexp_cons(ctx, tmp, SEXP_NULL);
ls3 = sexp_cdr(ls3);
tmp = sexp_strip_synclos(ctx sexp_api_pass(self, n), sexp_cadr(ls1));
sexp_cdr(ls3) = sexp_cons(ctx, tmp, SEXP_NULL);
ls3 = sexp_cdr(ls3);
}
if (sexp_pairp(ls1)) {
tmp = (ls1 == ls2) ? sexp_car(ls1) : sexp_strip_synclos(ctx sexp_api_pass(self, n), sexp_car(ls1));
sexp_cdr(ls3) = sexp_cons(ctx, tmp, SEXP_NULL);
ls3 = sexp_cdr(ls3);
ls1 = sexp_cdr(ls1);
}
sexp_cdr(ls3) = (ls1 == ls2) ? ls1 : sexp_strip_synclos(ctx sexp_api_pass(self, n), ls1);
sexp_pair_source(res) = sexp_pair_source(x);
sexp_immutablep(res) = 1;
} else {
res = x;