Re: guile 1.8.3 fails to build on sparc

[Ludovic Courtès]

Hi,

address@hidden (Ludovic Courtès) writes:

> Rob: Would it be possible for you to try out this patch on one of the
> Debian SPARC machines?

And here's the patch.  ;-)

Ludo'.

Index: test-suite/tests/gc.test
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/test-suite/tests/gc.test,v
retrieving revision 1.8
diff -u -r1.8 gc.test
--- test-suite/tests/gc.test    16 Apr 2006 23:27:14 -0000      1.8
+++ test-suite/tests/gc.test    7 Feb 2008 21:42:47 -0000
@@ -65,6 +65,10 @@
                                  "eval-closure" (gc-live-object-stats)))))
               
             (for-each (lambda (x) (make-module)) (iota 1000))
+             (let cleanup ((i 10))
+               (and (> i 0)
+                    (begin (cleanup (1- i)) i)))
+
             (gc)
             (gc) ;; twice: have to kill the weak vectors.
             (= last-count (cdr (assoc "eval-closure" (gc-live-object-stats)))))