[run in interactive mode if started as 'jhci', default to 'Prelude' if run in interactive mode and no module specified.
John Meacham <john@repetae.net>**20051202025924] hunk ./Main.hs 96
-    putErrDie "jhc: no input files"
+    int <- isInteractive
+    stats <- Stats.new
+    case int of
+        False -> putErrDie "jhc: no input files"
+        True -> do
+            me <- parseFiles [] [Module "Prelude"] processInitialHo (processDecls stats)
+            compileModEnv' stats me
hunk ./Main.hs 308
+isInteractive :: IO Bool
+isInteractive = do
+    pn <- System.getProgName
+    return $ optInteractive options || "ichj" `isPrefixOf` reverse pn
+
+
hunk ./Main.hs 320
-    if optInteractive options then Interactive.interact ho else do
+    int <- isInteractive
+    if int then Interactive.interact ho else do