pool/guile
SHA256
2
0
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Petr Gajdos 2013-04-15 06:59:21 +00:00 committed by Git OBS Bridge
parent f692d9aa6f
commit 37d2b104e4
1 changed files with 0 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
guile-gc-test.patch
View File

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