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

fix problem with `raco exe'

Browse Source 
Merge to 5.1
(cherry picked from commit b70e1eca60)
This commit is contained in:
Matthew Flatt 2011-02-01 06:41:49 -07:00 committed by Eli Barzilay
parent f3085a8168
commit 62e35844fb
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/compiler/distribute.rkt
View File

@ -378,7 +378,9 @@
(let loop ([exts exts][counter counter])
(cond
[(null? exts) (values null counter)]
[(eq? 'module (cadar (car exts)))
[(and (pair? (car (car exts)))
(pair? (cdar (car exts)))
(eq? 'module (cadar (car exts))))
(let-values ([(rest-exts counter)
(loop (cdr exts) counter)])
(values (cons (car exts) rest-exts) counter))]