Commit ad4b0bf3 authored by Lovis J.I. Zenz's avatar Lovis J.I. Zenz
Browse files

fix 318 - fixed fusion.ml 011

parent 2b2bace6
Pipeline #828 failed with stage
in 54 seconds
......@@ -40,7 +40,7 @@ val fuse-bodies-stmt-list stmts = case stmts of
| _ : do
continued <- return (fuse-bodies-stmt-list s.tl);
return (SEM_CONS {hd=s.hd, tl=continued})
end
end
end
| SEM_NIL : return SEM_NIL
end
......@@ -134,16 +134,4 @@ val lin-eq? lin1 lin2 = case lin1 of
SEM_LIN_IMM ii : i.const === ii.const
| _ : '0'
end
end
#val id-eq? id1 id2 = case id1 of
# VIRT_T v1 : case id2 of
# VIRT_T v2 : v1 === v2
# | _ : '0'
# end
# | VIRT_O v1 : case id2 of
# VIRT_O v2 : v1 === v2
# | _ : '0'
# end
# | _ : index id1 === index id2
#end
\ No newline at end of file
end
\ No newline at end of file
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