suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix test

Browse Source 
This test was meant to be part of 744d440ab9.
This commit is contained in:
Matthew Flatt 2018-11-22 07:23:02 -07:00
parent d84d35870a
commit fd52cb5dda
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
pkgs/racket-test-core/tests/racket/syntax.rktl
View File

@ -2203,7 +2203,14 @@
#hasheq((a . b)))))]) #hasheq((a . b)))))])
(define c (compile m)) (define c (compile m))
(eval c) (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))))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;