From 879f4fa041cfdefee655eb877f1a91f86a9c62b7 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Fri, 3 Mar 2017 00:56:40 -0800 Subject: New upstream version 5f2 --- scmhob.h | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) mode change 100644 => 100755 scmhob.h (limited to 'scmhob.h') diff --git a/scmhob.h b/scmhob.h old mode 100644 new mode 100755 index 59b16f4..66d3f6b --- a/scmhob.h +++ b/scmhob.h @@ -41,12 +41,14 @@ #define VECTOR_LENGTH(v) MAKINUM(LENGTH(v)) #ifdef FLOATS -#include +# include +#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)) -- cgit v1.2.3