Final commit

This commit is contained in:
Roman Venediktov 2024-02-06 15:39:33 +01:00
parent b532e90ea0
commit db296f5259
7 changed files with 57 additions and 34 deletions

View file

@ -387,6 +387,9 @@ let compile_call env ?fname nargs tail =
let allowed_function =
match fname with
| Some "Lprintf" -> false
| Some "Lsprintf" -> false
| Some "Lfprintf" -> false
| Some "Lfailure" -> false
| Some fname -> not (fname.[0] = '.')
| None -> true
in