From 43c667e9c13d34834707d24bcb4a797ff228ea23 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Thu, 29 Jul 1999 09:54:34 +0000 Subject: [PATCH] * eval.c, tags.h, print.c (SCM_IM_SLOT_REF, SCM_IM_SLOT_SET_X): New isym operations. --- libguile/print.c | 2 ++ libguile/tags.h | 16 +++++++++------- 2 files changed, 11 insertions(+), 7 deletions(-) diff --git a/libguile/print.c b/libguile/print.c index 5c380303b..25742fff8 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -98,6 +98,8 @@ char *scm_isymnames[] = "#", "#@dispatch", "#@hash-dispatch", + "#@slot-ref", + "#@slot-set!", /* Multi-language support */ diff --git a/libguile/tags.h b/libguile/tags.h index 941e39e3a..4192b4778 100644 --- a/libguile/tags.h +++ b/libguile/tags.h @@ -471,16 +471,18 @@ enum scm_tags #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) /* Multi-language support */ -#define SCM_IM_NIL_COND SCM_MAKISYM(24) -#define SCM_IM_NIL_IFY SCM_MAKISYM(25) -#define SCM_IM_T_IFY SCM_MAKISYM(26) -#define SCM_IM_0_COND SCM_MAKISYM(27) -#define SCM_IM_0_IFY SCM_MAKISYM(28) -#define SCM_IM_1_IFY SCM_MAKISYM(29) -#define SCM_IM_BIND SCM_MAKISYM(30) +#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_UNBNDP(x) (SCM_UNDEFINED==(x))