Better eval+promise+gc test

* test-suite/tests/eval.test ("promises"): Increase clear pass rate on
  this test.

diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test
index 26917d762b278feea4458abfaecd4af735a69791..8a52e11f2f65e97e21fb3b22c68b58e3b2e612de 100644 (file)
--- a/test-suite/tests/eval.test
+++ b/test-suite/tests/eval.test
@@ -306,8 +306,13 @@
          (g x)
          (set! p (delay (car x))))
        (force p)
+        (gc)
+        ;; Though this test works reliably when running just eval.test,
+        ;; it often does the unresolved case when running the full
+        ;; suite.  Adding this extra gc makes the full-suite behavior
+        ;; pass more reliably.
        (gc)
-       (if (not (equal? (g) (cons #f #f)))
+        (if (not (equal? (g) (cons #f #f)))
            (throw 'unresolved)
            #t))))