From 5290b4c4b3bc766b13a1833155bce61d3674836c Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 8 May 2013 07:25:03 -0500 Subject: [PATCH] share submodules of racket/base and scheme/base for user code --- collects/drracket/private/eval.rkt | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/collects/drracket/private/eval.rkt b/collects/drracket/private/eval.rkt index c8cebc7c06..8f70853c43 100644 --- a/collects/drracket/private/eval.rkt +++ b/collects/drracket/private/eval.rkt @@ -185,7 +185,12 @@ (define to-be-copied-module-specs (list ''#%foreign '(lib "mzlib/pconvert-prop.rkt") - '(lib "planet/terse-info.rkt"))) + '(lib "planet/terse-info.rkt") + ;; preserve the invariant that: + ;; if a module is shared, so + ;; are all of its submodules + '(submod racket/base reader) + '(submod scheme/base reader))) ;; ensure that they are all here. (for-each (λ (x) (dynamic-require x #f)) to-be-copied-module-specs)