Permalink
Browse files

small fix in a test code

  • Loading branch information...
1 parent dcfc2fe commit 73d3bc63eb5b9a9b77139e7527e02ce9e506aee7 @akapav committed Feb 15, 2012
Showing with 3 additions and 1 deletion.
  1. +3 −1 girepository.rkt
View
@@ -40,9 +40,11 @@
(gir:function-type fn)
(gir:function-throwable? fn)
(let ((rt (gir:callable-return-type clbl)))
- (list (gir:type-interface rt)
+ (list (let ((iface (gir:type-interface rt)))
+ (if iface (gir:get-type iface) '_))
(gir:type-tag rt)
(gir:type-is-pointer? rt)))
(gir:callable-arguments clbl))))))
(do-gir "Gtk")
+(collect-garbage)

0 comments on commit 73d3bc6

Please sign in to comment.