This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "GNU Guile".
http://git.savannah.gnu.org/cgit/guile.git/commit/?id=1fc651e3a5249fa35d143628d27243e96b90a0bd The branch, stable-2.0 has been updated via 1fc651e3a5249fa35d143628d27243e96b90a0bd (commit) from 6e504a7b44a9a25787bdfb2d86fdddd3029f4ba9 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 1fc651e3a5249fa35d143628d27243e96b90a0bd Author: Mark H Weaver <[email protected]> Date: Tue Jan 14 23:29:50 2014 -0500 print: In R7RS |...| symbols, print most graphic characters unescaped. * libguile/print.c (print_r7rs_extended_symbol): Print any unicode graphic character other than '|' or '\' unescaped. Escape any spacing character other than ASCII space. ----------------------------------------------------------------------- Summary of changes: libguile/print.c | 8 ++++++-- test-suite/tests/print.test | 5 +++++ 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/libguile/print.c b/libguile/print.c index 71bb89f..ae98af4 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -462,8 +462,12 @@ print_r7rs_extended_symbol (SCM sym, SCM port) case '\\': scm_lfwrite ("\\x5c;", 5, port); break; default: if (uc_is_general_category_withtable (c, - SUBSEQUENT_IDENTIFIER_MASK - | UC_CATEGORY_MASK_Zs)) + UC_CATEGORY_MASK_L + | UC_CATEGORY_MASK_M + | UC_CATEGORY_MASK_N + | UC_CATEGORY_MASK_P + | UC_CATEGORY_MASK_S) + || (c == ' ')) { if (!display_character (c, port, strategy)) scm_encoding_error ("print_r7rs_extended_symbol", errno, diff --git a/test-suite/tests/print.test b/test-suite/tests/print.test index a33776c..01bc994 100644 --- a/test-suite/tests/print.test +++ b/test-suite/tests/print.test @@ -63,6 +63,11 @@ "bar | backslash \\ alarm \a backspace \b tab \t newline \n cr \r null \0 del " (string #\del))))) + (pass-if-equal "brackets" + "|()[]{}|" + (write-with-options '(r7rs-symbols) + (string->symbol "()[]{}"))) + (pass-if-equal "starts with bar" "|\\|foo|" (write-with-options '(r7rs-symbols) hooks/post-receive -- GNU Guile
