If errors were found, return exit status 1 on exit

whatwg · Dec 24, 2015 · 4d114d9 · 4d114d9
1 parent d021807
commit 4d114d9
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/wattsi.pas b/src/wattsi.pas
@@ -1174,6 +1174,7 @@    TCrossReferences = record
    if (Errors > 0) then
    begin
       Writeln('Error count: ', Errors);
+      ExitCode := 1;
       // raise EAbort.Create(IntToStr(Errors) + ' errors found.');
    end;
 end;