When re-loading unit-testing, unlink the previous copy so it will be

garbage collected.

diff --git a/tests/load.scm b/tests/load.scm
index 0d3f9df4b41cd2b13e9d66503fcf3fbb6f80b135..c615f9cec393a4b6c74ffc22c83725bcff7c1fb1 100644 (file)
--- a/tests/load.scm
+++ b/tests/load.scm
@@ -2,7 +2,7 @@
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
-    2006, 2007, 2008, 2009 Massachusetts Institute of Technology
+    2006, 2007, 2008, 2009, 2010 Massachusetts Institute of Technology
 
 This file is part of MIT/GNU Scheme.
 
@@ -27,4 +27,6 @@ USA.
   (environment-link-name environment '(runtime mit-macros) 'PARSE-DEFINE-FORM)
   (load (merge-pathnames "unit-testing" (current-load-pathname))
        environment)
+  (if (environment-bound? system-global-environment 'RUN-UNIT-TESTS)
+      (unbind-variable system-global-environment 'RUN-UNIT-TESTS))
   (environment-link-name system-global-environment environment 'RUN-UNIT-TESTS))
\ No newline at end of file