X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=csrc%2Fpf_main.c;h=1c7ef9608626462c707cf1f1815d5383ea26a641;hb=92f564237b44db2747f921d2f31d071f8217fdd9;hp=5783f0f778ecc984bd55976f3f406459fb4b27ad;hpb=8e9db35f299d8f606ba003d3cd8fa9e2c868c880;p=debian%2Fpforth

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 */