diff options
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/private-options.h | 8 | ||||
-rw-r--r-- | libguile/read.c | 9 |
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': |