X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=csrc%2Fpf_main.c;h=df38d0ce8ee7853337d2b5a47f10a9b488709fc0;hb=81dfa5e08883473e73d981e38722533b386c7810;hp=9d8568d8c9b67abdaab3a4b803c63451bb1d6c8a;hpb=bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335;p=debian%2Fpforth

diff --git a/csrc/pf_main.c b/csrc/pf_main.c
index 9d8568d..df38d0c 100644
--- a/csrc/pf_main.c
+++ b/csrc/pf_main.c
@@ -66,14 +66,14 @@ int main( int argc, char **argv )
 	const char *SourceName = NULL;
 	char IfInit = FALSE;
 	char *s;
-	int32 i;
+	cell_t i;
 	int Result;
 
 /* For Metroworks on Mac */
 #ifdef __MWERKS__
 	argc = ccommand(&argv);
 #endif
-
+	
 /* Parse command line. */
 	for( i=1; i<argc; i++ )
 	{
@@ -90,13 +90,25 @@ int main( int argc, char **argv )
 				IfInit = TRUE;
 				DicName = NULL;
 				break;
+				
 			case 'q':
 				pfSetQuiet( TRUE );
 				break;
+				
 			case 'd':
 				if( *s != '\0' ) DicName = s;
-				else DicName = PF_DEFAULT_DICTIONARY;
+				// Allow space after -d (Thanks Aleksej Saushev)
+				// Make sure there is another argument.
+				else if( (i+1) < argc )
+				{
+					DicName = argv[++i];
+				}
+				if (DicName == NULL || *DicName == '\0')
+				{
+					DicName = PF_DEFAULT_DICTIONARY;
+				}
 				break;
+				
 			default:
 				ERR(("Unrecognized option!\n"));
 				ERR(("pforth {-i} {-q} {-dfilename.dic} {sourcefilename}\n"));