X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcoreSyn%2FCoreSubst.lhs;fp=ghc%2Fcompiler%2FcoreSyn%2FCoreSubst.lhs;h=c432d55f9468bb1d63b989d94e8218555cacd106;hb=2317c27bc0ca18dec43eacf87a6cf22cdf01f0f7;hp=24bf7df252a2769276b9aa21d44e0f40d28cadfc;hpb=badd5d76687dc28c063cdd539ca89c9fa44a0e9e;p=ghc-hetmet.git

diff --git a/ghc/compiler/coreSyn/CoreSubst.lhs b/ghc/compiler/coreSyn/CoreSubst.lhs
index 24bf7df..c432d55 100644
--- a/ghc/compiler/coreSyn/CoreSubst.lhs
+++ b/ghc/compiler/coreSyn/CoreSubst.lhs
@@ -254,7 +254,7 @@ substIdBndr rec_subst subst@(Subst in_scope env tvs) old_id
     new_id = maybeModifyIdInfo (substIdInfo rec_subst) id2
 
 	-- Extend the substitution if the unique has changed
-	-- See the notes with substTyVarBndr for the delSubstEnv
+	-- See the notes with substTyVarBndr for the delVarEnv
     new_env | new_id /= old_id  = extendVarEnv env old_id (Var new_id)
 	    | otherwise         = delVarEnv env old_id
 \end{code}