"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "scmhob.h" between
scm-5f2.zip and scm-5f3.zip

About: SCM is a Scheme Language Interpreter.

scmhob.h  (scm-5f2):scmhob.h  (scm-5f3)
skipping to change at line 49 skipping to change at line 49
#define ST_LENGTH(str) MAKINUM(LENGTH(str)) #define ST_LENGTH(str) MAKINUM(LENGTH(str))
#define ST_REF(str,k) MAKICHR(CHARS(str)[INUM(k)]) #define ST_REF(str,k) MAKICHR(CHARS(str)[INUM(k)])
#define VECTOR_LENGTH(v) MAKINUM(LENGTH(v)) #define VECTOR_LENGTH(v) MAKINUM(LENGTH(v))
#ifdef FLOATS #ifdef FLOATS
# include <math.h> # include <math.h>
#else #else
# define scm_abs scm_iabs # define scm_abs scm_iabs
#endif #endif
#ifdef BIGDIG #ifdef BIGDIG
# define PRE_TRANSC_FUN(x) (INUMP(x) ? (double) INUM(x) : (REALP(x) ? (double) R EALPART(x) : (double) big2dbl(x))) # define PRE_TRANSC_FUN(x) (INUMP(x) ? (double) INUM(x) : (REALP(x) ? (double) R EALPART(x) : (double) int2dbl(x)))
#else #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 #endif
#define SIN_FUN(x) (makdbl( sin( PRE_TRANSC_FUN(x)), 0.0)) #define SIN_FUN(x) (makdbl( sin( PRE_TRANSC_FUN(x)), 0.0))
#define COS_FUN(x) (makdbl( cos( PRE_TRANSC_FUN(x)), 0.0)) #define COS_FUN(x) (makdbl( cos( PRE_TRANSC_FUN(x)), 0.0))
#define TAN_FUN(x) (makdbl( tan( PRE_TRANSC_FUN(x)), 0.0)) #define TAN_FUN(x) (makdbl( tan( PRE_TRANSC_FUN(x)), 0.0))
#define ASIN_FUN(x) (makdbl( asin( PRE_TRANSC_FUN(x)), 0.0)) #define ASIN_FUN(x) (makdbl( asin( PRE_TRANSC_FUN(x)), 0.0))
#define ACOS_FUN(x) (makdbl( acos( PRE_TRANSC_FUN(x)), 0.0)) #define ACOS_FUN(x) (makdbl( acos( PRE_TRANSC_FUN(x)), 0.0))
#define ATAN_FUN(x) (makdbl( atan( PRE_TRANSC_FUN(x)), 0.0)) #define ATAN_FUN(x) (makdbl( atan( PRE_TRANSC_FUN(x)), 0.0))
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)