fix 'gui-available?' (PR 9415)

svn: r9976

collects/mred/mred.ss

@@ -27,7 +27,8 @@
 	   "private/gdi.ss"
 	   "private/snipfile.ss"
 	   "private/repl.ss"
-	   "private/afm.ss")
+	   "private/afm.ss"
+           "private/dynamic.ss")
 
   ;; Initialize AFM/PS:
   (wx:set-ps-procs

collects/mred/private/dynamic.ss

@@ -0,0 +1,7 @@
+#lang scheme/base
+
+;; This module is for use by scheme/gui/dynamic.
+;; It is required by mred/mred so that it gets carried
+;; along when mred/mred is attached to a new namespace.
+
+(dynamic-require ''#%mred-kernel #f)

collects/scheme/gui/dynamic.ss

@@ -5,7 +5,7 @@
 
 (define (gui-available?)
   (with-handlers ([exn:fail? (lambda (exn) #f)])
-    (dynamic-require ''#%mred-kernel #f)
+    (dynamic-require 'mred/private/dynamic #f)
     #t))
 
 (define-namespace-anchor anchor)