fix make-gui-namespace from scheme/gui/base and racket/gui/base

so that the namespace starts with scheme/base or racket/base
 respectively

original commit: 1712dfb7f5710bbfba14ca537ec4317bc6afaaaa

collects/mred/mred.rkt

@@ -1,5 +1,5 @@
 (module mred mzscheme
-  (require (only scheme/base
+  (require (only racket/base
                  define-namespace-anchor
                  namespace-anchor->empty-namespace
                  make-base-empty-namespace)
@@ -57,6 +57,9 @@
   (wx:set-dialogs get-file put-file get-ps-setup-from-user message-box)
 
   ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+  ;; These functions are re-implemented in scheme/gui/base
+  ;; and racket/gui/base to attach those names, instead of
+  ;; just 'mred.
 
   (define-namespace-anchor anchor)
 
@@ -75,6 +78,8 @@
         (namespace-require 'scheme/class))
       ns))
 
+  ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
   (define (make-eventspace)
     (parameterize ([wx:the-snip-class-list (wx:make-the-snip-class-list)]
                    [wx:the-editor-data-class-list (wx:make-the-editor-data-class-list)])

collects/racket/gui/base.rkt

@@ -1,4 +1,25 @@
-#lang scheme/base
+#lang racket/base
+(require (except-in mred
+                    make-gui-namespace
+                    make-gui-empty-namespace))
 
-(require mred)
+(provide (all-from-out mred)
-(provide (all-from-out mred))
+         make-gui-namespace
+         make-gui-empty-namespace)
+
+(define-namespace-anchor anchor)
+
+(define (make-gui-empty-namespace)
+  (let ([ns (make-base-empty-namespace)])
+    (namespace-attach-module (namespace-anchor->empty-namespace anchor)
+                             'racket/gui/base
+                             ns)
+    ns))
+
+(define (make-gui-namespace)
+  (let ([ns (make-gui-empty-namespace)])
+    (parameterize ([current-namespace ns])
+      (namespace-require 'racket/base)
+      (namespace-require 'racket/gui/base)
+      (namespace-require 'racket/class))
+    ns))

collects/scheme/gui/base.rkt

@@ -1,2 +1,25 @@
-#lang scheme/private/provider
+#lang scheme/base
-racket/gui/base
+(require (except-in mred
+                    make-gui-namespace
+                    make-gui-empty-namespace))
+
+(provide (all-from-out mred)
+         make-gui-namespace
+         make-gui-empty-namespace)
+
+(define-namespace-anchor anchor)
+
+(define (make-gui-empty-namespace)
+  (let ([ns (make-base-empty-namespace)])
+    (namespace-attach-module (namespace-anchor->empty-namespace anchor)
+                             'scheme/gui/base
+                             ns)
+    ns))
+
+(define (make-gui-namespace)
+  (let ([ns (make-gui-empty-namespace)])
+    (parameterize ([current-namespace ns])
+      (namespace-require 'scheme/base)
+      (namespace-require 'scheme/gui/base)
+      (namespace-require 'scheme/class))
+    ns))

collects/scribblings/gui/common.rkt

@@ -1,24 +1,24 @@
 
-(module common scheme/base
+(module common racket/base
   (require scribble/manual
            scribble/basic
-           scheme/class
+           racket/class
-           scheme/contract
+           racket/contract
            "blurbs.ss"
            (only-in "../reference/mz.ss" AllUnix exnraise))
   (provide (all-from-out scribble/manual)
            (all-from-out scribble/basic)
-           (all-from-out scheme/class)
+           (all-from-out racket/class)
-           (all-from-out scheme/contract)
+           (all-from-out racket/contract)
            (all-from-out "blurbs.ss")
            (all-from-out "../reference/mz.ss"))
 
-  (require (for-label scheme/gui/base
+  (require (for-label racket/gui/base
-                      scheme/class
+                      racket/class
-                      scheme/contract
+                      racket/contract
-                      scheme/base))
+                      racket/base))
-  (provide (for-label (all-from-out scheme/gui/base)
+  (provide (for-label (all-from-out racket/gui/base)
-                      (all-from-out scheme/class)
+                      (all-from-out racket/class)
-                      (all-from-out scheme/contract)
+                      (all-from-out racket/contract)
-                      (all-from-out scheme/base))))
+                      (all-from-out racket/base))))
 

collects/scribblings/gui/miscwin-funcs.scrbl

@@ -267,12 +267,12 @@ Strips shortcut ampersands from @racket[label], removes parenthesized
 @defproc[(make-gui-empty-namespace) namespace?]{
 
 Like @racket[make-base-empty-namespace], but with
-@racket[racket/class] and @racketmodname[racket/gui/base] also
+@racketmodname[racket/class] and @racketmodname[racket/gui/base] also
 attached to the result namespace.}
 
 @defproc[(make-gui-namespace) namespace?]{
 
-Like @racket[make-base-namespace], but with @racket[racket/class] and
+Like @racket[make-base-namespace], but with @racketmodname[racket/class] and
 @racketmodname[racket/gui/base] also required into the top-level
 environment of the result namespace.}