From 18d91a9c594747287899664a15224802cad74de0 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Thu, 24 Oct 2019 19:07:22 +0200
Subject: [PATCH] core: builtin_p: Prepare for M2-Planet.

* src/builtins.c (builtin_p): Prepare for M2-Planet.
---
 src/builtins.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/builtins.c b/src/builtins.c
index 7599c3dd..0f02c8b4 100644
--- a/src/builtins.c
+++ b/src/builtins.c
@@ -66,8 +66,9 @@ builtin_function (SCM builtin)
 SCM
 builtin_p (SCM x)
 {
-  if (TYPE (x) == TSTRUCT && struct_ref_ (x, 2) == cell_symbol_builtin)
-    return cell_t;
+  if (TYPE (x) == TSTRUCT)
+    if (struct_ref_ (x, 2) == cell_symbol_builtin)
+      return cell_t;
   return cell_f;
 }