[make auto-complete of haskell values work at the jhci prompt
John Meacham <john@repetae.net>**20051213233448] hunk ./Interactive.hs 4
+import Control.Monad.Identity
hunk ./Interactive.hs 70
+    stateImports :: [(Name,[Name])],
hunk ./Interactive.hs 78
+    stateImports = [],
hunk ./Interactive.hs 83
-
-
hunk ./Interactive.hs 113
+        interactWords = map (show . fst ) $ stateImports isStart,
hunk ./Interactive.hs 145
+    isStart =  isInitial { stateHo = ho, stateImports = runIdentity $ calcImports ho False (Module "Prelude") }
hunk ./Interactive.hs 150
-            catch (runIn isInitial { stateHo = ho, stateInteract = act } $ executeStatement e) $ (\e -> putStrLn $ ioeGetErrorString e)
+            catch (runIn isStart { stateInteract = act } $ executeStatement e) $ (\e -> putStrLn $ ioeGetErrorString e)
hunk ./Interactive.hs 176
-    defs <- calcImports ho False (Module "Prelude")
-    stmt' <- renameStatement mempty defs (stateModule is) stmt
+    stmt' <- renameStatement mempty (stateImports is) (stateModule is) stmt
hunk ./Util/Interact.hs 76
+    interactWords :: [String],              -- ^ list of words to autocomplete
hunk ./Util/Interact.hs 88
+    interactWords = [],
hunk ./Util/Interact.hs 159
-        expand s = fsts (args s) ++ filter (isPrefixOf s) (interactSettables act)
+        expand s = snub $ fsts (args s) ++ filter (isPrefixOf s) (interactSettables act ++ interactWords act)