From c24b05a7b083eb749cfa9da53b828aae21b98c65 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Tue, 13 Oct 2009 17:55:20 +0000 Subject: [PATCH] fixed the require bug svn: r16308 --- collects/2htdp/private/syn-aux.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/2htdp/private/syn-aux.ss b/collects/2htdp/private/syn-aux.ss index af365c6f29..dfaaffc22e 100644 --- a/collects/2htdp/private/syn-aux.ss +++ b/collects/2htdp/private/syn-aux.ss @@ -39,7 +39,7 @@ (define (clauses-use-kwd stx:list ->rec? legal-clause kwd-in?) (map (lambda (stx) (syntax-case stx () - [(kw . E) (kwd-in? #'kw) (begin (->rec? #'kw) (cons #'kw stx))] + [(kw . E) (kwd-in? #'kw) (begin (->rec? #'kw #'E) (cons #'kw stx))] [_ (raise-syntax-error #f legal-clause stx)])) stx:list))