bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit dcc9ec44f58bc6053d166f8e39a860333f7691fe
parent 06b9c3e4b57f2181e0d74829a4192991e9d5390a
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Wed, 12 Dec 2007 22:17:09 +0000

add 'compose' to scheme/base; switch Help Desk to a mzscheme app

svn: r7979

original commit: bd7ced966ed54fedd5608a68ef8ec212a913e30d

Diffstat:
M
collects/help/help.ss
 | 
2
+-
M
collects/help/search.ss
 | 
4
+---

2 files changed, 2 insertions(+), 4 deletions(-)
diff --git 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
@@ -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)