projects
/
debian
/
pforth
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
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
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
dic = pfLoadStaticDictionary();
\r
}
\r
}
\r