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

fix 321 - fixed fusion.ml 014

parent 4eee0326
Pipeline #832 failed with stage
in 53 seconds
......@@ -75,8 +75,8 @@ end
val append a b = case a of
SEM_CONS s : case b of
SEM_CONS t : case s.tl of
SEM_CONS u : sem_stmt_list (SEM_CONS {hd=s.hd, tl=(append s.tl b)})
| SEM_NIL : sem_stmt_list (SEM_CONS {hd=s.hd, tl=b})
SEM_CONS u : SEM_CONS {hd=s.hd, tl=(append s.tl b)}
| SEM_NIL : SEM_CONS {hd=s.hd, tl=t}
end
| SEM_NIL : a
end
......
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