[project @ 2000-01-28 18:07:55 by sewardj]

[ghc-hetmet.git] / ghc / compiler / stgSyn / StgSyn.lhs

diff --git a/ghc/compiler/stgSyn/StgSyn.lhs b/ghc/compiler/stgSyn/StgSyn.lhs
index 1f67634..1c10d34 100644 (file)
--- a/ghc/compiler/stgSyn/StgSyn.lhs
+++ b/ghc/compiler/stgSyn/StgSyn.lhs
@@ -147,6 +147,23 @@ An example might be: @f x = x:[]@.
 
 %************************************************************************
 %*                                                                     *
+\subsubsection{@StgLam@}
+%*                                                                     *
+%************************************************************************
+
+StgLam is used *only* during CoreToStg's work.  Before CoreToStg has finished
+it encodes (\x -> e) as (let f = \x -> e in f)
+
+\begin{code}
+  | StgLam
+       Type            -- Type of whole lambda (useful when making a binder for it)
+       [Id]
+       StgExpr         -- Body of lambda
+\end{code}
+
+
+%************************************************************************
+%*                                                                     *
 \subsubsection{@GenStgExpr@: case-expressions}
 %*                                                                     *
 %************************************************************************
@@ -587,6 +604,10 @@ pprStgExpr (StgApp func args)
 \begin{code}
 pprStgExpr (StgCon con args _)
   = hsep [ ppr con, brackets (interppSP args)]
+
+pprStgExpr (StgLam _ bndrs body)
+  =sep [ char '\\' <+> ppr bndrs <+> ptext SLIT("->"),
+        pprStgExpr body ]
 \end{code}
 
 \begin{code}