diff options
Diffstat (limited to 'lib/cAst.ml')
| -rw-r--r-- | lib/cAst.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/cAst.ml b/lib/cAst.ml index 5916c9ec12..f0a4057766 100644 --- a/lib/cAst.ml +++ b/lib/cAst.ml @@ -16,8 +16,8 @@ let make ?loc v = { v; loc } let map f n = { n with v = f n.v } let map_with_loc f n = { n with v = f ?loc:n.loc n.v } -let map_from_loc f n = - let loc, v = Loc.to_pair n in +let map_from_loc f l = + let loc, v = l in { v = f ?loc v ; loc } let with_val f n = f n.v |