From 051f164f3fac2210d05552d11cebeef0be83d424 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 23 Sep 2011 06:33:12 +0900
Subject: [PATCH] fix parsing of `protect-out' on `for-syntax' bindings

---
 src/racket/src/module.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/racket/src/module.c b/src/racket/src/module.c
index 9010d641ba..b1cd716c3c 100644
--- a/src/racket/src/module.c
+++ b/src/racket/src/module.c
@@ -8679,7 +8679,7 @@ void parse_provides(Scheme_Object *form, Scheme_Object *fst, Scheme_Object *e,
           l = scheme_append(a, l);
           mode_cnt = scheme_list_length(a);
           if (protect_cnt)
-            protect_cnt += mode_cnt;
+            protect_cnt += (mode_cnt - 1);;
           a = SCHEME_STX_CAR(l);
         } else
           break;