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

create-embedding-executable: fix namespace and module-declaration problem

Browse Source 
original commit: 8253994434
This commit is contained in:
Matthew Flatt 2014-03-09 08:43:40 -06:00
commit 4f0c0ad3df
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/embed-me24.rkt Normal file
View File

@ -0,0 +1,3 @@
#lang racket
"Ok"

13
pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/test.rkt
View File

@ -620,3 +620,16 @@
(try-reader) (try-reader)
(try-planet) (try-planet)
(try-*sl) (try-*sl)
;; ----------------------------------------
;; Make sure that embedding does not break future module declarations
(let ()
(parameterize ([current-output-port (open-output-bytes)])
(write-module-bundle
#:modules (list (list #f (collection-file-path "embed-me24.rkt" "tests" "compiler" "embed")))))
(parameterize ([read-accept-reader #t]
[current-namespace (make-base-namespace)])
(eval (read (open-input-string "#lang racket 10")))))