X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FHscMain.lhs;h=23f00c9dac5eb46cd0db9d8996034a861e2f216b;hb=536087b8565252f54a7c1b33d1ba85a76aef7249;hp=cad46c425a6d520e09421c79686927e11c81e967;hpb=c38560410334c59512630ac59f7c0e6330241077;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index cad46c4..23f00c9 100644
--- 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)