suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

acmart: fix contract on nested-flow forms, like acks

Browse Source 
A nested flow's argument to be decoded a pre-flow instead of a
pre-content.
This commit is contained in:
Matthew Flatt 2017-09-07 20:21:27 -06:00
parent 6f73b1aef6
commit dd92ebd2d9
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
scribble-doc/scribblings/scribble/acmart.scrbl
View File

@ -239,28 +239,28 @@ defaults to @racket{Received} for the first occurrence and
@received[#:stage "accepted"]{June 2009}
}|}
@defproc[(teaserfigure [content pre-content?] ...) block?]{
@defproc[(teaserfigure [content pre-flow?] ...) block?]{
Creates a teaser figure to appear before main text.}
@deftogether[(
@defproc[(sidebar [content pre-content?] ...) block?]
@defproc[(marginfigure [content pre-content?] ...) block?]
@defproc[(margintable [content pre-content?] ...) block?]
@defproc[(sidebar [content pre-flow?] ...) block?]
@defproc[(marginfigure [content pre-flow?] ...) block?]
@defproc[(margintable [content pre-flow?] ...) block?]
)]{
In the @racket[sigchi-a] format, special sidebars,
tables and figures on the margin.}
@deftogether[(
@defproc[(printonly [content pre-content?] ...) block?]
@defproc[(screenonly [content pre-content?] ...) block?]
@defproc[(anonsuppress [content pre-content?] ...) block?]
@defproc[(printonly [content pre-flow?] ...) block?]
@defproc[(screenonly [content pre-flow?] ...) block?]
@defproc[(anonsuppress [content pre-flow?] ...) block?]
)]{
Marks content to be included only for print or screen
editions, or excluded from anonymous editions.}
@defproc[(acks [content pre-content?] ...) block?]{
@defproc[(acks [content pre-flow?] ...) block?]{
Creates an unnumbered section ``Acknowledgments'' section, unless the
@racket[anonymous] mode is selected.}

4
scribble-lib/scribble/acmart.rkt
View File

@ -106,7 +106,7 @@
(define-syntax-rule (define-environments name ...)
(begin
(begin
(provide/contract [name (->* () () #:rest (listof pre-content?)
(provide/contract [name (->* () () #:rest (listof pre-flow?)
block?)])
(define (name . str)
(make-nested-flow (make-style (symbol->string 'name) acmart-extras)
@ -117,7 +117,7 @@
(define-syntax-rule (define-comment-environments name ...)
(begin
(begin
(provide/contract [name (->* () () #:rest (listof pre-content?)
(provide/contract [name (->* () () #:rest (listof pre-flow?)
block?)])
(define (name . str)
(make-nested-flow (make-style (symbol->string 'name) acmart-extras)