- if ((-newf->first_statement) >= pr_numbuiltins)
- Host_Error ("Bad builtin call number");
- pr_builtins[-newf->first_statement] ();
+ int builtinnumber = -newf->first_statement;
+ pr_xfunction->builtinsprofile++;
+ if (builtinnumber < pr_numbuiltins && pr_builtins[builtinnumber])
+ pr_builtins[builtinnumber]();
+ else
+ Host_Error("No such builtin #%i", builtinnumber);