[project @ 1998-04-15 13:14:35 by simonm]

- remove StgCoerceBinding (unused).

ghc/compiler/stgSyn/StgSyn.lhs

@@ -64,7 +64,6 @@ with respect to binder and occurrence information (just as in
 data GenStgBinding bndr occ
   = StgNonRec	bndr (GenStgRhs bndr occ)
   | StgRec	[(bndr, GenStgRhs bndr occ)]
-  | StgCoerceBinding bndr occ			-- UNUSED?
 \end{code}
 
 %************************************************************************
@@ -498,10 +497,6 @@ pprGenStgBinding (StgNonRec bndr rhs)
   = hang (hsep [ppr bndr, equals])
     	 4 ((<>) (ppr rhs) semi)
 
-pprGenStgBinding (StgCoerceBinding bndr occ)
-  = hang (hsep [ppr bndr, equals, ptext SLIT("{-Coerce-}")])
-    	 4 ((<>) (ppr occ) semi)
-
 pprGenStgBinding (StgRec pairs)
   = vcat ((ifPprDebug (ptext SLIT("{- StgRec (begin) -}"))) :
 	      (map (ppr_bind) pairs) ++ [(ifPprDebug (ptext SLIT("{- StgRec (end) -}")))])