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)))))