From ca3140213bd4e5e51edc7ce29635ee6c93fb29ec Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Wed, 30 May 2001 23:48:13 +0000
Subject: [PATCH] (keyword_print): Use scm_print_symbol_name so that weird
 names are printed correctly.

---
 libguile/keywords.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/libguile/keywords.c b/libguile/keywords.c
index f17eedacc..a3819c6e4 100644
--- a/libguile/keywords.c
+++ b/libguile/keywords.c
@@ -62,7 +62,9 @@ static int
 keyword_print (SCM exp, SCM port, scm_print_state *pstate)
 {
   scm_puts ("#:", port);
-  scm_puts(1 + SCM_SYMBOL_CHARS (SCM_CDR (exp)), port);
+  scm_print_symbol_name (1 + SCM_SYMBOL_CHARS (SCM_CDR (exp)),
+			 SCM_SYMBOL_LENGTH (SCM_CDR (exp)),
+			 port);
   return 1;
 }