Suppress CR in quiet mode, patch by Derek Fawcus.

[debian/pforth] / csrc / pf_core.c

diff --git a/csrc/pf_core.c b/csrc/pf_core.c
index 235c0a22d9427606331e8f5cfa234be716ef15b3..19e75a8566729b99dc63d523c95b5036f87135f3 100644 (file)
--- 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 )\r
                        {\r
                                pfDebugMessage("DicFileName = "); pfDebugMessage(DicFileName); pfDebugMessage("\n");\r
-                               EMIT_CR;\r
+                               if( !gVarQuiet )\r
+                               {\r
+                                       EMIT_CR;\r
+                               }\r
                                dic = pfLoadDictionary( DicFileName, &EntryPoint );\r
                        }\r
                        else\r
                        {\r
-                               MSG(" (static)");\r
-                               EMIT_CR;\r
+                               if( !gVarQuiet )\r
+                               {\r
+                                       MSG(" (static)");\r
+                                       EMIT_CR;\r
+                               }\r
                                dic = pfLoadStaticDictionary();                 \r
                        }\r
                }\r