X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/e2531e837774276f6ffb3b284703c594644761f8..419d914ec44e5355d7f9446c98730ee0454acb26:/csrc/pf_core.c

diff --git a/csrc/pf_core.c b/csrc/pf_core.c
index 235c0a2..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();			
 			}
 		}