[rkward-cvs] SF.net SVN: rkward:[4171] trunk/rkward/rkward/rbackend/rpackages/rkward/R/ internal.R

[tfry at users.sourceforge.net]

Revision: 4171
          http://rkward.svn.sourceforge.net/rkward/?rev=4171&view=rev
Author:   tfry
Date:     2012-03-11 08:57:43 +0000 (Sun, 11 Mar 2012)
Log Message:
-----------
Small speedup of assignments in globalenv

Modified Paths:
--------------
    trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R

Modified: trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2012-03-10 20:47:26 UTC (rev 4170)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2012-03-11 08:57:43 UTC (rev 4171)
@@ -209,7 +209,10 @@
 	function (value) {
 		if (!missing (value)) {
 			assign (k, value, envir=.rk.watched.symbols)
-			.rk.do.call ("ws", k);
+			.Call ("rk.do.command", c ("ws", k));
+#			NOTE: the above is essentially the same a
+#				.rk.do.call ("ws", k);
+#			only minimally faster.
 			invisible (value)
 		} else {
 			get (k, envir=.rk.watched.symbols)

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