summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
Diffstat (limited to 'libguile')
-rw-r--r--libguile/private-options.h8
-rw-r--r--libguile/read.c9
2 files changed, 3 insertions, 14 deletions
diff --git a/libguile/private-options.h b/libguile/private-options.h
index 3357b27bc..543c4dad0 100644
--- a/libguile/private-options.h
+++ b/libguile/private-options.h
@@ -61,11 +61,9 @@ SCM_API scm_t_option scm_read_opts[];
#define SCM_RECORD_POSITIONS_P scm_read_opts[1].val
#define SCM_CASE_INSENSITIVE_P scm_read_opts[2].val
#define SCM_KEYWORD_STYLE scm_read_opts[3].val
-#define SCM_ELISP_VECTORS_P scm_read_opts[4].val
-#define SCM_ESCAPED_PARENS_P scm_read_opts[5].val
-#define SCM_R6RS_ESCAPES_P scm_read_opts[6].val
-#define SCM_SQUARE_BRACKETS_P scm_read_opts[7].val
+#define SCM_R6RS_ESCAPES_P scm_read_opts[4].val
+#define SCM_SQUARE_BRACKETS_P scm_read_opts[5].val
-#define SCM_N_READ_OPTIONS 8
+#define SCM_N_READ_OPTIONS 6
#endif /* PRIVATE_OPTIONS */
diff --git a/libguile/read.c b/libguile/read.c
index 49df1e379..118b9ccfa 100644
--- a/libguile/read.c
+++ b/libguile/read.c
@@ -71,10 +71,6 @@ scm_t_option scm_read_opts[] = {
"Convert symbols to lower case."},
{ SCM_OPTION_SCM, "keywords", (unsigned long) SCM_BOOL_F,
"Style of keyword recognition: #f, 'prefix or 'postfix."},
- { SCM_OPTION_BOOLEAN, "elisp-vectors", 0,
- "Support Elisp vector syntax, namely `[...]'."},
- { SCM_OPTION_BOOLEAN, "elisp-strings", 0,
- "Support `\\(' and `\\)' in strings."},
{ SCM_OPTION_BOOLEAN, "r6rs-hex-escapes", 0,
"Use R6RS variable-length character and string hex escapes."},
{ SCM_OPTION_BOOLEAN, "square-brackets", 1,
@@ -515,11 +511,6 @@ scm_read_string (int chr, SCM port)
case '"':
case '\\':
break;
- case '(':
- case ')':
- if (SCM_ESCAPED_PARENS_P)
- break;
- goto bad_escaped;
case '\n':
continue;
case '0':