The R Project SVN R

Rev

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

Rev 72959 Rev 73005
Line 170... Line 170...
170 
	    PROTECT(defdev = lang1(defdev));
 170 
	    PROTECT(defdev = lang1(defdev));
171 
	    eval(defdev, R_GlobalEnv);
 171 
	    eval(defdev, R_GlobalEnv);
172 
	    UNPROTECT(1);
 172 
	    UNPROTECT(1);
173 
	} else
 173 
	} else
174 
	    error(_("no active or default device"));
 174 
	    error(_("no active or default device"));
- 
 
 175 
	if (NoDevices()) // the startup above may have failed
- 
 
 176 
	    error(_("no active device and default getOption(\"device\") is invalid"));
175 
    }
 177 
    }
176 
    return R_Devices[R_CurrentDevice];
 178 
    return R_Devices[R_CurrentDevice];
177 
}
 179 
}
178 
 
 180 
 
179 
pGEDevDesc GEgetDevice(int i)
 181 
pGEDevDesc GEgetDevice(int i)