[r2004-05-25 15:11:58 by afrisch] Avoid loop

Original author: afrisch
Date: 2004-05-25 15:11:58+00:00

types/types.ml

@@ -1354,7 +1354,7 @@ struct
       aux BoolRec.compare d.record any.record +
       aux Abstract.compare d.abstract any.abstract
     in
-    n >= 4
+    n >= 5
 
   let rec prepare d =
     try DescrHash.find memo d