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

shortened fusion.ml

parent ae28e2ba
Pipeline #839 failed with stage
in 46 seconds
......@@ -23,11 +23,7 @@
# list of statements with inlined right hand sides
#
export fuse-bodies : (sem_stmt_list)-> S sem_stmt_list <{} => {}>
val fuse-bodies stmts = fuse-bodies-stmt-list-initial stmts
val fuse-bodies-stmt-list-initial stmts = fuse-bodies-stmt-list stmts
val fuse-bodies-stmt-list stmts = case stmts of
val fuse-bodies stmts = case stmts of
SEM_CONS s : case s.hd of
SEM_ITE t : do
fusable <- return (SEM_CONS {hd=s.hd, tl=SEM_NIL});
......
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