The R Project SVN R

Rev

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

Rev 26395 Rev 26396
Line 1641... Line 1641...
1641 
    else
 1641 
    else
1642 
	version = asInteger(CADDDR(args));
 1642 
	version = asInteger(CADDDR(args));
1643 
    if (version == NA_INTEGER || version <= 0)
 1643 
    if (version == NA_INTEGER || version <= 0)
1644 
	error("bad version value");
 1644 
	error("bad version value");
1645 
    if (version < 2)
 1645 
    if (version < 2)
1646 
	error("cannott save to connections in version %d format", version);
 1646 
	error("cannot save to connections in version %d format", version);
1647 
 
 1647 
 
1648 
    fun = CAR(nthcdr(args,4));
 1648 
    fun = CAR(nthcdr(args,4));
1649 
    hook = fun != R_NilValue ? CallHook : NULL;
 1649 
    hook = fun != R_NilValue ? CallHook : NULL;
1650 
 
 1650 
 
1651 
    R_InitConnOutPStream(&out, con, type, version, hook, fun);
 1651 
    R_InitConnOutPStream(&out, con, type, version, hook, fun);