The R Project SVN R

Rev

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

Rev 87740 Rev 87783
Line 101... Line 101...
101 
    SEXP onOff = CAR(args);
 101 
    SEXP onOff = CAR(args);
102 
    Rboolean trace = (PRIMVAL(op) == 0),
 102 
    Rboolean trace = (PRIMVAL(op) == 0),
103 
	prev = trace ? GET_TRACE_STATE : GET_DEBUG_STATE;
 103 
	prev = trace ? GET_TRACE_STATE : GET_DEBUG_STATE;
104 
 
 104 
 
105 
    if(length(onOff) > 0) {
 105 
    if(length(onOff) > 0) {
106 
	Rboolean _new = asLogical(onOff);
 106 
	int _new = asLogical(onOff);
107 
	if(_new == TRUE || _new == FALSE)
 107 
	if(_new == TRUE || _new == FALSE)
108 
	    if(trace) SET_TRACE_STATE(_new);
 108 
	    if(trace) SET_TRACE_STATE(_new);
109 
	    else      SET_DEBUG_STATE(_new);
 109 
	    else      SET_DEBUG_STATE(_new);
110 
	else
 110 
	else
111 
	    error(_("Value for '%s' must be TRUE or FALSE"),
 111 
	    error(_("Value for '%s' must be TRUE or FALSE"),