diff options
author | Mark H Weaver <mhw@netris.org> | 2014-01-12 04:36:57 -0500 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2014-01-14 02:24:44 -0500 |
commit | 394449d5d3922cab783d51398b7727ccaf07dd76 (patch) | |
tree | 6e473c905ca55e319e68e932baad79bdde1663a2 /test-suite/tests/reader.test | |
parent | 6579c3308d386ce74627e2cfb734898c9ed83d3a (diff) | |
download | guile-394449d5d3922cab783d51398b7727ccaf07dd76.tar.gz |
Recognize 'escape' character name, per R7RS.
* libguile/chars.c (scm_r7rs_charnames, scm_r7rs_charnums):
New static constants.
(SCM_N_R7RS_CHARNAMES): New macro.
(scm_i_charname, scm_i_charname_to_char): Adapt to new R7RS
char names.
* doc/ref/api-data.texi (Characters): Document #\escape.
* test-suite/tests/reader.test ("reading"): Add test.
Diffstat (limited to 'test-suite/tests/reader.test')
-rw-r--r-- | test-suite/tests/reader.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test-suite/tests/reader.test b/test-suite/tests/reader.test index 56f6346f6..e0126fe40 100644 --- a/test-suite/tests/reader.test +++ b/test-suite/tests/reader.test @@ -78,6 +78,10 @@ "a|b" (read-string "\"a\\|b\"")) + (pass-if-equal "#\\escape" + '(a #\esc b) + (read-string "(a #\\escape b)")) + (pass-if-equal "#true" '(a #t b) (read-string "(a #true b)")) |