diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-05-30 23:48:13 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-05-30 23:48:13 +0000 |
commit | ca3140213bd4e5e51edc7ce29635ee6c93fb29ec (patch) | |
tree | b85388893fa3b81a66a748928731a1087d0f1fd5 /libguile/keywords.c | |
parent | 6662998f741ca886c8b2050085283ebcb7445f6f (diff) | |
download | guile-ca3140213bd4e5e51edc7ce29635ee6c93fb29ec.tar.gz |
(keyword_print): Use scm_print_symbol_name so that
weird names are printed correctly.
Diffstat (limited to 'libguile/keywords.c')
-rw-r--r-- | libguile/keywords.c | 4 |
1 files changed, 3 insertions, 1 deletions
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; } |