diff options
author | Michael Livshin <mlivshin@bigfoot.com> | 2001-05-26 20:51:22 +0000 |
---|---|---|
committer | Michael Livshin <mlivshin@bigfoot.com> | 2001-05-26 20:51:22 +0000 |
commit | c014a02eec7b99c54d8a156ce491ae8d1e341f97 (patch) | |
tree | fa7a113564c23215b83e44a1498616a6bf16c853 /libguile/numbers.c | |
parent | f3f70257a3befb6495760923d167e52d5cdfddae (diff) | |
download | guile-c014a02eec7b99c54d8a156ce491ae8d1e341f97.tar.gz |
revert the ill-considered part of the 2001-05-24 changes
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r-- | libguile/numbers.c | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c index 261248b62..8f08a74a3 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -4253,22 +4253,6 @@ scm_i_big2dbl (SCM b) #define MAX_VALUE ULONG_MAX #include "libguile/num2integral.i.c" -#define NUM2INTEGRAL scm_num2bits -#define INTEGRAL2NUM scm_bits2num -#define INTEGRAL2BIG scm_i_bits2big -#define ITYPE scm_bits_t -#define MIN_VALUE ((scm_bits_t) ((scm_ubits_t)1 << (sizeof (scm_bits_t) - 1))) -#define MAX_VALUE (~MIN_VALUE) -#include "libguile/num2integral.i.c" - -#define NUM2INTEGRAL scm_num2ubits -#define INTEGRAL2NUM scm_ubits2num -#define INTEGRAL2BIG scm_i_ubits2big -#define UNSIGNED -#define ITYPE scm_ubits_t -#define MAX_VALUE ((scm_ubits_t) ((scm_bits_t) (-1))) -#include "libguile/num2integral.i.c" - #define NUM2INTEGRAL scm_num2ptrdiff #define INTEGRAL2NUM scm_ptrdiff2num #define INTEGRAL2BIG scm_i_ptrdiff2big |