From 62e35844fb26f4022c2d5c66b7455a9c3dceb636 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 1 Feb 2011 06:41:49 -0700 Subject: [PATCH] fix problem with `raco exe' Merge to 5.1 (cherry picked from commit b70e1eca60d2795bd9a0224dad235b646704935d) --- collects/compiler/distribute.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/compiler/distribute.rkt b/collects/compiler/distribute.rkt index f31c28b119..22c6cfab99 100644 --- a/collects/compiler/distribute.rkt +++ b/collects/compiler/distribute.rkt @@ -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))]