Source position: tcl80.pp line 872
function Tcl_DeleteCommandFromToken(
interp: PTcl_Interp;
cmd: pTcl_Command
):Integer;