Ticket #1256: glib.source

File glib.source, 0.7 kB (added by guest, 3 years ago)
Line 
1Index: new-ghc/haskell-glib/src/glib-0.12.2/System/Glib/hsgclosure.c
2===================================================================
3--- new-ghc.orig/haskell-glib/src/glib-0.12.2/System/Glib/hsgclosure.c
4+++ new-ghc/haskell-glib/src/glib-0.12.2/System/Glib/hsgclosure.c
5@@ -107,7 +107,7 @@ gtk2hs_closure_marshal(GClosure *closure
6     WHEN_DEBUG(g_debug("gtk2hs_closure_marshal(%p): about to rts_evalIO", hc->callback));
7     
8     /* perform the call */
9-    cap=rts_evalIO(CAP rts_apply(CAP (HaskellObj)runIO_closure, call),&ret);
10+    rts_evalIO(CAP rts_apply(CAP (HaskellObj)runIO_closure, call),&ret);
11     
12     WHEN_DEBUG(g_debug("gtk2hs_closure_marshal(%p): about to rts_checkSchedStatus", hc->callback));
13