summaryrefslogtreecommitdiffstats
path: root/meta/recipes-devtools/guile/files/debian
diff options
context:
space:
mode:
Diffstat (limited to 'meta/recipes-devtools/guile/files/debian')
-rw-r--r--meta/recipes-devtools/guile/files/debian/0002-Mark-Unused-modules-are-removed-gc-test-as-unresolve.patch29
1 files changed, 15 insertions, 14 deletions
diff --git a/meta/recipes-devtools/guile/files/debian/0002-Mark-Unused-modules-are-removed-gc-test-as-unresolve.patch b/meta/recipes-devtools/guile/files/debian/0002-Mark-Unused-modules-are-removed-gc-test-as-unresolve.patch
index 06c849432b..43238a7d2e 100644
--- a/meta/recipes-devtools/guile/files/debian/0002-Mark-Unused-modules-are-removed-gc-test-as-unresolve.patch
+++ b/meta/recipes-devtools/guile/files/debian/0002-Mark-Unused-modules-are-removed-gc-test-as-unresolve.patch
@@ -15,24 +15,25 @@ garbage collector.
15 1 files changed, 6 insertions(+), 5 deletions(-) 15 1 files changed, 6 insertions(+), 5 deletions(-)
16 16
17diff --git a/test-suite/tests/gc.test b/test-suite/tests/gc.test 17diff --git a/test-suite/tests/gc.test b/test-suite/tests/gc.test
18index 97eeb19..58e4936 100644 18index a969752..8c8e13e 100644
19--- a/test-suite/tests/gc.test 19--- a/test-suite/tests/gc.test
20+++ b/test-suite/tests/gc.test 20+++ b/test-suite/tests/gc.test
21@@ -80,11 +80,12 @@ 21@@ -84,11 +84,13 @@
22 (gc) ;; thrice: because the test doesn't succeed with only
23 ;; one gc round. not sure why. 22 ;; one gc round. not sure why.
24 23
25- (= (let lp ((i 0)) 24 (maybe-gc-flakiness
26- (if (guard) 25- (= (let lp ((i 0))
27- (lp (1+ i)) 26- (if (guard)
28- i)) 27- (lp (1+ i))
29- total))) 28- i))
30+ (or (= (let lp ((i 0)) 29- total))))
31+ (if (guard) 30+ (or (= (let lp ((i 0))
32+ (lp (1+ i)) 31+ (if (guard)
33+ i)) 32+ (lp (1+ i))
34+ total) 33+ i))
35+ (throw 'unresolved)))) 34+ total)
35+ (throw 'unresolved)))))
36+
36 37
37 (pass-if "Lexical vars are collectable" 38 (pass-if "Lexical vars are collectable"
38 (let ((l (compile 39 (let ((l (compile