From 25933f3233510bf66475b58e6c85a8fca163a75f Mon Sep 17 00:00:00 2001
From: rivo <address@hidden>
Date: Thu, 15 Jan 2015 15:00:50 +0300
Subject: [PATCH] fixed pair memory leak

---
 dbus/dbus.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/dbus/dbus.scm b/dbus/dbus.scm
index 2384f0b..58fd425 100644
--- a/dbus/dbus.scm
+++ b/dbus/dbus.scm
@@ -543,7 +543,10 @@
 							(set! v (make-vector 0)))
 						v)]
 				[(eq? type type-dict-entry)
-					(iter->pair (make-sub-iter iter))]
+                                 (let* ((sub (make-sub-iter iter))
+                                        (data (iter->pair sub)))
+                                   (sub);terminate sub iterrator
+                                   data)]
 				[(eq? type type-struct)
 					(let ([v (iter->vector (make-sub-iter iter))])
 						(if (auto-unbox-structs) v (vector->struct v)))]
-- 
1.9.1