summaryrefslogtreecommitdiffstats
path: root/match.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2017-03-08 20:18:19 -0800
committerKaz Kylheku <kaz@kylheku.com>2017-03-08 20:18:19 -0800
commit4d0cdf070aa173c6e4ca23ff05e00a5f1731efa5 (patch)
treefc0e7d2c6d399725c7db7c990bcdc4766819d0f3 /match.c
parent11e02bb6ae1937698e67e7cdb5016bb4cfe17d51 (diff)
downloadtxr-4d0cdf070aa173c6e4ca23ff05e00a5f1731efa5.tar.gz
txr-4d0cdf070aa173c6e4ca23ff05e00a5f1731efa5.tar.bz2
txr-4d0cdf070aa173c6e4ca23ff05e00a5f1731efa5.zip
Don't sweep bad data source under the rug.
* match.c (open_data_source): If the data source isn't a string or stream, then error out.
Diffstat (limited to 'match.c')
-rw-r--r--match.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/match.c b/match.c
index d67f968b..cda3c28c 100644
--- a/match.c
+++ b/match.c
@@ -4423,7 +4423,7 @@ static void open_data_source(match_files_ctx *c)
if ((c->data = lazy_stream_cons(name)))
c->data_lineno = one;
} else {
- c->data = nil;
+ sem_error(specline, lit("~s doesn't denote a valid data source"), name, nao);
}
} else if (c->data == t && c->files == nil) {
if (opt_compat && opt_compat <= 170) {