mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 03:54:12 +02:00
Code Activity

print: In R7RS |...| symbols, print most graphic characters unescaped.

Browse source 
* libguile/print.c (print_r7rs_extended_symbol): Print any unicode
  graphic character other than '|' or '\' unescaped.  Escape any spacing
  character other than ASCII space.
This commit is contained in:
Mark H Weaver 2014-01-14 23:29:50 -05:00
parent 6e504a7b44
commit 1fc651e3a5
2 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/tests/print.test
View file

@ -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)