mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

(keyword_print): Substract 1 from length of symbol name, accounting

Browse source 
for the silly dash.
This commit is contained in:
Marius Vollmer 2001-06-04 22:17:17 +00:00
parent f228362b10
commit 4a68d142ae
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/keywords.c
View file

@ -62,8 +62,8 @@ static int
keyword_print (SCM exp, SCM port, scm_print_state *pstate) keyword_print (SCM exp, SCM port, scm_print_state *pstate)
{ {
scm_puts ("#:", port); scm_puts ("#:", port);
scm_print_symbol_name (1 + SCM_SYMBOL_CHARS (SCM_CDR (exp)), scm_print_symbol_name (SCM_SYMBOL_CHARS (SCM_CDR (exp)) + 1,
SCM_SYMBOL_LENGTH (SCM_CDR (exp)), SCM_SYMBOL_LENGTH (SCM_CDR (exp)) - 1,
port); port);
return 1; return 1;
} }