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

setup/configtab: prevent cross-module inlining of configuration

Browse Source 
The intent is that the configuration module can be rewritten without
recompiling code that uses it, so don't let the compiler inline
configuration values.
This commit is contained in:
Matthew Flatt 2013-01-05 07:31:38 -07:00
parent 6702fd38d2
commit a496404411
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/setup/configtab.rkt
View File

@ -89,7 +89,7 @@
(define ((mkdef v) id)
(if (memq id syms)
'()
(list #`(define #,(datum->syntax stx id stx) #,v))))
(list #`(define #,(datum->syntax stx id stx) (thwart-inline #,v)))))
(syntax-property
#`(#%plain-module-begin
(provide #,@path-exports #,@string-exports #,@flag-exports)
@ -98,3 +98,10 @@
#,@(apply append (map (mkdef #'use-default) string-exports))
#,@(apply append (map (mkdef #'#f) flag-exports)))
'certify-mode 'transparent))))])))
;; Hack: we want to be able to replace "config.rkt" and recompile it
;; in-place, without recompiling bytecode that may depend on it.
;; To enable that, ensure that the exports of a configuration are
;; not inlined.
(define thwart-inline #f)
(set! thwart-inline (lambda (v) v))