From 1308da9b37761a8b747b965bab6bb6354965f5f1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 17 Jan 2017 16:01:50 -0800
Subject: [PATCH] Change environment argument to use ->environment.

---
 tests/unit-testing.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
2.25.1