X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/49a54f16c613407ada65dee32493f4878d199aa1..7d169e32d0619ecf128abe042ec5ef6a2655e1a1:/csrc/pf_main.c

diff --git a/csrc/pf_main.c b/csrc/pf_main.c
index 5783f0f..1c7ef96 100644
--- a/csrc/pf_main.c
+++ b/csrc/pf_main.c
@@ -67,7 +67,7 @@ int main( int argc, char **argv )
     char IfInit = FALSE;
     char *s;
     cell_t i;
-    int Result;
+    ThrowCode Result;
 
 /* For Metroworks on Mac */
 #ifdef __MWERKS__
@@ -140,7 +140,7 @@ int main( int argc, char **argv )
     Result = pfDoForth( DicName, SourceName, IfInit);
 
 on_error:
-    return Result;
+    return (int)Result;
 }
 
 #endif  /* PF_EMBEDDED */