mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

Disable \u and \U escapes when r6rs-hex-escapes enabled

Browse source 
When the reader option 'r6rs-hex-escapes is enabled, the \uNNNN and
\UNNNNNN string escape sequences should be disabled.

* libguile/read.c (scm_read_string): added checks for SCM_R6RS_ESCAPES_P
This commit is contained in:
Michael Gran 2010-01-13 07:02:07 -08:00
parent 2e85d145fc
commit 898a0b5a2e
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
libguile/read.c
View file

@ -524,11 +524,17 @@ scm_read_string (int chr, SCM port)
SCM_READ_HEX_ESCAPE (2, '\0');
break;
case 'u':
SCM_READ_HEX_ESCAPE (4, '\0');
break;
if (!SCM_R6RS_ESCAPES_P)
{
SCM_READ_HEX_ESCAPE (4, '\0');
break;
}
case 'U':
SCM_READ_HEX_ESCAPE (6, '\0');
break;
if (!SCM_R6RS_ESCAPES_P)
{
SCM_READ_HEX_ESCAPE (6, '\0');
break;
}
default:
bad_escaped:
scm_i_input_error (FUNC_NAME, port,