mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* numbers.h (SCM_MAKINUM, SCM_I_MAKINUM): Renamed SCM_MAKINUM to

Browse source 
SCM_I_MAKINUM and changed all uses.
* deprecated.h, deprecated.c (SCM_MAKINUM): Newly deprecated.
This commit is contained in:
Marius Vollmer 2004-07-08 15:41:48 +00:00
parent d199059254
commit 5a572ca13c
3 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/deprecated.c
View file

@ -1105,7 +1105,6 @@ SCM_DEFINE (scm_gentemp, "gentemp", 0, 2, 0,
}
#undef FUNC_NAME
#if 0
SCM
SCM_MAKINUM (scm_t_signed_bits val)
{
@ -1113,7 +1112,6 @@ SCM_MAKINUM (scm_t_signed_bits val)
("SCM_MAKINUM is deprecated. Use scm_from_int or similar instead.");
return scm_from_int (val);
}
#endif
void
scm_i_init_deprecated ()

2
libguile/deprecated.h
View file

@ -323,9 +323,7 @@ SCM_API SCM scm_gentemp (SCM prefix, SCM obarray);
^ (SCM_UNPACK (SCM_BOOL_T) \
^ SCM_UNPACK (SCM_BOOL_F))))
#if 0
SCM_API SCM SCM_MAKINUM (scm_t_signed_bits val);
#endif
void scm_i_init_deprecated (void);

4
libguile/numbers.h
View file

@ -68,7 +68,7 @@
#define SCM_INUMP(x) (2 & SCM_UNPACK (x))
#define SCM_NINUMP(x) (!SCM_INUMP (x))
#define SCM_MAKINUM(x) \
#define SCM_I_MAKINUM(x) \
(SCM_PACK ((((scm_t_signed_bits) (x)) << 2) + scm_tc2_int))
#define SCM_INUM(x) (SCM_SRS ((scm_t_signed_bits) SCM_UNPACK (x), 2))
@ -79,7 +79,7 @@
/* A name for 0. */
#define SCM_INUM0 (SCM_MAKINUM (0))
#define SCM_INUM0 (SCM_I_MAKINUM (0))
/* SCM_MAXEXP is the maximum double precision exponent
* SCM_FLTMAX is less than or scm_equal the largest single precision float