Commit 73212f19 authored by Mário Pereira's avatar Mário Pereira

Extraction of function return types: removed mysterious List.rev

parent 4a591f6f
......@@ -329,7 +329,7 @@ module Translate = struct
| Ityvar (tvs, _) ->
Mltree.Tvar tvs
| Ityapp ({its_ts = ts}, itl, _) when is_ts_tuple ts ->
let itl = List.rev (visible_of_mask mask itl) in
let itl = visible_of_mask mask itl in
Mltree.Ttuple (List.map loop itl)
| Ityapp ({its_ts = ts}, itl, _) ->
Mltree.Tapp (ts.ts_name, List.map loop itl)
......
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