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 | ceb931b6b1d86b93dcb964305fcf52f6fbee02df (patch) | |
tree | fc0e7d2c6d399725c7db7c990bcdc4766819d0f3 | |
parent | b480727df51c2e1ec89d9b154e652e690c9d0a21 (diff) | |
download | txr-ceb931b6b1d86b93dcb964305fcf52f6fbee02df.tar.gz txr-ceb931b6b1d86b93dcb964305fcf52f6fbee02df.tar.bz2 txr-ceb931b6b1d86b93dcb964305fcf52f6fbee02df.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.
-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) { |