Commit a3a372f9 authored by sof's avatar sof

[project @ 1997-08-25 22:30:39 by sof]

Updated to reflect RecordCon change
parent 5424857f
......@@ -415,10 +415,11 @@ zonkExpr te (ExplicitTuple exprs)
= mapNF_Tc (zonkExpr te) exprs `thenNF_Tc` \ new_exprs ->
returnNF_Tc (ExplicitTuple new_exprs)
zonkExpr te (RecordCon con rbinds)
= zonkExpr te con `thenNF_Tc` \ new_con ->
zonkExpr te (RecordConOut con_id con_expr rbinds)
= zonkIdOcc con_id `thenNF_Tc` \ new_con_id ->
zonkExpr te con_expr `thenNF_Tc` \ new_con_expr ->
zonkRbinds te rbinds `thenNF_Tc` \ new_rbinds ->
returnNF_Tc (RecordCon new_con new_rbinds)
returnNF_Tc (RecordConOut new_con_id new_con_expr new_rbinds)
zonkExpr te (RecordUpd _ _) = panic "zonkExpr te:RecordUpd"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment