From e27cfbceb9b5a1c78c3bf0c74de58b217ae83c76 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 11 Dec 2018 23:50:07 +0000
Subject: [PATCH] Fix environment this test runs in.

---
 tests/compiler/test-toplev.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/compiler/test-toplev.scm b/tests/compiler/test-toplev.scm
index 61a7e5922..946de7e4d 100644
--- a/tests/compiler/test-toplev.scm
+++ b/tests/compiler/test-toplev.scm
@@ -47,7 +47,8 @@ USA.
   (lambda ()
     ;; XXX whattakludge
     (define finish-cross-compilation:scode
-      (let ((env (make-top-level-environment)))
+      (let ((env
+             (extend-top-level-environment (->environment '(runtime)))))
 	(load "../src/compiler/base/crsend" env)
 	(eval 'finish-cross-compilation:scode env)))
     (let* ((code '(lambda (x) (flo:+ (flo:* 2. x) 1.)))
-- 
2.25.1