Fix call to *Keyword - thanks Matthew.

svn: r11733 original commit: 49c816cfaa30ba7caa343d4d3fbf2cc9a1472acf
2008-09-13 22:47:52 +00:00 · 2008-09-13 22:47:52 +00:00 · a17e62cca0
commit a17e62cca0
parent dd509b80f3
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