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

Explicitly marking read-accept-lang #t

Browse Source
This commit is contained in:
Danny Yoo 2012-05-04 16:04:17 -04:00
parent 325506452d
commit 9ff59deb1c
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
get-module-bytecode.rkt
View File

@ -77,6 +77,7 @@
(define (get-compiled-code-from-port ip) (define (get-compiled-code-from-port ip)
;(printf "get-compiled-code-from-port\n") ;(printf "get-compiled-code-from-port\n")
(parameterize ([read-accept-reader #t] (parameterize ([read-accept-reader #t]
[read-accept-lang #t]
;; Note: we're trying to preserve the context, to avoid code expansion. ;; Note: we're trying to preserve the context, to avoid code expansion.
[compile-context-preservation-enabled #t] [compile-context-preservation-enabled #t]
[current-namespace base-namespace]) [current-namespace base-namespace])

3
js-assembler/check-valid-module-source.rkt
View File

@ -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) "\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)) (fprintf (current-report-port) "~a\n" (exn-message exn))
(abort-abort))]) (abort-abort))])
(parameterize ([read-accept-reader #t]) (parameterize ([read-accept-reader #t]
[read-accept-lang #t])
(call-with-input-file* module-source-path (call-with-input-file* module-source-path
(lambda (ip) (lambda (ip)
(port-count-lines! ip) (port-count-lines! ip)