[project @ 2003-03-07 11:22:06 by simonmar]

[ghc-hetmet.git] / ghc / compiler / main / HscMain.lhs

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index cad46c4..23f00c9 100644 (file)
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -353,7 +353,7 @@ hscBackEnd dflags
       HscInterpreted ->
 #ifdef GHCI
        do  -----------------  Generate byte code ------------------
-           comp_bc <- byteCodeGen dflags core_binds type_env
+           comp_bc <- byteCodeGen dflags prepd_binds type_env
        
            ------------------ Create f-x-dynamic C-side stuff ---
            (istub_h_exists, istub_c_exists)