Remove libtool bits from the repository.

[cln.git] / src / float / misc / cl_F_as.cc

diff --git a/src/float/misc/cl_F_as.cc b/src/float/misc/cl_F_as.cc
index 1f3dfffa84d2bf5e05a2eff1b4019fd36fb8c96b..7bbbdb210a3f92624df8453423fcc5801ff7b437 100644 (file)
--- a/src/float/misc/cl_F_as.cc
+++ b/src/float/misc/cl_F_as.cc
@@ -1,7 +1,7 @@
 // cl_F_As().
 
 // General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
 
 // Specification.
 #include "cln/float.h"
@@ -9,11 +9,11 @@
 
 // Implementation.
 
-#include "cl_N.h"
+#include "base/cl_N.h"
 
 namespace cln {
 
-inline cl_boolean cl_F_p (const cl_number& x)
+inline bool cl_F_p (const cl_number& x)
 {
        if (!x.pointer_p())
                switch (cl_tag((x).word)) {
@@ -21,12 +21,12 @@ inline cl_boolean cl_F_p (const cl_number& x)
                #if defined(CL_WIDE_POINTERS)
                case cl_FF_tag:
                #endif
-                       return cl_true;
+                       return true;
                }
        else
                if (x.heappointer->type->flags & cl_class_flags_subclass_float)
-                       return cl_true;
-       return cl_false;
+                       return true;
+       return false;
 }
 
 const cl_F& cl_F_As (const cl_number& x, const char * filename, int line)
@@ -35,7 +35,7 @@ const cl_F& cl_F_As (const cl_number& x, const char * filename, int line)
                DeclareType(cl_F,x);
                return x;
        } else
-               cl_as_error(x,"a floating-point number",filename,line);
+               throw as_exception(x,"a floating-point number",filename,line);
 }
 
 }  // namespace cln