share submodules of racket/base and scheme/base

for user code
2013-05-08 07:25:03 -05:00 · 2013-05-08 07:25:03 -05:00 · 5290b4c4b3
commit 5290b4c4b3
parent 36e40ed340
1 changed files with 6 additions and 1 deletions
--- 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)