X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/a80283a747da0ca5a791dcfc5fe1a6261feecc5c..2bfdc82f9e73c8393d2853968db5b0b82e7537d5:/csrc/pf_core.c

diff --git a/csrc/pf_core.c b/csrc/pf_core.c
index f7bf38f..00149f4 100644
--- a/csrc/pf_core.c
+++ b/csrc/pf_core.c
@@ -98,7 +98,7 @@ static void pfInit( void )
 /* non-zero */
 	gVarBase = 10;        /* Numeric Base. */
 	gDepthAtColon = DEPTH_AT_COLON_INVALID;
-	gVarTraceStack = 1;  
+	gVarTraceStack = 1;
 	
 	pfInitMemoryAllocator();
 	ioInit();
@@ -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