X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=csrc%2Fpf_core.c;fp=csrc%2Fpf_core.c;h=a6d7c26fe923f3871f0280500e81bdf8326338be;hb=c1a87b8298475c3fdd007b14a1413d2a6fd0fa61;hp=1736aa9b8a4ba12b9d171a4d74f42c3ee3fdd2ba;hpb=e14f25331be47e565ff6ae8cd7fb372fd329aff1;p=debian%2Fpforth

diff --git a/csrc/pf_core.c b/csrc/pf_core.c
index 1736aa9..a6d7c26 100644
--- a/csrc/pf_core.c
+++ b/csrc/pf_core.c
@@ -170,9 +170,9 @@ nomem:
 ** Dictionary Management
 ***************************************************************/
 
-cell_t pfExecIfDefined( const char *CString )
+ThrowCode pfExecIfDefined( const char *CString )
 {
-    int result = 0;
+    ThrowCode result = 0;
     if( NAME_BASE != (cell_t)NULL)
     {
         ExecToken  XT;
@@ -427,11 +427,11 @@ void pfMessage( const char *CString )
 /**************************************************************************
 ** Main entry point for pForth.
 */
-cell_t pfDoForth( const char *DicFileName, const char *SourceName, cell_t IfInit )
+ThrowCode pfDoForth( const char *DicFileName, const char *SourceName, cell_t IfInit )
 {
     pfTaskData_t *cftd;
     pfDictionary_t *dic = NULL;
-    cell_t Result = 0;
+    ThrowCode Result = 0;
     ExecToken  EntryPoint = 0;
 
 #ifdef PF_USER_INIT