4 #include "base/cl_sysdep.h"
12 #include "real/cl_R.h"
13 #include "cln/rational.h"
14 #include "cln/float.h"
18 const cl_R operator- (const cl_R& x, const cl_R& y)
20 if (eq(y,0)) { return x; }
21 elif (eq(x,0)) { return -y; }
23 #define minus(a,b) a-b
24 GEN_R_OP2_2(x,y, minus, return)