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

typo

Browse Source 
svn: r11519
This commit is contained in:
Eli Barzilay 2008-09-02 08:09:52 +00:00
parent b0f32780ce
commit db81f6afa1
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/syntax/module-reader.ss
View File

@ -16,7 +16,7 @@
(let loop ([body (syntax->list #'(body ...))]) (let loop ([body (syntax->list #'(body ...))])
(if (not (and (pair? body) (if (not (and (pair? body)
(pair? (cdr body)) (pair? (cdr body))
(not (keyword? (car body))))) (keyword? (syntax-e (car body)))))
(datum->syntax stx body stx) (datum->syntax stx body stx)
(let* ([k (car body)] [k* (syntax-e k)] [v (cadr body)]) (let* ([k (car body)] [k* (syntax-e k)] [v (cadr body)])
(cond (cond