SRFI docs: fix inclusion of static, standard documents

This commit is contained in:
Matthew Flatt 2013-08-22 14:26:28 -06:00
parent 52da62a956
commit 33c1a7349d

View File

@ -2,6 +2,8 @@
@(require scribble/manual @(require scribble/manual
scribble/eval scribble/eval
scriblib/render-cond scriblib/render-cond
scribble/core
scribble/html-properties
(for-syntax scheme/base) (for-syntax scheme/base)
(for-label scheme/base (for-label scheme/base
racket/stream)) racket/stream))
@ -22,7 +24,7 @@
[url (λ (b) (format "~a/srfi-std/~asrfi-~a.html" b sub num))]) [url (λ (b) (format "~a/srfi-std/~asrfi-~a.html" b sub num))])
(cond-element (cond-element
[(or latex text) @link[(url "http://docs.racket-lang.org") label]] [(or latex text) @link[(url "http://docs.racket-lang.org") label]]
[else @link[(url "..") label]]))))] [else @link[(url ".") label]]))))]
[(_ num . title) #'(srfi num #:subdir #f . title)])) [(_ num . title) #'(srfi num #:subdir #f . title)]))
@;{ The `lst' argument is a list of @;{ The `lst' argument is a list of
@ -52,11 +54,13 @@
(define mz-if (racket if)))) (define mz-if (racket if))))
(def-mz mz-if)) (def-mz mz-if))
@(define srfi-std (style #f (list (install-resource "srfi-std"))))
@; ---------------------------------------------------------------------- @; ----------------------------------------------------------------------
@title{SRFIs: Libraries} @title{SRFIs: Libraries}
The @link["http://srfi.schemers.org/"]{Scheme Requests for The @link[#:style srfi-std "http://srfi.schemers.org/"]{Scheme Requests for
Implementation} (a.k.a. @deftech{SRFI}) process allows individual Implementation} (a.k.a. @deftech{SRFI}) process allows individual
members of the Scheme community to propose libraries and extensions to members of the Scheme community to propose libraries and extensions to
be supported by multiple Scheme implementations. be supported by multiple Scheme implementations.