New upstream version 5f2upstream/5f2upstream

1 files changed, 5 insertions, 3 deletions

diff --git a/scmhob.h b/scmhob.h
index 59b16f4..66d3f6b 100644..100755
--- a/scmhob.h
+++ b/scmhob.h
@@ -41,12 +41,14 @@
 #define VECTOR_LENGTH(v)  MAKINUM(LENGTH(v))
 
 #ifdef FLOATS
-#include <math.h>
+# include <math.h>
+#else
+# define scm_abs scm_iabs
 #endif
 #ifdef BIGDIG
-#define PRE_TRANSC_FUN(x) (INUMP(x) ? (double) INUM(x) : (REALP(x) ? (double) REALPART(x) : (double) big2dbl(x)))
+# define PRE_TRANSC_FUN(x) (INUMP(x) ? (double) INUM(x) : (REALP(x) ? (double) REALPART(x) : (double) big2dbl(x)))
 #else
-#define PRE_TRANSC_FUN(x) (INUMP(x) ?  (double) INUM(x) : (double) REALPART(x))
+# define PRE_TRANSC_FUN(x) (INUMP(x) ?  (double) INUM(x) : (double) REALPART(x))
 #endif
 
 #define SIN_FUN(x) (makdbl( sin( PRE_TRANSC_FUN(x)), 0.0))