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
(->* (pre-content? pre-content? pre-content?)
((or/c false/c pre-content?))
block?)]
content?)]
[terms
(->* () () #:rest (listof pre-content?)
block?)]
content?)]
[keywords
(->* () () #:rest (listof pre-content?)
block?)])
content?)])
(provide preprint 10pt
include-abstract)
@ -122,11 +122,10 @@
(define (category sec title sub [more #f])
(make-multiarg-element
(make-style (format "SCategory~a" (if more "Plus" "")) sigplan-extras)
(append
(list
(make-element #f (decode-content (list sec)))
(make-element #f (decode-content (list title)))
(make-element #f (decode-content (list sub))))
(list*
(make-element #f (decode-content (list sec)))
(make-element #f (decode-content (list title)))
(make-element #f (decode-content (list sub)))
(if more
(list (make-element #f (decode-content (list more))))
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?]
[subcategory pre-content?]
[third-level pre-content?]
[fourth-level (or/c #f pre-content?) #f]) block?]
@defproc[(terms [content pre-content?] ...) block?]
@defproc[(keywords [content pre-content?] ...) block?]
[fourth-level (or/c #f pre-content?) #f]) content?]
@defproc[(terms [content pre-content?] ...) content?]
@defproc[(keywords [content pre-content?] ...) content?]
)]{
Typesets category, term, and keyword information for the paper, which