bugfix

svn: r5491
2007-01-29 01:57:48 +00:00 · 2007-01-29 01:57:48 +00:00 · 8dde1e2c69
commit 8dde1e2c69
parent 60b1287342
1 changed files with 6 additions and 5 deletions
--- a/collects/handin-server/sandbox.ss
+++ b/collects/handin-server/sandbox.ss
@ -136,11 +136,12 @@
      (if (module-path-index? x)
        (let-values ([(m base) (module-path-index-split x)]) (lib? m))
        (and (pair? x) (eq? 'lib (car x)))))
-    (let loop ([todo (map (lambda (mod)
-                            (if (lib? mod)
-                              '()
-                              (simplify-path* (resolve-module-path mod #f))))
-                          mods)]
+    (let loop ([todo (filter values
+                             (map (lambda (mod)
+                                    (and (not (lib? mod))
+                                         (simplify-path*
+                                          (resolve-module-path mod #f))))
+                                  mods))]
               [r '()])
      (cond
        [(null? todo) r]