diff options
| author | Matthieu Sozeau | 2013-12-02 14:54:01 +0100 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-05-06 09:58:56 +0200 |
| commit | edb73502de9c3c51fb59e57747398e7fe5e391a6 (patch) | |
| tree | c16fcf8ba8f57cff81d69078735a11505acef3f6 /stm | |
| parent | 12fd678c3cf163f76110b3b5edeb8a8bcfa82787 (diff) | |
Cleanup in constr, correct classification of polymorphic defs.
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/vernac_classifier.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/stm/vernac_classifier.ml b/stm/vernac_classifier.ml index 76ef10e85f..7a30923c8a 100644 --- a/stm/vernac_classifier.ml +++ b/stm/vernac_classifier.ml @@ -193,7 +193,10 @@ let rec classify_vernac e = try List.assoc s !classifiers l () with Not_found -> anomaly(str"No classifier for"++spc()++str s) in - static_classifier e + let res = static_classifier e in + if Flags.is_universe_polymorphism () then + make_polymorphic res + else res let classify_as_query = VtQuery true, VtLater let classify_as_sideeff = VtSideff [], VtLater |