diff options
author | Michael Gran <spk121@yahoo.com> | 2010-07-17 04:16:57 -0700 |
---|---|---|
committer | Michael Gran <spk121@yahoo.com> | 2010-07-17 04:16:57 -0700 |
commit | 0f3a70cfa897530cdc50aa768d73d41419a5b360 (patch) | |
tree | eb3eb9f4e2afb49e1204cec7c1fcceda4cf75845 /libguile/read.c | |
parent | 211683cc5c99542dfb6e2a33f7cb8c1f9abbc702 (diff) | |
download | guile-0f3a70cfa897530cdc50aa768d73d41419a5b360.tar.gz |
Enable character hex escapes by default
R6RS character hex escapes do not conflict with legacy Guile octal
character escapes, so they can be enabled by default.
* libguile/read.c (scm_read_character): modified
* test-suite/tests/reader.test: modify character escape tests
* doc/ref/api-data.texi: modified
* doc/ref/api-options.texi: modified
Diffstat (limited to 'libguile/read.c')
-rw-r--r-- | libguile/read.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/read.c b/libguile/read.c index 2ac4d109b..49df1e379 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -966,16 +966,16 @@ scm_read_character (scm_t_wchar chr, SCM port) if (SCM_IS_UNICODE_CHAR (c)) return SCM_MAKE_CHAR (c); else - scm_i_input_error (FUNC_NAME, port, + scm_i_input_error (FUNC_NAME, port, "out-of-range octal character escape: ~a", scm_list_1 (charname)); } } - if (cp == 'x' && (charname_len > 1) && SCM_R6RS_ESCAPES_P) + if (cp == 'x' && (charname_len > 1)) { SCM p; - + /* Convert from hex, skipping the initial 'x' character in CHARNAME */ p = scm_string_to_number (scm_c_substring (charname, 1, charname_len), scm_from_uint (16)); |