diff options
| author | Mark H Weaver <mhw@netris.org> | 2014-01-12 04:36:29 -0500 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2014-01-14 02:24:37 -0500 |
| commit | 6579c3308d386ce74627e2cfb734898c9ed83d3a (patch) | |
| tree | b02c4b24d739cb8752d008130826cd484ac9ebd2 /libguile/read.c | |
| parent | 7a329029cf898fc0b9b24252c9bb437e1ad0b1d7 (diff) | |
read: Accept "\|" in string literals.
* libguile/read.c (scm_read_string): Accept "\|" in string literals.
* doc/ref/api-data.texi (String Syntax): Add "\|" to the list of
supported backslash escapes.
* test-suite/tests/reader.test ("reading"): Add test.
Diffstat (limited to 'libguile/read.c')
| -rw-r--r-- | libguile/read.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/read.c b/libguile/read.c index 03a53aadc..eead36841 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -624,6 +624,7 @@ scm_read_string (int chr, SCM port, scm_t_read_opts *opts) case EOF: goto str_eof; case '"': + case '|': case '\\': break; case '\n': |