summaryrefslogtreecommitdiff
path: root/libguile/read.c
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2010-07-17 04:16:57 -0700
committerMichael Gran <spk121@yahoo.com>2010-07-17 04:16:57 -0700
commit0f3a70cfa897530cdc50aa768d73d41419a5b360 (patch)
treeeb3eb9f4e2afb49e1204cec7c1fcceda4cf75845 /libguile/read.c
parent211683cc5c99542dfb6e2a33f7cb8c1f9abbc702 (diff)
downloadguile-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.c6
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));