From: sewardj <unknown>
Date: Mon, 27 Nov 2000 11:36:27 +0000 (+0000)
Subject: [project @ 2000-11-27 11:36:27 by sewardj]
X-Git-Tag: Approximately_9120_patches~3244
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=68a19934c9176c4ddadea174b745cb705e8137d2;p=ghc-hetmet.git

[project @ 2000-11-27 11:36:27 by sewardj]
cmLoadModule: try and return the "highest" achieved module at the head
of the list, so that the interactive UI winds up in a plausible module.
---

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index 5b9e31e..0a1cdce 100644
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -263,7 +263,8 @@ cmLoadModule cmstate1 rootname
                                                           gmode=ghci_mode }
                           let cmstate3 
                                  = CmState { pcms=pcms3, pcs=pcs3, pls=pls3 }
-                          return (cmstate3, True, map name_of_summary modsDone)
+                          return (cmstate3, True, 
+                                  reverse (map name_of_summary modsDone))
 
          else 
            -- Tricky.  We need to back out the effects of compiling any
@@ -298,7 +299,7 @@ cmLoadModule cmstate1 rootname
                                                           gmode=ghci_mode }
                           let cmstate4 
                                  = CmState { pcms=pcms4, pcs=pcs3, pls=pls4 }
-                          return (cmstate4, False, mods_to_keep_names)
+                          return (cmstate4, False, reverse mods_to_keep_names)
 
 
 -- Return (names of) all those in modsDone who are part of a cycle