The R Project SVN R

Rev

Rev 87783 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 87783 Rev 87813
Line 103... Line 103...
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 
	int _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((Rboolean) _new);
109 
	    else      SET_DEBUG_STATE(_new);
 109 
	    else      SET_DEBUG_STATE((Rboolean) _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"),
112 
		  trace ? "tracingState" : "debuggingState");
 112 
		  trace ? "tracingState" : "debuggingState");
113 
    }
 113 
    }
114 
    return ScalarLogical(prev);
 114 
    return ScalarLogical(prev);