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:28:02 +02:00
parent a55e739cfb
commit d8e99539e4
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/eval-apply.c
View File

@ -293,17 +293,17 @@ apply_builtin (SCM fn, SCM x) /*:((internal)) */
int arity = VALUE (a);
if ((arity > 0 || arity == -1) && x != cell_nil)
{
SCM c = CAR (x);
if (TYPE (c) == TVALUES)
x = cons (CADR (c), CDR (x));
SCM a = CAR (x);
if (TYPE (a) == TVALUES)
x = cons (CADR (a), CDR (x));
}
if ((arity > 1 || arity == -1) && x != cell_nil)
{
SCM c = CAR (x);
SCM a = CAR (x);
SCM d = CDR (x);
if (TYPE (d) == TPAIR)
if (TYPE (CAR (d)) == TVALUES)
x = cons (c, cons (CADAR (d), d));
x = cons (a, cons (CADAR (d), d));
}
#if __M2_PLANET__