X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/b3651f38b79671793118de32512a8c0806cfdab5..ff0d9246aaffb870847e43b03ba123c437b0d195:/csrc/pf_main.c

diff --git a/csrc/pf_main.c b/csrc/pf_main.c
index a779560..a973553 100644
--- a/csrc/pf_main.c
+++ b/csrc/pf_main.c
@@ -66,14 +66,15 @@ 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
-
+	
+	pfSetQuiet( FALSE );
 /* Parse command line. */
 	for( i=1; i<argc; i++ )
 	{
@@ -97,8 +98,8 @@ int main( int argc, char **argv )
 				
 			case 'd':
 				if( *s != '\0' ) DicName = s;
-				// Allow space after -d (Thanks Aleksej Saushev)
-				// Make sure there is another argument.
+				/* Allow space after -d (Thanks Aleksej Saushev) */
+				/* Make sure there is another argument. */
 				else if( (i+1) < argc )
 				{
 					DicName = argv[++i];
@@ -128,6 +129,14 @@ int main( int argc, char **argv )
 	DicName = NULL;
 #endif
 
+#ifdef PF_UNIT_TEST
+	if( (Result = pfUnitTest()) != 0 )
+	{
+		ERR(("pForth stopping on unit test failure.\n"));
+		goto on_error;
+	}
+#endif
+	
 	Result = pfDoForth( DicName, SourceName, IfInit);
 
 on_error: