From a17e62cca01d19904e709902c79b49d8f2ad4faf Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Sat, 13 Sep 2008 22:47:52 +0000
Subject: [PATCH] Fix call to *Keyword - thanks Matthew.

svn: r11733

original commit: 49c816cfaa30ba7caa343d4d3fbf2cc9a1472acf
---
 collects/typed-scheme/rep/type-rep.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/typed-scheme/rep/type-rep.ss b/collects/typed-scheme/rep/type-rep.ss
index 9ced9791..6e744cfa 100644
--- 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