Fix cell increment error in RESIZE

[pforth] / csrc / pf_core.c

diff --git a/csrc/pf_core.c b/csrc/pf_core.c
index 0329749..ceab2be 100644 (file)
--- a/csrc/pf_core.c
+++ b/csrc/pf_core.c
@@ -444,7 +444,6 @@ int32 pfDoForth( const char *DicName, const char *SourceName, int32 IfInit )
 \r
        pfInit();\r
        \r
 \r
        pfInit();\r
        \r

-       \r

 /* Allocate Task structure. */\r
        pfDebugMessage("pfDoForth: call pfCreateTask()\n");\r
        cftd = pfCreateTask( DEFAULT_USER_DEPTH, DEFAULT_RETURN_DEPTH );\r
 /* Allocate Task structure. */\r
        pfDebugMessage("pfDoForth: call pfCreateTask()\n");\r
        cftd = pfCreateTask( DEFAULT_USER_DEPTH, DEFAULT_RETURN_DEPTH );\r