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

Fixing contracts and a little less allocation

Browse Source 
original commit: ba31d8c4299841efb9272340dad4a9c6cd26b035
This commit is contained in:
Jay McCarthy 2010-06-23 19:29:58 -06:00
parent 39a6097dc5
commit a2c22fe05b
2 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/scribble/sigplan.rkt
View File

@ -27,13 +27,13 @@
[category [category
(->* (pre-content? pre-content? pre-content?) (->* (pre-content? pre-content? pre-content?)
((or/c false/c pre-content?)) ((or/c false/c pre-content?))
block?)] content?)]
[terms [terms
(->* () () #:rest (listof pre-content?) (->* () () #:rest (listof pre-content?)
block?)] content?)]
[keywords [keywords
(->* () () #:rest (listof pre-content?) (->* () () #:rest (listof pre-content?)
block?)]) content?)])
(provide preprint 10pt (provide preprint 10pt
include-abstract) include-abstract)
@ -122,11 +122,10 @@
(define (category sec title sub [more #f]) (define (category sec title sub [more #f])
(make-multiarg-element (make-multiarg-element
(make-style (format "SCategory~a" (if more "Plus" "")) sigplan-extras) (make-style (format "SCategory~a" (if more "Plus" "")) sigplan-extras)
(append (list*
(list (make-element #f (decode-content (list sec)))
(make-element #f (decode-content (list sec))) (make-element #f (decode-content (list title)))
(make-element #f (decode-content (list title))) (make-element #f (decode-content (list sub)))
(make-element #f (decode-content (list sub))))
(if more (if more
(list (make-element #f (decode-content (list more)))) (list (make-element #f (decode-content (list more))))
null)))) null))))

6
collects/scribblings/scribble/sigplan.scrbl
View File

@ -65,9 +65,9 @@ Declares information that is collected into the copyright region of the paper.}
@defproc[(category [CR-number pre-content?] @defproc[(category [CR-number pre-content?]
[subcategory pre-content?] [subcategory pre-content?]
[third-level pre-content?] [third-level pre-content?]
[fourth-level (or/c #f pre-content?) #f]) block?] [fourth-level (or/c #f pre-content?) #f]) content?]
@defproc[(terms [content pre-content?] ...) block?] @defproc[(terms [content pre-content?] ...) content?]
@defproc[(keywords [content pre-content?] ...) block?] @defproc[(keywords [content pre-content?] ...) content?]
)]{ )]{
Typesets category, term, and keyword information for the paper, which Typesets category, term, and keyword information for the paper, which