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