diff options
| author | Matthieu Sozeau | 2014-10-11 12:11:07 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-10-11 12:15:49 +0200 |
| commit | d4b3de96f524887013c0955bd5b90f0311f086e6 (patch) | |
| tree | ea87e31c9c4681911c9dede29de2d1b51a86deec /printing | |
| parent | d65496f09c4b68fa318783e53f9cd6d5c18e1eb7 (diff) | |
Revert d0cd27e209be08ee51a2d609157367f053438a10: giving a different name
for the record binder of classes. This name is no longer generated
in the kernel but part of the declaration. Also cleanup the interface
to recognize primitive records based on an option type instead of a
dynamic check of the length of an array.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/prettyp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/prettyp.ml b/printing/prettyp.ml index 08d7c237d4..e0f6ef25cc 100644 --- a/printing/prettyp.ml +++ b/printing/prettyp.ml @@ -205,7 +205,7 @@ let print_polymorphism ref = else "not universe polymorphic") let print_primitive_record mipv = function - | Some (ps,_) when Array.length ps > 0 -> + | Some (Some (_, ps,_)) -> [pr_id mipv.(0).mind_typename ++ str" is primitive and has eta conversion."] | _ -> [] |