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

fix 323 - fixed fusion.ml 016

parent cdf6bf22
Pipeline #834 failed with stage
in 53 seconds
......@@ -47,7 +47,7 @@ end
val get-fusable c fusable stmts = case stmts of
SEM_CONS s : case s.hd of
SEM_ITE t : if (equal t.cond c) then get-fusable c (append fusable t) s.tl else fusable
SEM_ITE t : if (equal t.cond c) then get-fusable c (append fusable (SEM_CONS {hd=s.hd, tl=SEM_NIL})) s.tl else fusable
| _ : fusable
end
| SEM_NIL : fusable
......
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