* */*: Remove cl_boolean, cl_true, and cl_false in favor of built-in

[cln.git] / src / real / misc / cl_R_as.cc

diff --git a/src/real/misc/cl_R_as.cc b/src/real/misc/cl_R_as.cc
index a219e23ab5faf4765a5c839cf58395f2c21c1457..cb0824a7c38c8ef384fc8c108a09e0f822caa6b6 100644 (file)
--- a/src/real/misc/cl_R_as.cc
+++ b/src/real/misc/cl_R_as.cc
@@ -15,9 +15,9 @@ namespace cln {
 
 // Cf. cl_R_p in cl_R_ring.cc.
 // But here, for better inlining in g++, it is preferrable to finish every
-// alternative with either "return cl_true;" or "return cl_false;".
+// alternative with either "return true;" or "return false;".
 
-inline cl_boolean cl_R_p (const cl_number& x)
+inline bool cl_R_p (const cl_number& x)
 {
        if (!x.pointer_p())
                switch (x.nonpointer_tag()) {
@@ -26,12 +26,12 @@ inline cl_boolean cl_R_p (const cl_number& x)
                #if defined(CL_WIDE_POINTERS)
                case cl_FF_tag:
                #endif
-                       return cl_true;
+                       return true;
                }
        else
                if (x.pointer_type()->flags & cl_class_flags_subclass_real)
-                       return cl_true;
-       return cl_false;
+                       return true;
+       return false;
 }
 
 const cl_R& cl_R_As (const cl_number& x, const char * filename, int line)