mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

(keyword_print): Use scm_print_symbol_name so that

Browse source 
weird names are printed correctly.
This commit is contained in:
Marius Vollmer 2001-05-30 23:48:13 +00:00
parent 6662998f74
commit ca3140213b
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/keywords.c
View file

@ -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;
}