Racketify
This commit is contained in:
parent
d74aa0c998
commit
093c8ded76
|
@ -1,4 +1,4 @@
|
|||
#lang scheme/base
|
||||
#lang racket/base
|
||||
|
||||
;; This file provides the utilities that racket's `help' form uses.
|
||||
;; It is required dynamically when used from racket, to avoid the
|
||||
|
@ -10,14 +10,14 @@
|
|||
scribble/manual-struct
|
||||
net/uri-codec
|
||||
net/sendurl
|
||||
scheme/path
|
||||
scheme/list
|
||||
"search.ss")
|
||||
racket/string
|
||||
racket/path
|
||||
"search.rkt")
|
||||
|
||||
(provide search-for find-help find-help/lib go-to-main-page)
|
||||
|
||||
(define (search-for strs)
|
||||
(perform-search (apply string-append (add-between strs " "))))
|
||||
(perform-search (string-join strs " ")))
|
||||
|
||||
(define-namespace-anchor anchor)
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user