From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 11 Dec 2018 23:50:07 +0000 (+0000)
Subject: Fix environment this test runs in.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~35^2~32
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e27cfbceb9b5a1c78c3bf0c74de58b217ae83c76;p=mit-scheme.git

Fix environment this test runs in.
---

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