diff options
author | Bryan Newbold <bnewbold@robocracy.org> | 2017-03-03 00:56:40 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-03-03 00:56:40 -0800 |
commit | fd5f104f287427fee885583bc398c137674e6af0 (patch) | |
tree | 151d1875fdbbc52fd992f53ee197f7070c5f73d1 /scmhob.h | |
parent | 90889a692076f2c62486607d0354e0fca52364bc (diff) | |
download | scm-7c9d2cc9d07b51358f0bccbf14f9eba54c346b90.tar.gz scm-7c9d2cc9d07b51358f0bccbf14f9eba54c346b90.zip |
New upstream version 5f2upstream/5f2upstream
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)) |