From 1b647b5baff24a6fa104d3155003c092be57383b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 27 May 2008 12:43:35 +0000 Subject: [PATCH] fix 'gui-available?' (PR 9415) svn: r9976 original commit: c7201b898296a7765691f9e8a55816f4acb2cfb9 --- collects/mred/mred.ss | 3 ++- collects/mred/private/dynamic.ss | 7 +++++++ 2 files changed, 9 insertions(+), 1 deletion(-) create mode 100644 collects/mred/private/dynamic.ss diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index df3529b4..4d5d74e5 100644 --- a/collects/mred/mred.ss +++ b/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 diff --git a/collects/mred/private/dynamic.ss b/collects/mred/private/dynamic.ss new file mode 100644 index 00000000..9e34b14d --- /dev/null +++ b/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)