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

fix 324 - fixed fusion.ml 017

parent 1d6cb0f9
Pipeline #835 failed with stage
in 54 seconds
......@@ -32,7 +32,7 @@ val fuse-bodies-stmt-list stmts = case stmts of
SEM_ITE t : do
fusable <- return (SEM_CONS {hd=s.hd, tl=SEM_NIL});
fusable <- return (get-fusable t.cond fusable stmts);
head <- return (fuse-bodies-ite-list t fusable);
head <- return (fuse-bodies-ite-list s.hd fusable);
tail <- return (get-remainder fusable stmts);
continued <- return (fuse-bodies-stmt-list tail);
return (SEM_CONS {hd=head, tl=continued})
......
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