diff options
author | Bryan Newbold <bnewbold@robocracy.org> | 2017-03-03 00:56:40 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-08-02 00:09:46 -0700 |
commit | 879f4fa041cfdefee655eb877f1a91f86a9c62b7 (patch) | |
tree | bc68ac058e5d0a7cf8e7815cbe1070fd60e75589 /scmhob.h | |
parent | d13fcf5c0bd68f67059b2561c28c40b55e1117a3 (diff) | |
download | scm-879f4fa041cfdefee655eb877f1a91f86a9c62b7.tar.gz scm-879f4fa041cfdefee655eb877f1a91f86a9c62b7.zip |
New upstream version 5f2
Diffstat (limited to 'scmhob.h')
-rwxr-xr-x[-rw-r--r--] | scmhob.h | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -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)) |