/*
     * Test for whether the initialization failed. If so, transfer the error
     * from the target interpreter to the originating one.
     */

    if (code != TCL_OK) {
        Interp *iPtr = (Interp *) target;
        if (iPtr->legacyResult && !iPtr->legacyFreeProc) {
            /*
             * A call to Tcl_InitStubs() determined the caller extension and
             * this interp are incompatible in their stubs mechanisms, and
             * recorded the error in the oldest legacy place we have to do so.
             */
            Tcl_SetObjResult(target, Tcl_NewStringObj(iPtr->legacyResult, -1));
            iPtr->legacyResult = NULL;
            iPtr->legacyFreeProc = (void (*) (void))-1;
        }
	Tcl_TransferResult(target, code, interp);
	goto done;
    }

    /*
     * Record the fact that the package has been loaded in the target
     * interpreter.