Remove internal inline versions of numerator/denominator(cl_RA).

[cln.git] / src / rational / elem / cl_RA_numerator.cc

diff --git a/src/rational/elem/cl_RA_numerator.cc b/src/rational/elem/cl_RA_numerator.cc
index f009301fa7359abb3dfe78d8f535381d8a096517..b123dc93c9f36af1a2730eea0cb348d20bd9ef92 100644 (file)
--- a/src/rational/elem/cl_RA_numerator.cc
+++ b/src/rational/elem/cl_RA_numerator.cc
@@ -9,15 +9,17 @@
 
 // Implementation.
 
-#define numerator inline_numerator
 #include "rational/cl_RA.h"
-#undef numerator
 
 namespace cln {
 
 const cl_I numerator (const cl_RA& r)
 {
-       return inline_numerator(r);
+       if (integerp(r)) {
+               DeclareType(cl_I,r);
+               return r;
+       } else
+               return TheRatio(r)->numerator;
 }
 
 }  // namespace cln