[project @ 2002-11-05 09:01:10 by simonpj]

[ghc-hetmet.git] / ghc / compiler / rename / RnExpr.lhs

diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs
index e67f32e..97697a0 100644 (file)
--- a/ghc/compiler/rename/RnExpr.lhs
+++ b/ghc/compiler/rename/RnExpr.lhs
@@ -241,7 +241,8 @@ rnExpr (HsSplice n e loc)
     checkGHCI (thErr "splice")         `thenM_`
     newLocalsRn [(n,loc)]              `thenM` \ [n'] ->
     rnExpr e                           `thenM` \ (e', fvs_e) ->
-    returnM (HsSplice n' e' loc, fvs_e)    
+    returnM (HsSplice n' e' loc, fvs_e `addOneFV` qTyConName)
+       -- The qTyCon brutally pulls in all the meta stuff
 
 rnExpr (HsReify (Reify flavour name))
   = checkGHCI (thErr "reify")          `thenM_`