From 1e75a436741920c5d43fb6bbecd148513ef772ba Mon Sep 17 00:00:00 2001
From: Christopher Lemmer Webber <cwebber@dustycloud.org>
Date: Sun, 9 Jun 2019 16:22:25 -0400
Subject: [PATCH] word: Export word generic methods.

---
 word.rkt | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/word.rkt b/word.rkt
index d152a2a..136eeee 100644
--- a/word.rkt
+++ b/word.rkt
@@ -28,6 +28,24 @@
    (define (word-output w) #f)
    (define (word-return w) w)])
 
+(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)])))
+
 (define (default b f d) (if b (f b) d))
 (struct *word (fps label evt event tick output return)
   #:methods gen:word