diff options
| author | Matthieu Sozeau | 2015-02-18 12:04:30 +0100 |
|---|---|---|
| committer | Matthieu Sozeau | 2015-02-18 12:08:21 +0100 |
| commit | cdbfad340dcd8cd3428853886964882b389776c6 (patch) | |
| tree | d536b4de57dc409496b7272c7f500ddffe249087 | |
| parent | 0b53955bb2bec43454ccbd317a09787a24fff3ae (diff) | |
Fix bug #4046.
| -rw-r--r-- | toplevel/classes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/classes.ml b/toplevel/classes.ml index 01b560d0c4..07f881721d 100644 --- a/toplevel/classes.ml +++ b/toplevel/classes.ml @@ -208,7 +208,7 @@ let new_instance ?(abstract=false) ?(global=false) poly ctx (instid, bk, cl) pro let get_id = function | Ident id' -> id' - | _ -> errorlabstrm "new_instance" (Pp.str "Only local structures are handled") + | Qualid (loc,id') -> (loc, snd (repr_qualid id')) in let props, rest = List.fold_left |