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

* tags.h, print.c (SCM_IM_NIL_COND, SCM_IM_NIL_IFY, SCM_IM_T_IFY,

Browse source 
SCM_IM_0_COND, SCM_IM_0_IFY, SCM_IM_1_IFY), print.c
(scm_isymnames): New isyms for multi-language support.
This commit is contained in:
Mikael Djurfeldt 1999-07-27 19:10:04 +00:00
parent 68a08303f1
commit 159500fb70
2 changed files with 25 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/print.c
View file

@ -97,7 +97,19 @@ char *scm_isymnames[] =
"()", "()",
"#<unspecified>", "#<unspecified>",
"#@dispatch", "#@dispatch",
"#@hash-dispatch" "#@hash-dispatch",
#ifdef GUILE_LANG
/* Multi-language support */
"#@nil-cond",
"#@nil-ify",
"#@t-ify",
"#@0-cond",
"#@0-ify",
"#@1-ify",
"#@bind"
#endif /* GUILE_LANG */
}; };
scm_option scm_print_opts[] = { scm_option scm_print_opts[] = {

12
libguile/tags.h
View file

@ -472,6 +472,18 @@ enum scm_tags
#define SCM_IM_DISPATCH SCM_MAKISYM(22) #define SCM_IM_DISPATCH SCM_MAKISYM(22)
#define SCM_IM_HASH_DISPATCH SCM_MAKISYM(23) #define SCM_IM_HASH_DISPATCH SCM_MAKISYM(23)
#ifdef GUILE_LANG
/* 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)
#endif
#define SCM_UNBNDP(x) (SCM_UNDEFINED==(x)) #define SCM_UNBNDP(x) (SCM_UNDEFINED==(x))