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

fix 327 - fixed fusion.ml 020

parent db6d6dbc
Pipeline #838 passed with stage
in 2 minutes and 16 seconds
......@@ -25,7 +25,7 @@
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 = return (fuse-bodies-stmt-list stmts)
val fuse-bodies-stmt-list-initial stmts = fuse-bodies-stmt-list stmts
val fuse-bodies-stmt-list stmts = case stmts of
SEM_CONS s : case s.hd of
......
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