Commit 64d2dd7b authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur 🏘
Browse files

removed MW comments

parent fd6e7f10
......@@ -146,14 +146,10 @@ instance sequence Selection where
sequence (DictionarySelection dictionaryVar dictionarySelections _ index)
= sequence index
// MW0 instance sequence (Bind Expression FreeVar) where
instance sequence LetBind where
// MW0 sequence {bind_src=App app , bind_dst}
sequence {lb_src=App app , lb_dst}
// MW0 = sequence` app bind_dst
= sequence` app lb_dst
where
// MW0 sequence` {app_symb, app_args} bind_dst sequenceState=:{ss_aliasDummyId}
sequence` {app_symb, app_args} lb_dst sequenceState=:{ss_aliasDummyId}
| not (isNilPtr app_symb.symb_name.id_info) // nilPtr's are generated for Case's with case_ident=No in convertcases
&& app_symb.symb_name==ss_aliasDummyId
......@@ -164,16 +160,12 @@ instance sequence LetBind where
non_alias_bound_var = case vi of
VI_SequenceNumber _ -> bound_var
VI_Alias alias_bound_var-> alias_bound_var
// MW0 ss_varHeap = writePtr bind_dst.fv_info_ptr (VI_Alias non_alias_bound_var) ss_varHeap
ss_varHeap = writePtr lb_dst.fv_info_ptr (VI_Alias non_alias_bound_var) ss_varHeap
-> { sequenceState & ss_varHeap = ss_varHeap }
_
// MW0 -> sequence bind_dst sequenceState
-> sequence lb_dst sequenceState
// MW0 = sequence bind_dst sequenceState
= sequence lb_dst sequenceState
sequence bind
// MW0 = sequence bind.bind_dst
= sequence bind.lb_dst
instance sequence FunctionPattern where
......
Supports Markdown
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