[Rinside-commits] r102 - pkg/src

[noreply at r-forge.r-project.org]

Author: romain
Date: 2010-02-17 21:39:58 +0100 (Wed, 17 Feb 2010)
New Revision: 102

Modified:
   pkg/src/RInside.cpp
Log:
print the call

Modified: pkg/src/RInside.cpp
===================================================================
--- pkg/src/RInside.cpp	2010-02-17 20:34:29 UTC (rev 101)
+++ pkg/src/RInside.cpp	2010-02-17 20:39:58 UTC (rev 102)
@@ -187,8 +187,8 @@
     	    Rcpp::Function("delayedAssign"), 
     	    R_NilValue,     /* arg1: assigned in loop */
     	    R_NilValue,     /* arg2: assigned in loop */
-    	    R_GlobalEnv,
-    	    Rcpp::Environment::global_env()[".AutoloadEnv"]
+    	    global_env,
+    	    global_env[".AutoloadEnv"]
     	    ) ;
     Rcpp::Language::Proxy delayed_assign_name  = delayed_assign_call[1];
 
@@ -216,6 +216,8 @@
 		    /* Set the 'name' argument of the delayedAssign call */
 		    delayed_assign_name = packobj[idx+j] ;
 		    
+		    Rf_PrintValue( delayed_assign_call ) ;
+		    
 		    /* evaluate the call */
 		    delayed_assign_call.eval() ;
 		    
@@ -225,7 +227,7 @@
 		
     	}
     } catch( std::exception& ex){
-    	    fprintf(stderr,"%s: Error calling delayedAssign!%s\n", 
+    	    fprintf(stderr,"%s: Error calling delayedAssign:\n %s", 
 		programName, ex.what() );
 	    exit(1);	    
     }