From fd52cb5ddacbfe8740b1007f46037b0ec698e7fb Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 22 Nov 2018 07:23:02 -0700 Subject: [PATCH] fix test This test was meant to be part of 744d440ab9. --- pkgs/racket-test-core/tests/racket/syntax.rktl | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/pkgs/racket-test-core/tests/racket/syntax.rktl b/pkgs/racket-test-core/tests/racket/syntax.rktl index 2c19b8a6a6..1e1ab2abff 100644 --- a/pkgs/racket-test-core/tests/racket/syntax.rktl +++ b/pkgs/racket-test-core/tests/racket/syntax.rktl @@ -2203,7 +2203,14 @@ #hasheq((a . b)))))]) (define c (compile m)) (eval c) - (test #t andmap immutable? (dynamic-require ''defines-immutable-objects 'objs))) + (test #t andmap immutable? (dynamic-require ''defines-immutable-objects 'objs)) + (define-values (i o) (make-pipe)) + (write c o) + (close-output-port o) + (parameterize ([current-namespace (make-base-namespace)]) + (eval (parameterize ([read-accept-compiled #t]) + (read i))) + (test #t andmap immutable? (dynamic-require ''defines-immutable-objects 'objs)))) ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;