guile/guile-core/libguile keywords.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/06/04 15:17:18

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

Log message:
        (keyword_print): Substract 1 from length of symbol name, accounting
        for the silly dash.

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

Patches:
Index: guile/guile-core/libguile/keywords.c
diff -u guile/guile-core/libguile/keywords.c:1.40 
guile/guile-core/libguile/keywords.c:1.41
--- guile/guile-core/libguile/keywords.c:1.40   Wed May 30 16:48:13 2001
+++ guile/guile-core/libguile/keywords.c        Mon Jun  4 15:17:17 2001
@@ -62,8 +62,8 @@
 keyword_print (SCM exp, SCM port, scm_print_state *pstate)
 {
   scm_puts ("#:", port);
-  scm_print_symbol_name (1 + SCM_SYMBOL_CHARS (SCM_CDR (exp)),
-                        SCM_SYMBOL_LENGTH (SCM_CDR (exp)),
+  scm_print_symbol_name (SCM_SYMBOL_CHARS (SCM_CDR (exp)) + 1,
+                        SCM_SYMBOL_LENGTH (SCM_CDR (exp)) - 1,
                         port);
   return 1;
 }