eval-apply
This commit is contained in:
parent
d781e444c8
commit
4e0034e07a
|
@ -132,5 +132,6 @@
|
||||||
#define CDDR(x) CDR (CDR (x))
|
#define CDDR(x) CDR (CDR (x))
|
||||||
#define CADAR(x) CAR (CDR (CAR (x)))
|
#define CADAR(x) CAR (CDR (CAR (x)))
|
||||||
#define CADDR(x) CAR (CDR (CDR (x)))
|
#define CADDR(x) CAR (CDR (CDR (x)))
|
||||||
|
#define CDDAR(x) CDR (CDR (CAR (x)))
|
||||||
|
|
||||||
#endif //__MES_MACROS_H
|
#endif //__MES_MACROS_H
|
||||||
|
|
|
@ -542,9 +542,9 @@ apply:
|
||||||
{
|
{
|
||||||
if (CAAR (R1) == cell_symbol_lambda)
|
if (CAAR (R1) == cell_symbol_lambda)
|
||||||
{
|
{
|
||||||
formals = CADR (CAR (R1));
|
formals = CADAR (R1);
|
||||||
args = CDR (R1);
|
args = CDR (R1);
|
||||||
body = CDDR (CAR (R1));
|
body = CDDAR (R1);
|
||||||
p = pairlis (formals, CDR (R1), R0);
|
p = pairlis (formals, CDR (R1), R0);
|
||||||
check_formals (R1, formals, args);
|
check_formals (R1, formals, args);
|
||||||
call_lambda (body, p, p, R0);
|
call_lambda (body, p, p, R0);
|
||||||
|
|
Loading…
Reference in New Issue