diff options
author | Mark H Weaver <mhw@netris.org> | 2014-01-14 23:53:08 -0500 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2014-01-14 23:53:08 -0500 |
commit | fb484fefebdd9ebcf43169b391f704069b3d4b09 (patch) | |
tree | 9d94fd0a5ff841ace78f620d6162558baa7fd216 /libguile/print.c | |
parent | c92ee2b38cb1ace800de081c9211120afea0c595 (diff) | |
parent | 1fc651e3a5249fa35d143628d27243e96b90a0bd (diff) | |
download | guile-fb484fefebdd9ebcf43169b391f704069b3d4b09.tar.gz |
Merge branch 'stable-2.0'
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/libguile/print.c b/libguile/print.c index 4fe9b7770..4ad2a9572 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -503,8 +503,12 @@ print_r7rs_extended_symbol (SCM sym, SCM port) case '\\': scm_lfwrite_unlocked ("\\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, |