OBS-URL: https://build.opensuse.org/package/show/devel:languages:misc/guile?expand=0&rev=63

guile-gc-test.patch

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