Fix environment this test runs in.

diff --git a/tests/compiler/test-toplev.scm b/tests/compiler/test-toplev.scm
index 61a7e59224e5716f104de728122a1019497e4ba2..946de7e4de36a1d733cfe2d8f303070da9318692 100644 (file)
--- 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.)))