adding compile-context-preservation-enabled so we get the same results of compilation in both racket and drracket tests
This commit is contained in:
parent
2f90e68db1
commit
fd7fff2c58
8
Makefile
Normal file
8
Makefile
Normal file
|
@ -0,0 +1,8 @@
|
||||||
|
test-compiler:
|
||||||
|
raco make -v --disable-inline test-compiler.rkt
|
||||||
|
racket test-compiler.rkt
|
||||||
|
|
||||||
|
|
||||||
|
test-earley:
|
||||||
|
raco make -v --disable-inline test-earley.rkt
|
||||||
|
racket test-earley.rkt
|
|
@ -19,7 +19,11 @@
|
||||||
(define (parse stx)
|
(define (parse stx)
|
||||||
(parameterize ([current-namespace (lookup-language-namespace
|
(parameterize ([current-namespace (lookup-language-namespace
|
||||||
`(file ,(path->string kernel-language-path))
|
`(file ,(path->string kernel-language-path))
|
||||||
#;'racket/base)])
|
#;'racket/base)]
|
||||||
|
;; We want to disable some optimizations for the moment.
|
||||||
|
;; See: http://docs.racket-lang.org/drracket/module.html
|
||||||
|
[compile-context-preservation-enabled #t])
|
||||||
|
|
||||||
(let ([bc (racket:compile stx)]
|
(let ([bc (racket:compile stx)]
|
||||||
[op (open-output-bytes)])
|
[op (open-output-bytes)])
|
||||||
(write bc op)
|
(write bc op)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user