X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=csrc%2Fpf_core.c;fp=csrc%2Fpf_core.c;h=740d9424be2fe314c4bafc20027b5ce4cfbb543f;hb=970d32b553a44051cedd2caf34267b7b1cdbab78;hp=497b7e0bd33be9200a582e74668451e5a72290e9;hpb=b93ef4a183fdcb182925f17cacf1803a200a1130;p=debian%2Fpforth diff --git a/csrc/pf_core.c b/csrc/pf_core.c index 497b7e0..740d942 100644 --- a/csrc/pf_core.c +++ b/csrc/pf_core.c @@ -427,7 +427,7 @@ void pfMessage( const char *CString ) } /************************************************************************** -** Main entry point for pForth +** Main entry point for pForth. */ int32 pfDoForth( const char *DicFileName, const char *SourceName, int32 IfInit ) { @@ -435,7 +435,6 @@ int32 pfDoForth( const char *DicFileName, const char *SourceName, int32 IfInit ) pfDictionary_t *dic = NULL; int32 Result = 0; ExecToken EntryPoint = 0; - #ifdef PF_USER_INIT Result = PF_USER_INIT;