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

adding a type check to make-syntactic-closure

Browse source 
Fixes issue #315.
This commit is contained in:
Alex Shinn 2016-03-07 08:54:23 +09:00
parent 6fe952e108
commit 3714964cff
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
eval.c
View file

@ -388,6 +388,7 @@ static sexp sexp_make_macro (sexp ctx, sexp p, sexp e) {
sexp sexp_make_synclo_op (sexp ctx, sexp self, sexp_sint_t n, sexp env, sexp fv, sexp expr) { sexp sexp_make_synclo_op (sexp ctx, sexp self, sexp_sint_t n, sexp env, sexp fv, sexp expr) {
sexp res; sexp res;
sexp_assert_type(ctx, sexp_envp, SEXP_ENV, env);
if (! (sexp_symbolp(expr) || sexp_pairp(expr) || sexp_synclop(expr))) if (! (sexp_symbolp(expr) || sexp_pairp(expr) || sexp_synclop(expr)))
return expr; return expr;
res = sexp_alloc_type(ctx, synclo, SEXP_SYNCLO); res = sexp_alloc_type(ctx, synclo, SEXP_SYNCLO);