artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: apply_builtin: Prepare for M2-Planet.

Browse source 
* src/eval-apply.c (apply_builtin): Prepare for M2-Planet.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-07-16 20:53:11 +02:00
parent 065b026bfc
commit c2e80904ad
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/eval-apply.c
View file

@ -288,9 +288,12 @@ SCM
apply_builtin (SCM fn, SCM x) /*:((internal)) */ apply_builtin (SCM fn, SCM x) /*:((internal)) */
{ {
int arity = VALUE (builtin_arity (fn)); int arity = VALUE (builtin_arity (fn));
if ((arity > 0 || arity == -1) && x != cell_nil && TYPE (CAR (x)) == TVALUES) if ((arity > 0 || arity == -1) && x != cell_nil)
x = cons (CADAR (x), CDR (x)); if (TYPE (CAR (x)) == TVALUES)
if ((arity > 1 || arity == -1) && x != cell_nil && TYPE (CDR (x)) == TPAIR && TYPE (CADR (x)) == TVALUES) x = cons (CADAR (x), CDR (x));
if ((arity > 1 || arity == -1) && x != cell_nil)
if (TYPE (CDR (x)) == TPAIR)
if (TYPE (CADR (x)) == TVALUES)
x = cons (CAR (x), cons (CDADAR (x), CDR (x))); x = cons (CAR (x), cons (CDADAR (x), CDR (x)));
#if __M2_PLANET__ #if __M2_PLANET__