suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix bad srfi-41 reference

Browse Source 
svn: r9901
This commit is contained in:
Eli Barzilay 2008-05-20 01:15:57 +00:00
parent 4059224a25
commit d0626521e1
1 changed files with 25 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
collects/srfi/srfi.scrbl
View File

@ -5,24 +5,28 @@
@(define-syntax (srfi stx)
(syntax-case stx ()
[(_ num #:subdir dir . title)
(with-syntax ([srfi/n (string->symbol
(format "srfi/~a" (syntax-e #'num)))])
[(_ num #:subdir subdir? . title)
(with-syntax ([srfi/n (string->symbol (format "srfi/~a" (syntax-e #'num)))])
#'(begin
(section #:tag (format "srfi-~a" num)
#:style 'unnumbered
(format "SRFI ~a: " num)
. title)
(defmodule srfi/n)
"Original specification: " @link[(format "../srfi-std/~asrfi-~a.html" dir num)
"Original specification: "
@link[(if subdir?
(format "../srfi-std/srfi-~a/srfi-~a.html" num num)
(format "../srfi-std/srfi-~a.html" num))
"SRFI "
(number->string num)]))]
[(_ num . title) #'(srfi num #:subdir "" . title)]))
[(_ num . title) #'(srfi num #:subdir #f . title)]))
@;{ The `lst' argument is a list of
(list sym syntactic-form? html-anchor) }
@(define (redirect n lst)
(let ([file (format "srfi-~a.html" n)]
@(define (redirect n lst #:subdir [subdir? #f])
(let ([file (if subdir?
(format "srfi-~a/srfi-~a.html" n n)
(format "srfi-~a.html" n))]
[mod-path (string->symbol (format "srfi/~a" n))])
(make-binding-redirect-elements mod-path
(map (lambda (b)
@ -34,8 +38,8 @@
@(define in-core
(case-lambda
[() (in-core ".")]
[(k)
@elem{This SRFI's bindings are also available in @schememodname[scheme/base]@|k|}]))
[(k) @elem{This SRFI's bindings are also available in
@schememodname[scheme/base]@|k|}]))
@(begin
(define-syntax-rule (def-mz mz-if)
@ -241,7 +245,7 @@ are also available from @schememodname[scheme/foreign].
(get-output-string #f "get-output-string")
)]
@in-core[]
@in-core{}
@; ----------------------------------------
@ -458,7 +462,7 @@ are also available from @schememodname[scheme/foreign].
(case-lambda #t "case-lambda")
)]
@in-core[]
@in-core{}
@; ----------------------------------------
@ -568,7 +572,7 @@ from the SRFI library expect the former.
(error #f "error")
)]
@in-core[]
@in-core{}
@; ----------------------------------------
@ -623,7 +627,7 @@ from the SRFI library expect the former.
(format #f "format")
)]
@in-core[]
@in-core{}
@; ----------------------------------------
@ -687,7 +691,7 @@ This SRFI's syntax is part of PLT Scheme's default reader and printer.
(parameterize #t "parameterize")
)]
@in-core[]
@in-core{}
@; ----------------------------------------
@ -712,9 +716,9 @@ Superceded by @schememodname[srfi/41].
@; ----------------------------------------
@srfi[41 #:subdir "srfi-41/"]{Streams}
@srfi[41 #:subdir #t]{Streams}
@redirect[41 '(
@redirect[41 #:subdir #t '(
(stream-null #f "stream-null")
(stream-cons #t "stream-cons")
(stream? #f "stream?")
@ -924,7 +928,7 @@ This SRFI's syntax is part of PLT Scheme's default reader.
@; ----------------------------------------
@srfi[67 #:subdir "srfi-67/"]{Compare Procedures}
@srfi[67 #:subdir #t]{Compare Procedures}
@; ----------------------------------------