The R Project SVN R

Rev

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

Rev 66468 Rev 66547
Line 1424... Line 1424...
1424 
    if(Fort) symbol.type = R_FORTRAN_SYM;
 1424 
    if(Fort) symbol.type = R_FORTRAN_SYM;
1425 
 
 1425 
 
1426 
    args = enctrim(args);
 1426 
    args = enctrim(args);
1427 
    args = resolveNativeRoutine(args, &ofun, &symbol, symName, &nargs,
 1427 
    args = resolveNativeRoutine(args, &ofun, &symbol, symName, &nargs,
1428 
				&naok, &dup, call, env);
 1428 
				&naok, &dup, call, env);
- 
 
 1429 
    dup = 1; // for now: clean up later
1429 
    fun = (VarFun) ofun;
 1430 
    fun = (VarFun) ofun;
1430 
 
 1431 
 
1431 
    if(symbol.symbol.c && symbol.symbol.c->numArgs > -1) {
 1432 
    if(symbol.symbol.c && symbol.symbol.c->numArgs > -1) {
1432 
	if(symbol.symbol.c->numArgs != nargs)
 1433 
	if(symbol.symbol.c->numArgs != nargs)
1433 
	    errorcall(call,
 1434 
	    errorcall(call,