[rkward-cvs] rkward/rkward/rbackend/rpackages/rkward/R internal.R,1.21,1.22

[Thomas Friedrichsmeier]

Update of /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv511/rkward/rbackend/rpackages/rkward/R

Modified Files:
	internal.R 
Log Message:
More adjustments for R 2.3.0

Index: internal.R
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/rbackend/rpackages/rkward/R/internal.R,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** internal.R	9 Dec 2005 17:35:41 -0000	1.21
--- internal.R	11 Apr 2006 16:48:14 -0000	1.22
***************
*** 77,81 ****
  
  ".rk.do.error" <- function () {
! 	.Call ("rk.do.error", c (geterrmessage ()));
  }
  
--- 77,84 ----
  
  ".rk.do.error" <- function () {
! # comment in R sources says, it may not be good to query options during error handling. But what can we do, if R_ShowErrorMessages is not longer exported?
! 	if (getOption ("show.error.messages")) {
! 		.Call ("rk.do.error", c (geterrmessage ()));
! 	}
  }