From 2ab0966b2fdf3a64d061727f005d32c5aad27594 Mon Sep 17 00:00:00 2001
From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 19 Sep 2020 16:13:56 +0200
Subject: [PATCH] Make CHECK_SUBR public

	* src/data.c (CHECK_SUBR): Move from here to...
	* src/lisp.h (CHECK_SUBR): ...to here.
---
 src/data.c | 6 ------
 src/lisp.h | 6 ++++++
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/data.c b/src/data.c
index 3f035269de1..8c39c319110 100644
--- a/src/data.c
+++ b/src/data.c
@@ -87,12 +87,6 @@ XOBJFWD (lispfwd a)
   return a.fwdptr;
 }
 
-static void
-CHECK_SUBR (Lisp_Object x)
-{
-  CHECK_TYPE (SUBRP (x), Qsubrp, x);
-}
-
 static void
 set_blv_found (struct Lisp_Buffer_Local_Value *blv, int found)
 {
diff --git a/src/lisp.h b/src/lisp.h
index cbc6a666471..452f48f3468 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2982,6 +2982,12 @@ CHECK_INTEGER (Lisp_Object x)
 {
   CHECK_TYPE (INTEGERP (x), Qnumberp, x);
 }
+
+INLINE void
+CHECK_SUBR (Lisp_Object x)
+{
+  CHECK_TYPE (SUBRP (x), Qsubrp, x);
+}
 
 
 /* If we're not dumping using the legacy dumper and we might be using
-- 
2.39.5