suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

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

Browse Source 
svn: r7979

original commit: bd7ced966ed54fedd5608a68ef8ec212a913e30d
This commit is contained in:
Matthew Flatt 2007-12-12 22:17:09 +00:00
parent 06b9c3e4b5
commit dcc9ec44f5
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/help/help.ss
View File

@ -1,7 +1,7 @@
#lang scheme/base #lang scheme/base
(require "search.ss" (require "search.ss"
browser/external net/sendurl ; browser/external
setup/dirs setup/dirs
mzlib/cmdline) mzlib/cmdline)

4
collects/help/search.ss
View File

@ -7,7 +7,7 @@
scribble/basic scribble/basic
scribble/manual scribble/manual
(prefix-in scheme: scribble/scheme) (prefix-in scheme: scribble/scheme)
browser/external net/sendurl ; browser/external
mzlib/contract) mzlib/contract)
(provide/contract (provide/contract
@ -84,8 +84,6 @@
(send-url (format "file://~a" (path->string file))) (send-url (format "file://~a" (path->string file)))
(void)))) (void))))
(define ((compose f g) x) (f (g x)))
;; has-match : (listof regexp) -> entry -> boolean ;; has-match : (listof regexp) -> entry -> boolean
(define ((has-match search-regexps) entry) (define ((has-match search-regexps) entry)
(ormap (λ (str) (ormap (λ (str)