Look for "highest" module at head of list cmLoadModule returns
-----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.16 2000/11/27 11:58:55 sewardj Exp $
+-- $Id: InteractiveUI.hs,v 1.17 2000/11/27 12:10:01 sewardj Exp $
--
-- GHC Interactive User Interface
--
modules = mods,
current_module = case mods of
[] -> defaultCurrentModule
- xs -> last xs,
+ xs -> head xs,
target = Just path
}
setGHCiState new_state