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

moved algol60 and honu docs to experimental category

Browse Source 
remove empty doc categories
This commit is contained in:
Ryan Culpepper 2011-07-01 20:13:52 -06:00
parent 80bea07d5c
commit 4d38f491ca
3 changed files with 34 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/algol60/info.rkt
View File

@ -2,4 +2,4 @@
(define tools '(("tool.ss"))) (define tools '(("tool.ss")))
(define tool-names '("Algol 60")) (define tool-names '("Algol 60"))
(define scribblings '(("algol60.scrbl" () (other)))) (define scribblings '(("algol60.scrbl" () (experimental 40))))

2
collects/scribblings/honu/info.rkt
View File

@ -1,3 +1,3 @@
#lang setup/infotab #lang setup/infotab
(define scribblings '(("honu.scrbl" (multi-page) (other)))) (define scribblings '(("honu.scrbl" (multi-page) (experimental 40))))

4
collects/scribblings/main/private/manuals.rkt
View File

@ -113,6 +113,7 @@
(lambda (sec) (lambda (sec)
(let ([docs (filter (lambda (doc) (eq? (car doc) (sec-cat sec))) (let ([docs (filter (lambda (doc) (eq? (car doc) (sec-cat sec)))
docs)]) docs)])
(cond [(pair? docs)
(list* (list*
(plain-line (hspace 1)) (plain-line (hspace 1))
(plain-line (let loop ([s (sec-label sec)]) (plain-line (let loop ([s (sec-label sec)])
@ -142,6 +143,7 @@
(caadr x))))) (caadr x)))))
renderer part resolve-info))]) renderer part resolve-info))])
(string-ci<? (str ad) (str bd))) (string-ci<? (str ad) (str bd)))
(> (car ad) (car bd))))))))) (> (car ad) (car bd)))))))]
[else null])))
sections)))) sections))))
(make-delayed-block contents))) (make-delayed-block contents)))