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

bugfix

Browse Source 
svn: r5491
This commit is contained in:
Eli Barzilay 2007-01-29 01:57:48 +00:00
parent 60b1287342
commit 8dde1e2c69
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/handin-server/sandbox.ss
View File

@ -136,11 +136,12 @@
(if (module-path-index? x) (if (module-path-index? x)
(let-values ([(m base) (module-path-index-split x)]) (lib? m)) (let-values ([(m base) (module-path-index-split x)]) (lib? m))
(and (pair? x) (eq? 'lib (car x))))) (and (pair? x) (eq? 'lib (car x)))))
(let loop ([todo (map (lambda (mod) (let loop ([todo (filter values
(if (lib? mod) (map (lambda (mod)
'() (and (not (lib? mod))
(simplify-path* (resolve-module-path mod #f)))) (simplify-path*
mods)] (resolve-module-path mod #f))))
mods))]
[r '()]) [r '()])
(cond (cond
[(null? todo) r] [(null? todo) r]