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.
;; 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)