From 159500fb70fd62a576b5e2d45dd32e00ce67a4d1 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Tue, 27 Jul 1999 19:10:04 +0000
Subject: [PATCH] * tags.h, print.c (SCM_IM_NIL_COND, SCM_IM_NIL_IFY,
 SCM_IM_T_IFY, SCM_IM_0_COND, SCM_IM_0_IFY, SCM_IM_1_IFY), print.c
 (scm_isymnames): New isyms for multi-language support.

---
 libguile/print.c | 14 +++++++++++++-
 libguile/tags.h  | 12 ++++++++++++
 2 files changed, 25 insertions(+), 1 deletion(-)

diff --git a/libguile/print.c b/libguile/print.c
index f0cddb892..98ec9cb83 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -97,7 +97,19 @@ char *scm_isymnames[] =
   "()",
   "#<unspecified>",
   "#@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[] = {
diff --git a/libguile/tags.h b/libguile/tags.h
index e19d5ec48..3b4c71aab 100644
--- a/libguile/tags.h
+++ b/libguile/tags.h
@@ -472,6 +472,18 @@ enum scm_tags
 #define SCM_IM_DISPATCH		SCM_MAKISYM(22)
 #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))