1 files changed, 8 insertions, 0 deletions

diff --git a/src/floatfns.c b/src/floatfns.c
index 6113758f964..d7514eca886 100644
--- a/src/floatfns.c
+++ b/src/floatfns.c
@@ -41,6 +41,14 @@ along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
 # define isnan(x) ((x) != (x))
 #endif
 
+/* Check that X is a floating point number.  */
+
+static void
+CHECK_FLOAT (Lisp_Object x)
+{
+  CHECK_TYPE (FLOATP (x), Qfloatp, x);
+}
+
 /* Extract a Lisp number as a `double', or signal an error.  */
 
 double