From 413a485ac1990534ac740e05f32e51e15dbc7685 Mon Sep 17 00:00:00 2001
From: Joseph Wang <joequant@gmail.com>
Date: Wed, 12 Dec 2012 12:41:07 +0000
Subject: [PATCH] add finalizer for class fix.  It was missing from earlier
 additions

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@13957 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Source/Modules/r.cxx | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/Modules/r.cxx b/Source/Modules/r.cxx
index 6258e327d..4724ca3a7 100644
--- a/Source/Modules/r.cxx
+++ b/Source/Modules/r.cxx
@@ -2115,7 +2115,7 @@ int R::functionWrapper(Node *n) {
 	{ 
 	  String *finalizer = NewString(iname);
 	  Replace(finalizer, "new_", "", DOH_REPLACE_FIRST);
-	  Printf(sfun->code, "reg.finalizer(ans, delete_%s)\n", finalizer);
+	  Printf(sfun->code, "reg.finalizer(ans@ref, delete_%s)\n", finalizer);
 	}                                                                      
       Printf(sfun->code, "ans\n");
     }