From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 18 Jan 2017 00:01:50 +0000 (-0800)
Subject: Change environment argument to use ->environment.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~116
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1308da9b37761a8b747b965bab6bb6354965f5f1;p=mit-scheme.git

Change environment argument to use ->environment.
---

diff --git a/tests/unit-testing.scm b/tests/unit-testing.scm
index 3353ef39f..0f4287dca 100644
--- a/tests/unit-testing.scm
+++ b/tests/unit-testing.scm
@@ -69,7 +69,7 @@ USA.
   (let ((test-environment
 	 (if (default-object? parent)
 	     (make-top-level-environment)
-	     (extend-top-level-environment parent))))
+	     (extend-top-level-environment (->environment parent)))))
     (for-each (lambda (p)
 		(environment-define test-environment (car p) (cdr p)))
 	      test-definitions)