Update the position of the default class

The default class must stay abtract and as such
can not have a position.
Set its position to Position.none
This commit is contained in:
Nicolas Méric 2022-12-21 18:32:07 +01:00
parent e1f143d151
commit a589d4cd47
1 changed files with 1 additions and 1 deletions

View File

@ -1457,7 +1457,7 @@ fun check_classref {is_monitor=is_monitor} (SOME(cid,pos)) thy =
val _ = Context_Position.report_generic ctxt pos markup;
in (cid_long, pos)
end
| check_classref _ NONE _ = (DOF_core.default_cid, \<^here>)
| check_classref _ NONE _ = (DOF_core.default_cid, Position.none)
fun generalize_typ n = Term.map_type_tfree (fn (str,sort)=> Term.TVar((str,n),sort));