The R Project SVN R

Rev

Rev 86514 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 86514 Rev 86790
Line 547... Line 547...
547 
		custom_handlers_env = eval(R_HandlersName, toolsNS);
 547 
		custom_handlers_env = eval(R_HandlersName, toolsNS);
548 
		UNPROTECT(1); /* toolsNS */
 548 
		UNPROTECT(1); /* toolsNS */
549 
	    }
 549 
	    }
550 
	    /* we only proceed if .httpd.handlers.env really exists */
 550 
	    /* we only proceed if .httpd.handlers.env really exists */
551 
	    if (TYPEOF(custom_handlers_env) == ENVSXP) {
 551 
	    if (TYPEOF(custom_handlers_env) == ENVSXP) {
552 
		SEXP cl = findVarInFrame3(custom_handlers_env, install(fn), TRUE);
 552 
		SEXP cl = findVarInFrame(custom_handlers_env, install(fn));
553 
		if (cl != R_UnboundValue && TYPEOF(cl) == CLOSXP) /* we need a closure */
 553 
		if (cl != R_UnboundValue && TYPEOF(cl) == CLOSXP) /* we need a closure */
554 
		    return cl;
 554 
		    return cl;
555 
	    }
 555 
	    }
556 
	}
 556 
	}
557 
    }
 557 
    }