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

* eval.c, tags.h, print.c (SCM_IM_SLOT_REF, SCM_IM_SLOT_SET_X):

Browse source 
New isym operations.
This commit is contained in:
Mikael Djurfeldt 1999-07-29 09:54:34 +00:00
parent ca4be6ea9e
commit 43c667e9c1
2 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/print.c
View file

@ -98,6 +98,8 @@ char *scm_isymnames[] =
"#<unspecified>",
"#@dispatch",
"#@hash-dispatch",
"#@slot-ref",
"#@slot-set!",
/* Multi-language support */

16
libguile/tags.h
View file

@ -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))