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

two missing exports

Browse Source 
svn: r5819
This commit is contained in:
Eli Barzilay 2007-03-24 10:39:32 +00:00
parent 4ea593e75b
commit b2f68b7c28
1 changed files with 3 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -13,7 +13,9 @@
sandbox-output sandbox-output
get-output get-output
get-uncovered-expressions get-uncovered-expressions
make-evaluator) make-evaluator
call-with-limits
with-limits)
(define mred? (define mred?
(with-handlers ([void (lambda (_) #f)]) (with-handlers ([void (lambda (_) #f)])
@ -159,24 +161,6 @@
(get-module-code (car todo)))) (get-module-code (car todo))))
list)))) list))))
(cons path r)))]))) (cons path r)))])))
;; (define (module-spec->paths mod)
;; (let loop ([todo (list (simplify-path* (resolve-module-path mod #f)))]
;; [r '()])
;; (cond
;; [(null? todo) r]
;; [(member (car todo) r) (loop (cdr todo) r)]
;; [else
;; (let ([path (car todo)])
;; (loop (map (lambda (i)
;; (simplify-path* (resolve-module-path-index i path)))
;; (filter module-path-index?
;; (apply append
;; (call-with-values
;; (lambda ()
;; (module-compiled-imports
;; (get-module-code (car todo))))
;; list))))
;; (cons path r)))])))
;; Execution ---------------------------------------------------------------- ;; Execution ----------------------------------------------------------------