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

* numbers.h (SCM_INEXACTP, SCM_REALP, SCM_COMPLEXP): Removed uses

Browse source 
of SCM_SLOPPY_INEXACTP, SCM_SLOPPY_REALP and SCM_SLOPPY_COMPLEXP.

	* numbers.h, deprecated.h (SCM_SLOPPY_INEXACTP, SCM_SLOPPY_REALP,
	SCM_SLOPPY_COMPLEXP): Deprecated and moved from numbers.h to
	deprecated.h.
This commit is contained in:
Dirk Herrmann 2003-09-06 09:17:29 +00:00
parent 6b412e9171
commit 0d5e348022
4 changed files with 31 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
NEWS
View file

@ -630,6 +630,18 @@ Guile always defines
scm_t_timespec
** The macro SCM_SLOPPY_INEXACTP has been deprecated.
Use SCM_INEXACTP instead.
** The macro SCM_SLOPPY_REALP has been deprecated.
Use SCM_REALP instead.
** The macro SCM_SLOPPY_COMPLEXP has been deprecated.
Use SCM_COMPLEXP instead.
** The preprocessor define USE_THREADS has been deprecated.
Going forward, assume that the thread API is always present.

9
libguile/ChangeLog
View file

@ -1,3 +1,12 @@
2003-09-06 Dirk Herrmann <D.Herrmann@tu-bs.de>
* numbers.h (SCM_INEXACTP, SCM_REALP, SCM_COMPLEXP): Removed uses
of SCM_SLOPPY_INEXACTP, SCM_SLOPPY_REALP and SCM_SLOPPY_COMPLEXP.
* numbers.h, deprecated.h (SCM_SLOPPY_INEXACTP, SCM_SLOPPY_REALP,
SCM_SLOPPY_COMPLEXP): Deprecated and moved from numbers.h to
deprecated.h.
2003-09-06 Dirk Herrmann <D.Herrmann@tu-bs.de>
* eq.c (scm_eqv_p, scm_equal_p): Removed uses of

7
libguile/deprecated.h
View file

@ -27,6 +27,13 @@
#if (SCM_ENABLE_DEPRECATED == 1)
/* From numbers.h: Macros checking for types, but avoiding a redundant check
* for !SCM_IMP. These were deprecated in guile 1.7.0 on 2003-09-06. */
#define SCM_SLOPPY_INEXACTP(x) (SCM_TYP16S (x) == scm_tc16_real)
#define SCM_SLOPPY_REALP(x) (SCM_TYP16 (x) == scm_tc16_real)
#define SCM_SLOPPY_COMPLEXP(x) (SCM_TYP16 (x) == scm_tc16_complex)
/* From eval.h: Macros for handling ilocs. These were deprecated in guile
* 1.7.0 on 2003-06-04. */
#define SCM_ILOC00 SCM_MAKE_ITAG8(0L, scm_tc8_iloc)

9
libguile/numbers.h
View file

@ -121,12 +121,9 @@
/* Numbers
*/
#define SCM_SLOPPY_INEXACTP(x) (SCM_TYP16S (x) == scm_tc16_real)
#define SCM_SLOPPY_REALP(x) (SCM_TYP16 (x) == scm_tc16_real)
#define SCM_SLOPPY_COMPLEXP(x) (SCM_TYP16 (x) == scm_tc16_complex)
#define SCM_INEXACTP(x) (!SCM_IMP (x) && SCM_SLOPPY_INEXACTP(x))
#define SCM_REALP(x) (!SCM_IMP (x) && SCM_SLOPPY_REALP(x))
#define SCM_COMPLEXP(x) (!SCM_IMP (x) && SCM_SLOPPY_COMPLEXP(x))
#define SCM_INEXACTP(x) (!SCM_IMP (x) && SCM_TYP16S (x) == scm_tc16_real)
#define SCM_REALP(x) (!SCM_IMP (x) && SCM_TYP16 (x) == scm_tc16_real)
#define SCM_COMPLEXP(x) (!SCM_IMP (x) && SCM_TYP16 (x) == scm_tc16_complex)
#define SCM_REAL_VALUE(x) (((scm_t_double *) SCM2PTR (x))->real)
#define SCM_COMPLEX_MEM(x) ((scm_t_complex *) SCM_CELL_WORD_1 (x))