From 587d59d7fe5a92489a2a6b7156009883f744a796 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Wed, 11 Oct 2000 16:15:32 +0000
Subject: [PATCH] [project @ 2000-10-11 16:15:32 by sewardj] Reinstate
 emptyPCS.

---
 ghc/compiler/ghci/CmCompile.lhs |    8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/ghc/compiler/ghci/CmCompile.lhs b/ghc/compiler/ghci/CmCompile.lhs
index efab1ea..b61d1b5 100644
--- a/ghc/compiler/ghci/CmCompile.lhs
+++ b/ghc/compiler/ghci/CmCompile.lhs
@@ -67,5 +67,13 @@ cmCompile finder summary old_iface hst pcs
                        pcs
                        []
                )
+
+-- should be somewhere else?
+emptyPCS :: IO PersistentCompilerState
+emptyPCS = return (PersistentCompilerState 
+                      { pcs_modmap = emptyFM,
+                        pcs_pit    = emptyPIT,
+                        pcs_pst    = emptyPST,
+                        pcs_hp     = emptyHoldingPen })
 \end{code}
 
-- 
1.7.10.4