misc-deps
/
lux
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Export generic procedures, this time in a submodule

This commit is contained in:
Christopher Lemmer Webber 2020-01-21 20:35:41 -05:00 committed by Jay McCarthy
parent e5cd1f303f
commit f5d7c12760
1 changed files with 18 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
word.rkt
View File

@ -178,20 +178,6 @@
(contract-out (contract-out
[word? [word?
(-> any/c word?)] (-> any/c word?)]
#;[word-fps
(-> word? flonum?)]
#;[word-label
(-> word? flonum? string?)]
#;[word-evt
(-> word? evt?)]
#;[word-event
(-> word? any/c word?)]
#;[word-tick
(-> word? word?)]
#;[word-output
(-> word? any/c)]
#;[word-return
(-> word? any/c)]
[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?))
@ -210,3 +196,21 @@
[fiat-lux [fiat-lux
(-> word? (-> word?
any)])) any)]))
(module+ generics
(provide
(contract-out
[word-fps
(-> word? flonum?)]
[word-label
(-> word? flonum? string?)]
[word-evt
(-> word? evt?)]
[word-event
(-> word? any/c word?)]
[word-tick
(-> word? word?)]
[word-output
(-> word? any/c)]
[word-return
(-> word? any/c)])))