[project @ 1996-01-23 11:11:20 by partain]

[ghc-hetmet.git] / ghc / runtime / main / main.lc

diff --git a/ghc/runtime/main/main.lc b/ghc/runtime/main/main.lc
index 3e97731..8d6d8dc 100644 (file)
--- a/ghc/runtime/main/main.lc
+++ b/ghc/runtime/main/main.lc
@@ -122,10 +122,10 @@ Manager's requirements.
 
 \begin{code}
 #ifdef PAR
-    if (*argv[0] == '-') {     /* Look to see whether we're the Main Thread */
+    if (*argv[0] == '-') {             /* Look to see whether we're the Main Thread */
        IAmMainThread = rtsTrue;
-        argv++; argc--;
-       fprintf(stderr, "I am Main Thread\n");
+        argv++; argc--;                        /* Strip off flag argument */
+/*     fprintf(stderr, "I am Main Thread\n"); */
     }
     /* 
      * Grab the number of PEs out of the argument vector, and