From 5de45d281a5fd42b8fc2cecb772245ce10de952e Mon Sep 17 00:00:00 2001 From: rivo Date: Tue, 13 Jan 2015 18:11:24 +0300 Subject: [PATCH] fixed replay message leak --- dbus/dbus.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/dbus/dbus.scm b/dbus/dbus.scm index c83db8d..bdba5f7 100644 --- a/dbus/dbus.scm +++ b/dbus/dbus.scm @@ -696,6 +696,7 @@ C_return(reply);") conn msg) ] [reply-iter (make-iter reply-msg)] [reply-args (iter->list reply-iter)] ) + ((foreign-lambda void "dbus_message_unref" message-iter-ptr) reply-msg) reply-args))))) (set! make-method-proxy (lambda (context name) @@ -722,7 +723,8 @@ msg = dbus_pending_call_steal_reply(pending); C_return(msg);") conn msg) ] [reply-iter (make-iter reply-msg)] - [reply-args (iter->list reply-iter)] ) + [reply-args (iter->list reply-iter)] ) + ((foreign-lambda void "dbus_message_unref" message-iter-ptr) reply-msg) reply-args)))))) (define-foreign-record-type (vtable "struct DBusObjectPathVTable") -- 1.9.1