eval-apply VALUE

This commit is contained in:
Jan Nieuwenhuizen 2019-10-26 13:12:21 +02:00
parent 8070c7b9a6
commit 29cf1a3ef8
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 2 additions and 1 deletions

View File

@ -288,7 +288,8 @@ expand_variable (SCM x, SCM formals) /*:((internal)) */
SCM
apply_builtin (SCM fn, SCM x) /*:((internal)) */
{
int arity = VALUE (builtin_arity (fn));
SCM a = builtin_arity (fn);
int arity = VALUE (a);
if ((arity > 0 || arity == -1) && x != cell_nil)
if (TYPE (CAR (x)) == TVALUES)
x = cons (CADAR (x), CDR (x));