The R Project SVN R

Rev

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

Rev 4247 Rev 5187
Line 14... Line 14...
14 
 *
 14 
 *
15 
 *  You should have received a copy of the GNU General Public License
 15 
 *  You should have received a copy of the GNU General Public License
16 
 *  along with this program; if not, write to the Free Software
 16 
 *  along with this program; if not, write to the Free Software
17 
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 17 
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18 
 */
 18 
 */
- 
 
 19 
#ifdef HAVE_CONFIG_H
- 
 
 20 
#include <Rconfig.h>
- 
 
 21 
#endif
19 
 
 22 
 
20 
#include "Defn.h"
 23 
#include "Defn.h"
21 
 
 24 
 
22 
 
 - 
 
23 
SEXP do_debug(SEXP call, SEXP op, SEXP args, SEXP rho)
 25 
SEXP do_debug(SEXP call, SEXP op, SEXP args, SEXP rho)
24 
{
 26 
{
25 
    SEXP s;
 27 
    SEXP s;
26 
    checkArity(op,args);
 28 
    checkArity(op,args);
27 
    if (TYPEOF(CAR(args)) == STRSXP) {
 29 
    if (TYPEOF(CAR(args)) == STRSXP) {