File guile-threads-test.patch of Package guile

Index: guile-2.0.5/test-suite/tests/threads.test
===================================================================
--- guile-2.0.5.orig/test-suite/tests/threads.test
+++ guile-2.0.5/test-suite/tests/threads.test
@@ -414,8 +414,10 @@
 
             (gc) (gc)
             (let ((m (g)))
-              (and (mutex? m)
-                   (eq? (mutex-owner m) (current-thread)))))))
+              (or
+               (and (mutex? m)
+                    (eq? (mutex-owner m) (current-thread)))
+               (throw 'unresolved))))))
 
       ;;
       ;; mutex lock levels
openSUSE Build Service is sponsored by