From dcc9ec44f58bc6053d166f8e39a860333f7691fe Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 12 Dec 2007 22:17:09 +0000 Subject: [PATCH] add 'compose' to scheme/base; switch Help Desk to a mzscheme app svn: r7979 original commit: bd7ced966ed54fedd5608a68ef8ec212a913e30d --- collects/help/help.ss | 2 +- collects/help/search.ss | 4 +--- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/collects/help/help.ss b/collects/help/help.ss index 7a252e72..4008939b 100644 --- a/collects/help/help.ss +++ b/collects/help/help.ss @@ -1,7 +1,7 @@ #lang scheme/base (require "search.ss" - browser/external + net/sendurl ; browser/external setup/dirs mzlib/cmdline) diff --git a/collects/help/search.ss b/collects/help/search.ss index bc39a070..8dc5c002 100644 --- a/collects/help/search.ss +++ b/collects/help/search.ss @@ -7,7 +7,7 @@ scribble/basic scribble/manual (prefix-in scheme: scribble/scheme) - browser/external + net/sendurl ; browser/external mzlib/contract) (provide/contract @@ -84,8 +84,6 @@ (send-url (format "file://~a" (path->string file))) (void)))) -(define ((compose f g) x) (f (g x))) - ;; has-match : (listof regexp) -> entry -> boolean (define ((has-match search-regexps) entry) (ormap (λ (str)