From e2c5ff30ed5cffac9752db1dd4f1e93bd596b1fe Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Fri, 5 Jun 2009 13:03:44 +0000
Subject: [PATCH] stupid typo in #:flag

svn: r15090
---
 collects/mzlib/kw.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/kw.ss b/collects/mzlib/kw.ss
index 0da06bd03b..105cc807c3 100644
--- a/collects/mzlib/kw.ss
+++ b/collects/mzlib/kw.ss
@@ -414,7 +414,7 @@
                                (cadr xs)
                                (loop (cddr xs)))
                         xs))
-                sx))))
+                xs))))
     ;; ------------------------------------------------------------------------
     ;; generates the part of the body that deals with rest-related stuff
     (define (make-keys-body expr)