int cmd_abort()

in tcl_cmds.c [1488:1495]

• 7 lines of code
• 2 McCabe index (conditional complexity)

int cmd_abort(ClientData cd, Tcl_Interp *ixx, int objc, Tcl_Obj *CONST objv[])
{
	if (objc == 2) {
		Tcl_AddObjErrorInfo(interp, Tcl_GetString(objv[1]), -1);
	}
	
	return TCL_ERROR;
}