X-Git-Url: https://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/a80283a747da0ca5a791dcfc5fe1a6261feecc5c..4f2379351847bdadd3fa6ff698dc381c6bee5bea:/csrc/pf_core.c

diff --git a/csrc/pf_core.c b/csrc/pf_core.c
index f7bf38f..19e75a8 100644
--- a/csrc/pf_core.c
+++ b/csrc/pf_core.c
@@ -496,13 +496,19 @@ cell_t pfDoForth( const char *DicFileName, const char *SourceName, cell_t IfInit
 			if( DicFileName )
 			{
 				pfDebugMessage("DicFileName = "); pfDebugMessage(DicFileName); pfDebugMessage("\n");
-				EMIT_CR;
+				if( !gVarQuiet )
+				{
+					EMIT_CR;
+				}
 				dic = pfLoadDictionary( DicFileName, &EntryPoint );
 			}
 			else
 			{
-				MSG(" (static)");
-				EMIT_CR;
+				if( !gVarQuiet )
+				{
+					MSG(" (static)");
+					EMIT_CR;
+				}
 				dic = pfLoadStaticDictionary();			
 			}
 		}
@@ -572,3 +578,13 @@ error1:
 
 	return -1;
 }
+
+
+#ifdef PF_UNIT_TEST
+cell_t pfUnitTest( void )
+{
+	cell_t numErrors = 0;
+	numErrors += pfUnitTestText();
+	return numErrors;
+}
+#endif