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

Fixing macro environment to be the evaluation, not binding

Browse source 
environment, in let-syntax.  The difference arises when the same
binding is inside and outside the let-syntax.  Patch from Zhang Meng.
This commit is contained in:
Alex Shinn 2013-01-03 22:34:40 +09:00
parent c0b257db25
commit df116bb779
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
eval.c
View file

@ -828,7 +828,7 @@ static sexp analyze_bind_syntax (sexp ls, sexp eval_ctx, sexp bind_ctx) {
else else
mac = sexp_eval(eval_ctx, sexp_cadar(ls), NULL); mac = sexp_eval(eval_ctx, sexp_cadar(ls), NULL);
if (sexp_procedurep(mac)) if (sexp_procedurep(mac))
mac = sexp_make_macro(eval_ctx, mac, sexp_context_env(bind_ctx)); mac = sexp_make_macro(eval_ctx, mac, sexp_context_env(eval_ctx));
if (!(sexp_macrop(mac)||sexp_corep(mac))) { if (!(sexp_macrop(mac)||sexp_corep(mac))) {
res = (sexp_exceptionp(mac) ? mac res = (sexp_exceptionp(mac) ? mac
: sexp_compile_error(eval_ctx, "non-procedure macro", mac)); : sexp_compile_error(eval_ctx, "non-procedure macro", mac));