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

[tfry at users.sourceforge.net]

Revision: 920
          http://svn.sourceforge.net/rkward/?rev=920&view=rev
Author:   tfry
Date:     2006-11-07 08:30:38 -0800 (Tue, 07 Nov 2006)

Log Message:
-----------
small fix to last commit

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	2006-11-07 16:29:19 UTC (rev 919)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2006-11-07 16:30:38 UTC (rev 920)
@@ -158,9 +158,9 @@
 # override makeActiveBinding: If active bindings are created in globalenv (), watch them properly
 "makeActiveBinding" <- function (sym, fun, env, ...) {
 	if (identical (env, globalenv ())) {
-		base::makeActiveBinding (sym, fun, .rk.watched.symbols)
+		base::makeActiveBinding (sym, fun, .rk.watched.symbols, ...)
 		f <- .rk.make.watch.f (sym)
-		base::makeActiveBinding (sym, f, globalenv ())
+		base::makeActiveBinding (sym, f, globalenv (), ...)
 	} else {
 		base::makeActiveBinding (sym, fun, env, ...)
 	}


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