mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(SCM_GC8MARKP, SCM_SETGC8MARK, SCM_CLRGC8MARK):

Browse source 
Use current names in definitions.
This commit is contained in:
Mikael Djurfeldt 2003-05-12 16:29:45 +00:00
parent c72e11e605
commit 7aaf8dc9f7
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2003-05-12 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* deprecated.h (SCM_GC8MARKP, SCM_SETGC8MARK, SCM_CLRGC8MARK):
Use current names in definitions.
2003-05-10 Kevin Ryde <user42@zip.com.au> 2003-05-10 Kevin Ryde <user42@zip.com.au>
* numbers.c (scm_num_eq_p, scm_less_p): Don't pass NaN to mpz_cmp_d. * numbers.c (scm_num_eq_p, scm_less_p): Don't pass NaN to mpz_cmp_d.

6
libguile/deprecated.h
View file

@ -58,9 +58,9 @@ SCM_API SCM scm_unprotect_object (SCM obj);
(SCM_SETCDR ((x), SCM_PACK (SCM_UNPACK (SCM_CDR (x)) | (y)))) (SCM_SETCDR ((x), SCM_PACK (SCM_UNPACK (SCM_CDR (x)) | (y))))
#define SCM_FREEP(x) (SCM_FREE_CELL_P (x)) #define SCM_FREEP(x) (SCM_FREE_CELL_P (x))
#define SCM_NFREEP(x) (!SCM_FREE_CELL_P (x)) #define SCM_NFREEP(x) (!SCM_FREE_CELL_P (x))
#define SCM_GC8MARKP(x) SCM_GCMARKP (x) #define SCM_GC8MARKP(x) SCM_GC_MARK_P (x)
#define SCM_SETGC8MARK(x) SCM_SETGCMARK (x) #define SCM_SETGC8MARK(x) SCM_SET_GC_MARK (x)
#define SCM_CLRGC8MARK(x) SCM_CLRGCMARK (x) #define SCM_CLRGC8MARK(x) SCM_CLEAR_GC_MARK (x)
#define SCM_GCTYP16(x) SCM_TYP16 (x) #define SCM_GCTYP16(x) SCM_TYP16 (x)
#define SCM_GCCDR(x) SCM_CDR (x) #define SCM_GCCDR(x) SCM_CDR (x)
SCM_API void scm_remember (SCM * ptr); SCM_API void scm_remember (SCM * ptr);