[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-153-g1fc65
From: |
Mark H Weaver |
Subject: |
[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-153-g1fc651e |
Date: |
Wed, 15 Jan 2014 04:54:39 +0000 |
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 <address@hidden>
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-153-g1fc651e,
Mark H Weaver <=