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

eval-apply

This commit is contained in:
Jan Nieuwenhuizen 2019-10-26 14:22:57 +02:00
parent d781e444c8
commit 4e0034e07a
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
include/mes/macros.h
View File

@ -132,5 +132,6 @@
#define CDDR(x) CDR (CDR (x))
#define CADAR(x) CAR (CDR (CAR (x)))
#define CADDR(x) CAR (CDR (CDR (x)))
#define CDDAR(x) CDR (CDR (CAR (x)))
#endif //__MES_MACROS_H

4
src/eval-apply.c
View File

@ -542,9 +542,9 @@ apply:
{
if (CAAR (R1) == cell_symbol_lambda)
{
formals = CADR (CAR (R1));
formals = CADAR (R1);
args = CDR (R1);
body = CDDR (CAR (R1));
body = CDDAR (R1);
p = pairlis (formals, CDR (R1), R0);
check_formals (R1, formals, args);
call_lambda (body, p, p, R0);