trigger a manual minor garbage collection to try and smoke out stack corruption

1 files changed, 2 insertions, 1 deletions

diff --git a/tests/run.scm b/tests/run.scm
index 8618059..b35427d 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -22,7 +22,7 @@
  | SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  |#
 
-(import r7rs test (srfi 259))
+(import r7rs test (chicken gc) (srfi 259))
 
 (test-begin "SRFI 259")
 
@@ -48,6 +48,7 @@
       (let ((tagged-again (tag-foo 'quux tagged)))
         (test-assert "tagging again retains tag-foo?" (tag-foo? tagged-again))
         (test "tagging again sets new value" 'quux (get-tag-foo tagged-again))
+        (gc #f)
         (test "tagging again retains old value in previous procedure" 'bar (get-tag-foo tagged))
         (test-assert "the procedures not eqv?" (not (eqv? tagged tagged-again)))
         (test "tagging again returns a procedure" 150 (tagged 40))