From 29cf1a3ef8e5d4836d59e96cd62f9ebd731dd2e4 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sat, 26 Oct 2019 13:12:21 +0200
Subject: [PATCH] eval-apply VALUE

---
 src/eval-apply.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/eval-apply.c b/src/eval-apply.c
index 35727cfb..f050d3bd 100644
--- a/src/eval-apply.c
+++ b/src/eval-apply.c
@@ -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));