mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 13:00:34 +02:00
Code Activity

Fix display of symbols containing backslashes.

Browse source 
Fixes <http://bugs.gnu.org/15033>.

* libguile/print.c (print_extended_symbol): Double print backslashes.

Signed-off-by: Mark H Weaver <mhw@netris.org>
This commit is contained in:
David Kastrup 2013-08-06 18:01:54 -04:00 • committed by Mark H Weaver
parent 524140436f
commit b4a099883d
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/print.c
View file

@ -410,7 +410,8 @@ print_extended_symbol (SCM sym, SCM port)
SUBSEQUENT_IDENTIFIER_MASK SUBSEQUENT_IDENTIFIER_MASK
| UC_CATEGORY_MASK_Zs)) | UC_CATEGORY_MASK_Zs))
{ {
if (!display_character (c, port, strategy)) if (!display_character (c, port, strategy)
|| (c == '\\' && !display_character (c, port, strategy)))
scm_encoding_error ("print_extended_symbol", errno, scm_encoding_error ("print_extended_symbol", errno,
"cannot convert to output locale", "cannot convert to output locale",
port, SCM_MAKE_CHAR (c)); port, SCM_MAKE_CHAR (c));