fix contract errors on provides

This commit is contained in:
xenia 2021-04-04 00:41:57 -04:00
parent f5d7c12760
commit 6f76c91fa6
1 changed files with 3 additions and 3 deletions

View File

@ -177,7 +177,7 @@
word/rec word/rec
(contract-out (contract-out
[word? [word?
(-> any/c word?)] (-> any/c boolean?)]
[word (->* () ((or/c #f word?) [word (->* () ((or/c #f word?)
#:fps real? #:fps real?
#:label (or/c string? (-> real? string?)) #:label (or/c string? (-> real? string?))
@ -207,9 +207,9 @@
[word-evt [word-evt
(-> word? evt?)] (-> word? evt?)]
[word-event [word-event
(-> word? any/c word?)] (-> word? any/c (or/c word? #f))]
[word-tick [word-tick
(-> word? word?)] (-> word? (or/c word? #f))]
[word-output [word-output
(-> word? any/c)] (-> word? any/c)]
[word-return [word-return