diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-01-17 01:08:21 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-01-17 01:13:23 +0100 |
| commit | 0d1345ea2423fc418a470786b0b33b80df3a67bc (patch) | |
| tree | 72aa847e645f0662c9f5241ea1f17ca4107390af /printing | |
| parent | 43490147b0749f46eb90ff69c3bbdb3991fb526c (diff) | |
Temporary commit getting rid of Obj.magic unsafety for Genarg.
This will allow an easier landing of the rewriting of Genarg.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/pptactic.ml | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 5bc242b2b..e7443fd02 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -1354,11 +1354,12 @@ module Make let check_val_type t arg = let AnyArg t = t in - let t = Genarg.val_tag (Obj.magic t) in (** FIXME *) - let Val.Dyn (t', _) = arg in - match Genarg.Val.eq t t' with - | None -> false - | Some _ -> true +(* let t = Genarg.val_tag (Obj.magic t) in *) +(* let Val.Dyn (t', _) = arg in *) +(* match Genarg.Val.eq t t' with *) +(* | None -> false *) +(* | Some _ -> true *) + true (** FIXME *) let pr_alias pr lev key args = pr_alias_gen check_val_type pr lev key args |