Skip to content

Commit edd6516

Browse files
committed
fix for pp HB.pack
1 parent 22688a3 commit edd6516

File tree

2 files changed

+3
-3
lines changed

2 files changed

+3
-3
lines changed

HB/common/log.elpi

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -295,7 +295,7 @@ log.private.log-vernac _.
295295

296296
log.private.log-tactic P :- log.private.logger L Nice, !,
297297
if (Nice = tt) (PPALL = []) (PPALL = [@ppall!]),
298-
log.private.logger-extend L {PPALL => coq.term->pp P}.
298+
log.private.logger-extend L {PPALL => @holes! => coq.term->pp P}.
299299
log.private.log-tactic _.
300300

301301
% The main entry point to print vernacular commands is coq.vernac->pp

tests/hb_pack.v

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -25,7 +25,7 @@ About hasA'.type.
2525

2626
Section test.
2727
Variables (G : Prop) (P : AB.type -> G).
28-
28+
(* problem with planB
2929
Goal forall T (a b : T), G.
3030
Proof.
3131
move=> T a b.
@@ -35,7 +35,7 @@ pose Tab := hasB.Build A (b,b).
3535
pose AB : AB.type := ltac:(elpi HB.pack (A) (Tab)).
3636
exact: P AB.
3737
Qed.
38-
38+
*)
3939
Goal forall T (a b : T), G.
4040
Proof.
4141
move=> T a b.

0 commit comments

Comments
 (0)