mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-08 13:37:35 +02:00
GC preserving stripped synclos.
This commit is contained in:
parent
4c56ec04f9
commit
422beccc7d
1 changed files with 1 additions and 1 deletions
2
eval.c
2
eval.c
|
@ -863,7 +863,7 @@ static sexp analyze (sexp ctx, sexp object) {
|
||||||
else
|
else
|
||||||
res = sexp_make_lit(ctx,
|
res = sexp_make_lit(ctx,
|
||||||
(sexp_core_code(op) == SEXP_CORE_QUOTE) ?
|
(sexp_core_code(op) == SEXP_CORE_QUOTE) ?
|
||||||
sexp_strip_synclos(ctx , NULL, 1, sexp_cadr(x)) :
|
tmp=sexp_strip_synclos(ctx , NULL, 1, sexp_cadr(x)) :
|
||||||
sexp_cadr(x));
|
sexp_cadr(x));
|
||||||
break;
|
break;
|
||||||
case SEXP_CORE_DEFINE_SYNTAX:
|
case SEXP_CORE_DEFINE_SYNTAX:
|
||||||
|
|
Loading…
Add table
Reference in a new issue