GC preserving stripped synclos.

This commit is contained in:
Alex Shinn 2011-12-11 21:03:35 +09:00
parent 4c56ec04f9
commit 422beccc7d

2
eval.c
View file

@ -863,7 +863,7 @@ static sexp analyze (sexp ctx, sexp object) {
else
res = sexp_make_lit(ctx,
(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));
break;
case SEXP_CORE_DEFINE_SYNTAX: