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

[kapatp at users.sourceforge.net]

Revision: 3406
          http://rkward.svn.sourceforge.net/rkward/?rev=3406&view=rev
Author:   kapatp
Date:     2011-01-30 22:16:05 +0000 (Sun, 30 Jan 2011)

Log Message:
-----------
Fix the return value of setwd. See prog43.1-au08-090825-import.sql.R

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	2011-01-30 18:42:59 UTC (rev 3405)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2011-01-30 22:16:05 UTC (rev 3406)
@@ -313,8 +313,9 @@
 }
 
 "setwd" <- function () {
-	eval (body (base::setwd))
-	invisible (.rk.do.call ("wdChange", base::getwd ()));
+	ret <- eval (body (base::setwd))
+	.rk.do.call ("wdChange", base::getwd ())
+	invisible (ret)
 }
 formals (setwd) <- formals (base::setwd)
 


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