The R Project SVN R

Rev

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

Rev 47969 Rev 48288
Line 50... Line 50...
50 
	SET_DEBUG(CAR(args), 0);
 50 
	SET_DEBUG(CAR(args), 0);
51 
	break;
 51 
	break;
52 
    case 2:
 52 
    case 2:
53 
        ans = ScalarLogical(DEBUG(CAR(args)));
 53 
        ans = ScalarLogical(DEBUG(CAR(args)));
54 
        break;
 54 
        break;
- 
 
 55 
    case 3:
- 
 
 56 
        SET_STEP(CAR(args), 1);
- 
 
 57 
        break;
55 
    }
 58 
    }
56 
    return ans;
 59 
    return ans;
57 
}
 60 
}
58 
 
 61 
 
59 
SEXP attribute_hidden do_trace(SEXP call, SEXP op, SEXP args, SEXP rho)
 62 
SEXP attribute_hidden do_trace(SEXP call, SEXP op, SEXP args, SEXP rho)