diff options
| author | Maxime Dénès | 2017-03-14 20:22:03 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-03-14 20:22:03 +0100 |
| commit | 93a75d635ac3fb52eed7b39c3c7a8e656f0a81b7 (patch) | |
| tree | 29ff91cc0daece1bdccab2488aa7bd50f97708dd /plugins/ltac/pptactic.ml | |
| parent | e3a214801baf52c1cb1e9094d9e19624a6f9ded2 (diff) | |
| parent | e6127d1f65a761a27c80b81c0f1bc5fca2b74af8 (diff) | |
Merge PR#432: [cleanup] Change Id.t option to Name.t in TacFun
Diffstat (limited to 'plugins/ltac/pptactic.ml')
| -rw-r--r-- | plugins/ltac/pptactic.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/plugins/ltac/pptactic.ml b/plugins/ltac/pptactic.ml index fccee6e40a..6f4ef37b44 100644 --- a/plugins/ltac/pptactic.ml +++ b/plugins/ltac/pptactic.ml @@ -574,9 +574,7 @@ module Make str "=>" ++ brk (1,4) ++ pr t)) | All t -> str "_" ++ spc () ++ str "=>" ++ brk (1,4) ++ pr t - let pr_funvar = function - | None -> spc () ++ str "_" - | Some id -> spc () ++ pr_id id + let pr_funvar n = spc () ++ pr_name n let pr_let_clause k pr (id,(bl,t)) = hov 0 (keyword k ++ spc () ++ pr_lident id ++ prlist pr_funvar bl ++ |