fix #show regression in 4.14

ocaml · Dec 29, 2021 · 8553269 · 8553269
1 parent 2a6df5e
commit 8553269
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/typing/signature_group.ml b/typing/signature_group.ml
@@ -49,13 +49,15 @@ let next_group = function
                declarations of class type [c], and types [c] and [#c] *)
             begin match q with
             | ct::t::ht::q -> [ct;t;ht], q
+            | t::q -> [t], q
             | _ -> assert false
             end
         | Types.Sig_class_type _  ->
             (* a class type declaration for [ct] is followed by the ghost
                declarations of types [ct] and [#ct] *)
            begin match q with
             | t::ht::q -> [t;ht], q
+            | [] -> [], q
             | _ -> assert false
            end
         | Types.(Sig_module _ | Sig_value _ | Sig_type _ | Sig_typext _