Add support for WATCOMC

[pforth] / csrc / pf_main.c

diff --git a/csrc/pf_main.c b/csrc/pf_main.c
index 71defbc..a973553 100644 (file)
--- a/csrc/pf_main.c
+++ b/csrc/pf_main.c
@@ -129,6 +129,14 @@ int main( int argc, char **argv )
        DicName = NULL;\r
 #endif\r
 \r
        DicName = NULL;\r
 #endif\r
 \r

+#ifdef PF_UNIT_TEST\r
+       if( (Result = pfUnitTest()) != 0 )\r
+       {\r
+               ERR(("pForth stopping on unit test failure.\n"));\r
+               goto on_error;\r
+       }\r
+#endif\r
+       \r

        Result = pfDoForth( DicName, SourceName, IfInit);\r
 \r
 on_error:\r
        Result = pfDoForth( DicName, SourceName, IfInit);\r
 \r
 on_error:\r