aboutsummaryrefslogtreecommitdiffstats
path: root/scmhob.h
diff options
context:
space:
mode:
Diffstat (limited to 'scmhob.h')
-rwxr-xr-x[-rw-r--r--]scmhob.h8
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))