From 1c0d42570b4cfd6b20bc23ed999926d341c20c0a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 17 Nov 2007 14:07:19 +0000
Subject: [PATCH] fix pattern literals in rewrite-bodies

svn: r7753
---
 collects/lang/htdp-langs.ss | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/collects/lang/htdp-langs.ss b/collects/lang/htdp-langs.ss
index 2a9f58582c..b8eaa9ecc6 100644
--- a/collects/lang/htdp-langs.ss
+++ b/collects/lang/htdp-langs.ss
@@ -930,7 +930,7 @@
             [(null? bodies) null]
             [else
              (let ([body (car bodies)])
-               (syntax-case body (require define-values define-syntaxes require-for-syntax provide)
+               (syntax-case body (#%require define-values define-syntaxes define-values-for-syntax #%provide)
                  [(define-values (new-vars ...) e)
                   (cons body (loop (cdr bodies)))]
                  [(define-syntaxes (new-vars ...) e)
@@ -939,8 +939,6 @@
                   (cons body (loop (cdr bodies)))]
                  [(#%require specs ...)
                   (cons body (loop (cdr bodies)))]
-                 [(require-for-syntax specs ...)
-                  (cons body (loop (cdr bodies)))]
                  [(#%provide specs ...)
                   (loop (cdr bodies))]
                  [else