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

Adding contracts to track down problem

Browse Source
This commit is contained in:
Jay McCarthy 2010-06-23 19:17:01 -06:00
parent 3251712ef7
commit 27d8f5a039
1 changed files with 29 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
collects/scribble/sigplan.rkt
View File

@ -1,5 +1,6 @@
#lang scheme/base #lang scheme/base
(require setup/main-collects (require setup/main-collects
scheme/contract
scribble/core scribble/core
scribble/base scribble/base
scribble/decode scribble/decode
@ -7,11 +8,35 @@
scribble/latex-properties scribble/latex-properties
(for-syntax scheme/base)) (for-syntax scheme/base))
(provide/contract
[abstract
(->* () () #:rest (listof pre-content?)
block?)]
[authorinfo
(-> pre-content? pre-content? pre-content?
block?)]
[conferenceinfo
(-> pre-content? pre-content?
block?)]
[copyrightyear
(->* () () #:rest (listof pre-content?)
block?)]
[copyrightdata
(->* () () #:rest (listof pre-content?)
block?)]
[category
(->* (pre-content? pre-content? pre-content?)
((or/c false/c pre-content?))
block?)]
[terms
(->* () () #:rest (listof pre-content?)
block?)]
[keywords
(->* () () #:rest (listof pre-content?)
block?)])
(provide preprint 10pt (provide preprint 10pt
abstract include-abstract include-abstract)
authorinfo
conferenceinfo copyrightyear copyrightdata
category terms keywords)
(define-syntax (preprint stx) (define-syntax (preprint stx)
(raise-syntax-error #f (raise-syntax-error #f