Posted to tcl by jima at Fri Sep 06 15:23:04 GMT 2013view pretty

objvYR[0] = Tcl_NewStringObj( "::tis::tisCont", -1 );
                        objvYR[1] = objv[objc-1]; /* trav */
                        objvYR[2] = tgtNodLisPtr[i1]; /* targetNode */
                        objvYR[3] = Tcl_NewStringObj( "VAccept", -1 );
                        objvYR[4] = objv[1]; /* visitor */

                        /* If I don't do these Tcl_EvalObjv will SegFault. */
                        Tcl_IncrRefCount( objvYR[0] );
                        Tcl_IncrRefCount( objvYR[3] );

                        result = Tcl_EvalObjv(
                            interp, 5, objvYR, TCL_GLOBAL_ONLY
                        );

                        /* I guess these are needed... */
                        Tcl_DecrRefCount( objvYR[0] );
                        Tcl_DecrRefCount( objvYR[3] );