From 37d2b104e4242ac8eabd5870de1828f268820550cd02b2de34bdb05dc15dd91f Mon Sep 17 00:00:00 2001 From: Petr Gajdos Date: Mon, 15 Apr 2013 06:59:21 +0000 Subject: [PATCH] OBS-URL: https://build.opensuse.org/package/show/devel:languages:misc/guile?expand=0&rev=63 --- guile-gc-test.patch | 36 ------------------------------------ 1 file changed, 36 deletions(-) delete mode 100644 guile-gc-test.patch diff --git a/guile-gc-test.patch b/guile-gc-test.patch deleted file mode 100644 index b063bc3..0000000 --- a/guile-gc-test.patch +++ /dev/null @@ -1,36 +0,0 @@ -Index: guile-2.0.7/test-suite/tests/gc.test -=================================================================== ---- guile-2.0.7.orig/test-suite/tests/gc.test -+++ guile-2.0.7/test-suite/tests/gc.test -@@ -88,17 +88,17 @@ - (if (guard) - (lp (1+ i)) - i)) -- total)))) -- -- (pass-if "Lexical vars are collectable" -- (let ((l (compile -- '(begin -- (define guardian (make-guardian)) -- (let ((f (list 'foo))) -- (guardian f)) -- ((@ (test-suite lib) clear-stale-stack-references)) -- (gc)(gc)(gc) -- (guardian)) -- ;; Prevent the optimizer from propagating f. -- #:opts '(#:partial-eval? #f)))) -- (equal? l '(foo))))) -+ total))))) -+;; turn off this test: http://lists.gnu.org/archive/html/bug-guile/2012-07/msg00069.html -+;; (pass-if "Lexical vars are collectable" -+;; (let ((l (compile -+;; '(begin -+;; (define guardian (make-guardian)) -+;; (let ((f (list 'foo))) -+;; (guardian f)) -+;; ((@ (test-suite lib) clear-stale-stack-references)) -+;; (gc)(gc)(gc) -+;; (guardian)) -+;; ;; Prevent the optimizer from propagating f. -+;; #:opts '(#:partial-eval? #f)))) -+;; (equal? l '(foo)))))