diff options
Diffstat (limited to 'libguile/read.c')
-rw-r--r-- | libguile/read.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/read.c b/libguile/read.c index 3e739586a..098854bb4 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -70,7 +70,7 @@ scm_t_option scm_read_opts[] = { "Record positions of source code expressions." }, { SCM_OPTION_BOOLEAN, "case-insensitive", 0, "Convert symbols to lower case."}, - { SCM_OPTION_SCM, "keywords", (scm_t_bits) SCM_BOOL_F, + { SCM_OPTION_SCM, "keywords", (scm_t_bits) SCM_BOOL_F_BITS, "Style of keyword recognition: #f, 'prefix or 'postfix."}, { SCM_OPTION_BOOLEAN, "r6rs-hex-escapes", 0, "Use R6RS variable-length character and string hex escapes."}, @@ -1538,7 +1538,7 @@ recsexpr (SCM obj, long line, int column, SCM filename) if (!scm_is_pair(obj)) { return obj; } else { - SCM tmp = obj, copy; + SCM tmp, copy; /* If this sexpr is visible in the read:sharp source, we want to keep that information, so only record non-constant cons cells which haven't previously been read by the reader. */ @@ -1548,7 +1548,7 @@ recsexpr (SCM obj, long line, int column, SCM filename) { copy = scm_cons (recsexpr (SCM_CAR (obj), line, column, filename), SCM_UNDEFINED); - while ((tmp = SCM_CDR (tmp)) && scm_is_pair (tmp)) + for (tmp = obj; scm_is_pair (tmp); tmp = SCM_CDR (tmp)) { SCM_SETCDR (copy, scm_cons (recsexpr (SCM_CAR (tmp), line, @@ -1562,7 +1562,7 @@ recsexpr (SCM obj, long line, int column, SCM filename) else { recsexpr (SCM_CAR (obj), line, column, filename); - while ((tmp = SCM_CDR (tmp)) && scm_is_pair (tmp)) + for (tmp = obj; scm_is_pair (tmp); tmp = SCM_CDR (tmp)) recsexpr (SCM_CAR (tmp), line, column, filename); copy = SCM_UNDEFINED; } |