From f29a6e4fc87a2e68b2b841e30f93544a23d848c3 Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
Date: Sun, 3 Nov 2019 14:03:10 +0100
Subject: [PATCH] core: eval-apply: Fix formal_p.

* src/eval-apply.c (formal_p): Return boolean.
---
 src/eval-apply.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/eval-apply.c b/src/eval-apply.c
index bb6a6ee2..f1c6877f 100644
--- a/src/eval-apply.c
+++ b/src/eval-apply.c
@@ -209,9 +209,9 @@ formal_p (SCM x, SCM formals)   /*:((internal)) */
   if (TYPE (formals) == TSYMBOL)
     {
       if (x == formals)
-        return x;
+        return 1;
       else
-        return cell_f;
+        return 0;
     }
   while (TYPE (formals) == TPAIR && CAR (formals) != x)
     formals = CDR (formals);