Fix call to *Keyword - thanks Matthew.

svn: r11733
2008-09-13 22:47:52 +00:00 · 2008-09-13 22:47:52 +00:00 · 49c816cfaa
commit 49c816cfaa
parent 37796884d8
1 changed files with 1 additions and 1 deletions
--- a/collects/typed-scheme/rep/type-rep.ss
+++ b/collects/typed-scheme/rep/type-rep.ss
@ -97,7 +97,7 @@
 (dt Keyword (kw ty required?)
    [#:frees (free-vars* ty)
             (free-idxs* ty)]
-    [#:fold-rhs (*Keyword kw (type-rec-id ty))])
+    [#:fold-rhs (*Keyword kw (type-rec-id ty) required?)])

 ;; dom : Listof[Type]
 ;; rng : Type