diff options
author | 2017-01-17 14:44:28 +0100 | |
---|---|---|
committer | 2017-04-24 23:58:23 +0200 | |
commit | a9d151a31937724543d5269e72b0262c8764c46e (patch) | |
tree | c88761514ebb3b4ff2691acf8dcfec6f13135d97 /printing | |
parent | 158f40db9482ead89befbf9bc9ad45ff8a60b75f (diff) |
[location] More located use.
Diffstat (limited to 'printing')
-rw-r--r-- | printing/ppconstr.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml index a99c0951f..117e1900d 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -319,7 +319,7 @@ let tag_var = tag Tag.variable let begin_of_binder = function | CLocalDef((loc,_),_,_) -> fst (Loc.unloc loc) | CLocalAssum((loc,_)::_,_,_) -> fst (Loc.unloc loc) - | CLocalPattern(loc,_,_) -> fst (Loc.unloc loc) + | CLocalPattern(loc,(_,_)) -> fst (Loc.unloc loc) | _ -> assert false let begin_of_binders = function @@ -366,7 +366,7 @@ let tag_var = tag Tag.variable surround (pr_lname na ++ pr_opt_no_spc (fun t -> str " :" ++ ws 1 ++ pr_c t) topt ++ str" :=" ++ spc() ++ pr_c c) - | CLocalPattern (loc,p,tyo) -> + | CLocalPattern (loc,(p,tyo)) -> let p = pr_patt lsimplepatt p in match tyo with | None -> @@ -400,7 +400,7 @@ let tag_var = tag Tag.variable (_loc', CCases (LetPatternStyle,None, [(_loc'', CRef (Ident (_,id'),None)),None,None],[(_,([_,[p]],b))]))) when Id.equal id id' && not (Id.Set.mem id (Topconstr.free_vars_of_constr_expr b)) -> let bl,c = extract_prod_binders b in - CLocalPattern (loc, p,None) :: bl, c + CLocalPattern (loc, (p,None)) :: bl, c | loc, CProdN ((nal,bk,t)::bl,c) -> let bl,c = extract_prod_binders (loc, CProdN(bl,c)) in CLocalAssum (nal,bk,t) :: bl, c @@ -416,7 +416,7 @@ let tag_var = tag Tag.variable (_loc, CCases (LetPatternStyle,None, [(_loc', CRef (Ident (_,id'),None)),None,None],[(_,([_,[p]],b))]))) when Id.equal id id' && not (Id.Set.mem id (Topconstr.free_vars_of_constr_expr b)) -> let bl,c = extract_lam_binders b in - CLocalPattern (loc,p,None) :: bl, c + CLocalPattern (loc,(p,None)) :: bl, c | CLambdaN ((nal,bk,t)::bl,c) -> let bl,c = extract_lam_binders (loc, CLambdaN(bl,c)) in CLocalAssum (nal,bk,t) :: bl, c |