From a08b0d00584a86ff8ada530cd0996e5f3ac2b4c5 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Thu, 14 Mar 2002 22:25:31 +0000
Subject: [PATCH] (singp): Use SCM_REALP instead of SCM_SLOPPY_REALP.

---
 libguile/unif.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/unif.c b/libguile/unif.c
index ce0cf2706..761fbc101 100644
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -146,7 +146,7 @@ scm_uniform_element_size (SCM obj)
 static int
 singp (SCM obj)
 {
-  if (!SCM_SLOPPY_REALP (obj))
+  if (!SCM_REALP (obj))
     return 0;
   else
     {