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

(scm_is_eq): New.

Browse source
This commit is contained in:
Marius Vollmer 2004-07-06 10:42:33 +00:00
parent 1fe56d60fd
commit 9c293a3d2f
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/tags.h
View file

@ -136,7 +136,8 @@ typedef unsigned long scm_t_bits;
/* SCM values can not be compared by using the operator ==. Use the following /* SCM values can not be compared by using the operator ==. Use the following
* macro instead, which is the equivalent of the scheme predicate 'eq?'. * macro instead, which is the equivalent of the scheme predicate 'eq?'.
*/ */
#define SCM_EQ_P(x, y) (SCM_UNPACK (x) == SCM_UNPACK (y)) #define scm_is_eq(x, y) (SCM_UNPACK (x) == SCM_UNPACK (y))
#define SCM_EQ_P scm_is_eq