diff options
| author | Matthieu Sozeau | 2014-06-17 16:12:39 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-06-17 17:19:03 +0200 |
| commit | 527a09cc27ac64ab308220b25eb683a882dbddc1 (patch) | |
| tree | 3ace22573db0c1832e55e16b35ae8c2e9f6c18c3 /toplevel | |
| parent | b5ed27b9b8043e3df3ee4cd918f93fbf7465285f (diff) | |
Adapt coercion code to work with projections as target classes.
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/class.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/toplevel/class.ml b/toplevel/class.ml index 635b1c52c0..a6591f0d3b 100644 --- a/toplevel/class.ml +++ b/toplevel/class.ml @@ -72,6 +72,7 @@ let check_reference_arity ref = let check_arity = function | CL_FUN | CL_SORT -> () | CL_CONST cst -> check_reference_arity (ConstRef cst) + | CL_PROJ cst -> check_reference_arity (ConstRef cst) | CL_SECVAR id -> check_reference_arity (VarRef id) | CL_IND kn -> check_reference_arity (IndRef kn) @@ -167,7 +168,7 @@ let get_strength stre ref cls clt = let ident_key_of_class = function | CL_FUN -> "Funclass" | CL_SORT -> "Sortclass" - | CL_CONST sp -> Label.to_string (con_label sp) + | CL_CONST sp | CL_PROJ sp -> Label.to_string (con_label sp) | CL_IND (sp,_) -> Label.to_string (mind_label sp) | CL_SECVAR id -> Id.to_string id |