From 9110d47ea653bfd4d972cb00b3b77afce63dfb9a Mon Sep 17 00:00:00 2001
From: Geert Janssens <janssens-geert@telenet.be>
Date: Wed, 24 Apr 2013 09:56:02 +0200
Subject: [PATCH] Use freearg instead of argout to free temp variable

---
 Lib/guile/std_pair.i | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Lib/guile/std_pair.i b/Lib/guile/std_pair.i
index 238c5188b..512d0d555 100644
--- a/Lib/guile/std_pair.i
+++ b/Lib/guile/std_pair.i
@@ -54,7 +54,7 @@ namespace std {
                     SWIG_MustGetPtr($input,$1_descriptor,$argnum, 0);
             }
         %}
-        %typemap(argout) const pair<T,U>&, const pair<T,U>* %{ delete temp$argnum; %}
+        %typemap(freearg) const pair<T,U>&, const pair<T,U>* %{ delete temp$argnum; %}
         %typemap(out) pair<T,U> {
             T* x = new T($1.first);
             U* y = new U($1.second);
@@ -162,7 +162,7 @@ namespace std {
                     SWIG_MustGetPtr($input,$1_descriptor,$argnum, 0);
             }
         %}
-        %typemap(argout) const pair<T,U>&, const pair<T,U>* %{ delete temp$argnum; %}
+        %typemap(freearg) const pair<T,U>&, const pair<T,U>* %{ delete temp$argnum; %}
         %typemap(out) pair<T,U> {
             U* y = new U($1.second);
             SCM second = SWIG_NewPointerObj(y,$descriptor(U *), 1);
@@ -262,7 +262,7 @@ namespace std {
                     SWIG_MustGetPtr($input,$1_descriptor,$argnum, 0);
             }
         %}
-        %typemap(argout) const pair<T,U>&, const pair<T,U>* %{ delete temp$argnum; %}
+        %typemap(freearg) const pair<T,U>&, const pair<T,U>* %{ delete temp$argnum; %}
         %typemap(out) pair<T,U> {
             T* x = new T($1.first);
             SCM first = SWIG_NewPointerObj(x,$descriptor(T *), 1);
@@ -360,7 +360,7 @@ namespace std {
                     SWIG_MustGetPtr($input,$1_descriptor,$argnum, 0);
             }
         %}
-        %typemap(argout) const pair<T,U>&, const pair<T,U>* %{ delete temp$argnum; %}
+        %typemap(freearg) const pair<T,U>&, const pair<T,U>* %{ delete temp$argnum; %}
         %typemap(out) pair<T,U> {
             $result = scm_cons(CONVERT_T_TO($1.first),
                               CONVERT_U_TO($1.second));