18 lines
576 B
Diff
18 lines
576 B
Diff
|
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
|