andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

eval-apply: 0

This commit is contained in:
Jan Nieuwenhuizen 2019-10-26 08:54:34 +02:00
parent 9feef1e51f
commit 8a70cd1154
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/eval-apply.c
View File

@ -647,7 +647,7 @@ eval:
formals = CDR (CADR (R1));
body = CDDR (R1);
if (macro_p || global_p)
if (macro_p != 0 || global_p != 0)
expand_variable (body, formals);
R1 = cons (cell_symbol_lambda, cons (formals, body));
push_cc (R1, R2, p, cell_vm_eval_define);