From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 24 May 2010 08:42:26 +0000 (-0700)
Subject: When re-loading unit-testing, unlink the previous copy so it will be
X-Git-Tag: 20100708-Gtk~53
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=26eac279d5d4ffbc24efc92fe75e15c7ec1c5877;p=mit-scheme.git

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 0d3f9df4b..c615f9cec 100644
--- 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