[project @ 2000-07-05 09:46:35 by sewardj]

Make -S work when going via the NCG.

diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index 6c982ad..9c18f0c 100644 (file)
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -1157,7 +1157,7 @@ run_pipeline last_phase do_linking use_ofile orig_basename (phase, input_fn)
                _other -> False
 
      output_fn <- 
-       (if phase == last_phase && not do_linking && use_ofile
+       (if next_phase > last_phase && not do_linking && use_ofile
            then do o_file <- readIORef output_file
                    case o_file of 
                        Just s  -> return s