suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed the require bug

Browse Source 
svn: r16308
This commit is contained in:
Matthias Felleisen 2009-10-13 17:55:20 +00:00
parent 339860d340
commit c24b05a7b0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/2htdp/private/syn-aux.ss
View File

@ -39,7 +39,7 @@
(define (clauses-use-kwd stx:list ->rec? legal-clause kwd-in?) (define (clauses-use-kwd stx:list ->rec? legal-clause kwd-in?)
(map (lambda (stx) (map (lambda (stx)
(syntax-case 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)])) [_ (raise-syntax-error #f legal-clause stx)]))
stx:list)) stx:list))