From 5f865bdc7e550b420bacb954edb10a67e107048a Mon Sep 17 00:00:00 2001
From: Richard Beare <richard.beare@monash.edu>
Date: Tue, 11 Sep 2018 10:32:58 +1000
Subject: [PATCH] calling Swig_name_setget

---
 Source/Modules/r.cxx | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Source/Modules/r.cxx b/Source/Modules/r.cxx
index 4d4f71079..b09828fc9 100644
--- a/Source/Modules/r.cxx
+++ b/Source/Modules/r.cxx
@@ -1888,8 +1888,11 @@ int R::functionWrapper(Node *n) {
 
     bool isSet(GetFlag(n, "memberset"));
 
-    String *tmp = NewString("");
-    Printf(tmp, "%s_%s", class_name, isSet ? "set" : "get");
+    String *tmp = NewString(isSet ? Swig_name_set(NSPACE_TODO, class_name) : Swig_name_get(NSPACE_TODO, class_name));
+
+    if (debugMode) {
+      Printf(stdout, "functionWrapper TMP: %s\n", tmp);
+    }
 
     List *memList = Getattr(ClassMemberTable, tmp);
     if(!memList) {