mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

* tags.h, deprecated.h (SCM_EQ_P): Deprecated by moving it into

Browse source 
deprecated.h.  Replaced all uses with scm_is_eq.
This commit is contained in:
Marius Vollmer 2004-07-27 15:41:49 +00:00
parent c82f8ed66c
commit bc36d0502b
39 changed files with 201 additions and 200 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/validate.h
View file

@ -143,7 +143,7 @@
#define SCM_VALIDATE_BOOL_COPY(pos, flag, cvar) \
do { \
SCM_ASSERT (scm_is_bool (flag), flag, pos, FUNC_NAME); \
cvar = SCM_EQ_P (flag, SCM_BOOL_T) ? 1 : 0; \
cvar = scm_to_bool (flag); \
} while (0)
#define SCM_VALIDATE_CHAR(pos, scm) SCM_MAKE_VALIDATE_MSG (pos, scm, CHARP, "character")
@ -306,7 +306,7 @@
#define SCM_VALIDATE_PROC(pos, proc) \
do { \
SCM_ASSERT (SCM_EQ_P (scm_procedure_p (proc), SCM_BOOL_T), proc, pos, FUNC_NAME); \
SCM_ASSERT (scm_is_true (scm_procedure_p (proc)), proc, pos, FUNC_NAME); \
} while (0)
#define SCM_VALIDATE_NULLORCONS(pos, env) \