Commits

camlspotter  committed 5b253af

fix

  • Participants
  • Parent commits c9770fc
  • Branches local-poly-test

Comments (0)

Files changed (1)

File typing/typecore.ml

   let top = 
     top || 
       match String.capitalize(Filename.basename(chop_extension_if_any !Location.input_name)) with
-      | "Scanf" | "Printf" -> true
+      | "Scanf" | "Printf" | "Arg" | "CamlinternalOO" | "Includecore" -> true
       | _ -> false
   in
   if top then begin