X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/1cb310e62eaf4422ee298d9d87c35f9dd6b4c71c..e2531e837774276f6ffb3b284703c594644761f8:/csrc/pf_main.c

diff --git a/csrc/pf_main.c b/csrc/pf_main.c
index df38d0c..a973553 100644
--- a/csrc/pf_main.c
+++ b/csrc/pf_main.c
@@ -74,6 +74,7 @@ int main( int argc, char **argv )
 	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: