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.
|
;; This file provides the utilities that racket's `help' form uses.
|
||||||
;; It is required dynamically when used from racket, to avoid the
|
;; It is required dynamically when used from racket, to avoid the
|
||||||
|
@ -10,14 +10,14 @@
|
||||||
scribble/manual-struct
|
scribble/manual-struct
|
||||||
net/uri-codec
|
net/uri-codec
|
||||||
net/sendurl
|
net/sendurl
|
||||||
scheme/path
|
racket/string
|
||||||
scheme/list
|
racket/path
|
||||||
"search.ss")
|
"search.rkt")
|
||||||
|
|
||||||
(provide search-for find-help find-help/lib go-to-main-page)
|
(provide search-for find-help find-help/lib go-to-main-page)
|
||||||
|
|
||||||
(define (search-for strs)
|
(define (search-for strs)
|
||||||
(perform-search (apply string-append (add-between strs " "))))
|
(perform-search (string-join strs " ")))
|
||||||
|
|
||||||
(define-namespace-anchor anchor)
|
(define-namespace-anchor anchor)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user