1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 07:50:20 +02:00

* tags.h (SCM_IM_HASH_DISPATCH): Removed.

This commit is contained in:
Mikael Djurfeldt 1999-08-29 03:28:08 +00:00
parent 2c53acd5c3
commit a9571599e7

View file

@ -472,19 +472,18 @@ extern char *scm_isymnames[]; /* defined in print.c */
#define SCM_EOL SCM_MAKIFLAG(20)
#define SCM_UNSPECIFIED SCM_MAKIFLAG(21)
#define SCM_IM_DISPATCH SCM_MAKISYM(22)
#define SCM_IM_HASH_DISPATCH SCM_MAKISYM(23)
#define SCM_IM_SLOT_REF SCM_MAKISYM(24)
#define SCM_IM_SLOT_SET_X SCM_MAKISYM(25)
#define SCM_IM_SLOT_REF SCM_MAKISYM(23)
#define SCM_IM_SLOT_SET_X SCM_MAKISYM(24)
/* Multi-language support */
#define SCM_IM_NIL_COND SCM_MAKISYM(26)
#define SCM_IM_NIL_IFY SCM_MAKISYM(27)
#define SCM_IM_T_IFY SCM_MAKISYM(28)
#define SCM_IM_0_COND SCM_MAKISYM(29)
#define SCM_IM_0_IFY SCM_MAKISYM(30)
#define SCM_IM_1_IFY SCM_MAKISYM(31)
#define SCM_IM_BIND SCM_MAKISYM(32)
#define SCM_IM_NIL_COND SCM_MAKISYM(25)
#define SCM_IM_NIL_IFY SCM_MAKISYM(26)
#define SCM_IM_T_IFY SCM_MAKISYM(27)
#define SCM_IM_0_COND SCM_MAKISYM(28)
#define SCM_IM_0_IFY SCM_MAKISYM(29)
#define SCM_IM_1_IFY SCM_MAKISYM(30)
#define SCM_IM_BIND SCM_MAKISYM(31)
#define SCM_UNBNDP(x) (SCM_UNDEFINED==(x))