* match.c (v_load): Check for errors during the parse and throw an exception.

1 files changed, 4 insertions, 0 deletions

diff --git a/match.c b/match.c
index 66325ddd..fc9746a0 100644
--- a/match.c
+++ b/match.c
@@ -3413,6 +3413,10 @@ static val v_load(match_files_ctx *c)
     parse_reset(path);
     yyparse();
     gc_state(gc);
+
+    if (errors)
+      sem_error(specline, lit("load: errors encountered in ~s"), path, nao);
+
     { 
       val spec = get_spec();
       val result = match_files(mf_spec(*c, spec));