[rkward-cvs] SF.net SVN: rkward: [1953] trunk/rkward/rkward/rbackend/rembedinternal.cpp

[tfry at users.sourceforge.net]

Revision: 1953
          http://rkward.svn.sourceforge.net/rkward/?rev=1953&view=rev
Author:   tfry
Date:     2007-09-13 04:38:19 -0700 (Thu, 13 Sep 2007)

Log Message:
-----------
Adjustment for removal of R_LastvalueSymbol in R 2.6

Modified Paths:
--------------
    trunk/rkward/rkward/rbackend/rembedinternal.cpp

Modified: trunk/rkward/rkward/rbackend/rembedinternal.cpp
===================================================================
--- trunk/rkward/rkward/rbackend/rembedinternal.cpp	2007-08-21 00:08:51 UTC (rev 1952)
+++ trunk/rkward/rkward/rbackend/rembedinternal.cpp	2007-09-13 11:38:19 UTC (rev 1953)
@@ -91,6 +91,7 @@
 // hidden in Rinternals.h is USE_RINTERNALS is defined
 extern Rboolean (Rf_isNull)(SEXP s);
 extern Rboolean (Rf_isObject)(SEXP s);
+SEXP R_LastvalueSymbol;
 #endif
 
 #ifdef R_2_4
@@ -636,6 +637,9 @@
 	RKGlobals::na_double = NA_REAL;
 	R_ReplDLLinit ();
 	RKWard_RData_Tag = Rf_install ("RKWard_RData_Tag");
+#	ifdef R_2_6
+	R_LastvalueSymbol = Rf_install (".Last.value");
+#	endif
 	return ok;
 #endif
 }


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.