diff --git a/get-module-bytecode.rkt b/get-module-bytecode.rkt index 56ec058..4326366 100644 --- a/get-module-bytecode.rkt +++ b/get-module-bytecode.rkt @@ -77,6 +77,7 @@ (define (get-compiled-code-from-port ip) ;(printf "get-compiled-code-from-port\n") (parameterize ([read-accept-reader #t] + [read-accept-lang #t] ;; Note: we're trying to preserve the context, to avoid code expansion. [compile-context-preservation-enabled #t] [current-namespace base-namespace]) diff --git a/js-assembler/check-valid-module-source.rkt b/js-assembler/check-valid-module-source.rkt index ac91eba..3e621f2 100644 --- a/js-assembler/check-valid-module-source.rkt +++ b/js-assembler/check-valid-module-source.rkt @@ -71,7 +71,8 @@ (fprintf (current-report-port) "\nFor reference, the error message produced when trying to read ~e is:\n\n" module-source-path) (fprintf (current-report-port) "~a\n" (exn-message exn)) (abort-abort))]) - (parameterize ([read-accept-reader #t]) + (parameterize ([read-accept-reader #t] + [read-accept-lang #t]) (call-with-input-file* module-source-path (lambda (ip) (port-count-lines! ip)