guile/guile-core/libguile keywords.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/05/30 16:48:13

Modified files:
        guile-core/libguile: keywords.c 

Log message:
        (keyword_print): Use scm_print_symbol_name so that
        weird names are printed correctly.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/keywords.c.diff?cvsroot=OldCVS&tr1=1.39&tr2=1.40&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/keywords.c
diff -u guile/guile-core/libguile/keywords.c:1.39 
guile/guile-core/libguile/keywords.c:1.40
--- guile/guile-core/libguile/keywords.c:1.39   Tue May 15 07:57:21 2001
+++ guile/guile-core/libguile/keywords.c        Wed May 30 16:48:13 2001
@@ -62,7 +62,9 @@
 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;
 }