X-Git-Url: https://git.gag.com/?a=blobdiff_plain;ds=sidebyside;f=csrc%2Fpf_core.c;fp=csrc%2Fpf_core.c;h=031d7b8f44766fab305d87f87930b07b07dc7292;hb=eaa66646ab0ebe6671c66014467485908b255cbb;hp=67a9f70bd257426b2bb0a3d6320f2dca4f5835c3;hpb=d553430f9a04a09e3002868067763538f28e0cfa;p=debian%2Fpforth

diff --git a/csrc/pf_core.c b/csrc/pf_core.c
index 67a9f70..031d7b8 100644
--- a/csrc/pf_core.c
+++ b/csrc/pf_core.c
@@ -59,7 +59,8 @@ cell_t          gDepthAtColon;
 cell_t          gVarContext;      /* Points to last name field. */
 cell_t          gVarState;        /* 1 if compiling. */
 cell_t          gVarBase;         /* Numeric Base. */
-cell_t          gVarEcho;           /* Echo input. */
+cell_t          gVarByeCode;      /* Echo input. */
+cell_t          gVarEcho;         /* Echo input. */
 cell_t          gVarTraceLevel;   /* Trace Level for Inner Interpreter. */
 cell_t          gVarTraceStack;   /* Dump Stack each time if true. */
 cell_t          gVarTraceFlags;   /* Enable various internal debug messages. */
@@ -572,7 +573,7 @@ ThrowCode pfDoForth( const char *DicFileName, const char *SourceName, cell_t IfI
     PF_USER_TERM;
 #endif
 
-    return Result;
+    return Result ? Result : gVarByeCode;
 
 error2:
     MSG("pfDoForth: Error occured.\n");