Racketify

This commit is contained in:
Eli Barzilay 2011-06-02 10:50:55 -04:00
parent d74aa0c998
commit 093c8ded76

View File

@ -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)