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

[tfry at users.sourceforge.net]

Revision: 895
          http://svn.sourceforge.net/rkward/?rev=895&view=rev
Author:   tfry
Date:     2006-10-21 12:50:24 -0700 (Sat, 21 Oct 2006)

Log Message:
-----------
Make sure to pass on envlevel to prevent infinite recursion

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-10-20 11:49:46 UTC (rev 894)
+++ trunk/rkward/rkward/rbackend/rpackages/rkward/R/internal.R	2006-10-21 19:50:24 UTC (rev 895)
@@ -279,7 +279,7 @@
 				i <- 0
 				for (child in x) {
 					i <- i+1
-					sub[[nms[i]]] <- .rk.get.structure (child, nms[i])
+					sub[[nms[i]]] <- .rk.get.structure (child, nms[i], envlevel)
 				}
 			}
 		}


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