summaryrefslogtreecommitdiffstats
path: root/parser.c
diff options
context:
space:
mode:
Diffstat (limited to 'parser.c')
-rw-r--r--parser.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/parser.c b/parser.c
index a5b3724e..8eb82e31 100644
--- a/parser.c
+++ b/parser.c
@@ -910,13 +910,12 @@ static val read_objects_common(val stream, val error_stream_in,
error_stream, unique_s, name, colon_k);
if (form == unique_s) {
- if (pi->syntax_tree == nao)
- break;
- if (pi->errors)
+ if (pi->errors) {
if (missingp(error_return_val))
uw_throwf(syntax_error_s, lit("read: ~a: errors encountered"),
name, nao);
return error_return_val;
+ }
break;
}