From cf04daec997ae431b14dd3a3bbf0db22013b3c71 Mon Sep 17 00:00:00 2001
From: Arnaud Spiwack
Date: Tue, 29 Jul 2014 14:07:42 +0200
Subject: Untyped terms in tactic: function [type_term c] to give a typed
 version of [c].

---
 printing/pptactic.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'printing/pptactic.ml')

diff --git a/printing/pptactic.ml b/printing/pptactic.ml
index 7fc214304f..2b7f2babd1 100644
--- a/printing/pptactic.ml
+++ b/printing/pptactic.ml
@@ -940,6 +940,7 @@ and pr_tacarg = function
   | ConstrMayEval c -> pr_may_eval pr_constr pr_lconstr pr_cst pr_pat c
   | UConstr c -> str"uconstr:" ++ pr_constr c
   | TacFreshId l -> str "fresh" ++ pr_fresh_ids l
+  | TacPretype c -> str "fresh" ++ pr_constr c
   | TacExternal (_,com,req,la) ->
       str "external" ++ spc() ++ qs com ++ spc() ++ qs req ++
       spc() ++ prlist_with_sep spc pr_tacarg la
-- 
cgit v1.2.3