mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
parent
6fe952e108
commit
3714964cff
1 changed files with 1 additions and 0 deletions
1
eval.c
1
eval.c
|
@ -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 res;
|
||||
sexp_assert_type(ctx, sexp_envp, SEXP_ENV, env);
|
||||
if (! (sexp_symbolp(expr) || sexp_pairp(expr) || sexp_synclop(expr)))
|
||||
return expr;
|
||||
res = sexp_alloc_type(ctx, synclo, SEXP_SYNCLO);
|
||||
|
|
Loading…
Add table
Reference in a new issue