diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2017-03-08 20:18:19 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2017-03-08 20:18:19 -0800 |
commit | 4d0cdf070aa173c6e4ca23ff05e00a5f1731efa5 (patch) | |
tree | fc0e7d2c6d399725c7db7c990bcdc4766819d0f3 /match.c | |
parent | 11e02bb6ae1937698e67e7cdb5016bb4cfe17d51 (diff) | |
download | txr-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) { |