X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fghci%2FInteractiveUI.hs;h=bb696c8559bad02e9930543a875e572833dbe9c9;hb=7af3c5a81696045acf584700e417f3cbc8758749;hp=7987405eac1c2ffb15958eee7370da18598e54bc;hpb=902d61ca3610bba014aa6a5707f72e08f992a716;p=ghc-hetmet.git

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index 7987405..bb696c8 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.55 2001/03/15 11:23:19 simonmar Exp $
+-- $Id: InteractiveUI.hs,v 1.57 2001/03/25 13:29:54 simonmar Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -83,12 +83,13 @@ helpText = "\
 \\  
 \   <stmt>		evaluate/run <stmt>\n\ 
 \   :cd <dir>		change directory to <dir>\n\ 
-\   :def <cmd> <expr>   define a macro :<cmd>\n\ 
+\   :def <cmd> <expr>   define a command :<cmd>\n\ 
 \   :help, :?		display this list of commands\n\ 
 \   :load <filename>    load a module (and it dependents)\n\ 
 \   :module <mod>	set the context for expression evaluation to <mod>\n\ 
 \   :reload		reload the current module set\n\ 
 \   :set <option> ...	set options\n\ 
+\   :undef <name> 	undefine user-defined command :<name>\n\ 
 \   :type <expr>	show the type of <expr>\n\ 
 \   :unset <option> ...	unset options\n\ 
 \   :quit		exit GHCi\n\ 
@@ -156,10 +157,12 @@ runGHCi = do
   case home of
    Left e  -> return ()
    Right dir -> do
-  	dot_ghci <- io (IO.try (openFile (dir ++ "/.ghci") ReadMode))
-	case dot_ghci of
-	   Left e -> return ()
-	   Right hdl -> fileLoop hdl False
+	cwd <- io (getCurrentDirectory)
+	when (dir /= cwd) $ do
+  	  dot_ghci <- io (IO.try (openFile (dir ++ "/.ghci") ReadMode))
+  	  case dot_ghci of
+  	     Left e -> return ()
+  	     Right hdl -> fileLoop hdl False
 
   -- read commands from stdin
 #ifndef NO_READLINE
@@ -296,7 +299,7 @@ specialCommand str = do
 	         	     	       foldr1 (\a b -> a ++ ',':b) (map fst cs)
 					 ++ ")") >> return False)
 
-noArgs c = io (hPutStrLn stdout ("command `:" ++ c ++ "' takes no arguments"))
+noArgs c = throwDyn (OtherError ("command `" ++ c ++ "' takes no arguments"))
 
 -----------------------------------------------------------------------------
 -- Commands
@@ -345,14 +348,9 @@ defineMacro s = do
   (new_cmstate, maybe_hv) <- io (cmCompileExpr (cmstate st) dflags new_expr)
   setGHCiState st{cmstate = new_cmstate}
   case maybe_hv of
-	Nothing -> return ()
-	Just hv -> 
-	  do funs <- io (unsafeCoerce# hv :: IO [HValue])
-	     case funs of
-		[fun] -> io (writeIORef commands 	
-		 		((macro_name, keepGoing (runMacro fun))
-				 : cmds))
-		_ -> throwDyn (OtherError "defineMacro: bizarre")
+     Nothing -> return ()
+     Just hv -> io (writeIORef commands --
+		    ((macro_name, keepGoing (runMacro hv)) : cmds))
 
 runMacro :: HValue{-String -> IO String-} -> String -> GHCi ()
 runMacro fun s = do