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

Fix sexp_contains_syntax_p_bound for synclos in dotted rest position.

Browse source 
Closes #464.
This commit is contained in:
Alex Shinn 2022-12-04 23:31:25 +09:00
parent 4185012205
commit cadae49fec
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
eval.c
View file

@ -624,8 +624,7 @@ static int sexp_contains_syntax_p_bound(sexp x, int depth) {
if (i > 0 && (ls1 == ls2 || ls1 == sexp_car(ls2)))
return 0; /* cycle, no synclo found, assume none */
}
if (sexp_synclop(ls1))
return sexp_contains_syntax_p_bound(sexp_id_name(ls1), depth-1);
return sexp_contains_syntax_p_bound(ls1, depth-1);
} else if (sexp_vectorp(x)) {
for (i = 0; i < sexp_vector_length(x); ++i)
if (sexp_contains_syntax_p_bound(sexp_vector_ref(x, sexp_make_fixnum(i)), depth-1))