use the new call-in-sandbox-context

svn: r12671
2008-12-02 05:29:27 +00:00 · 2008-12-02 05:29:27 +00:00 · 4ee2883f8c
commit 4ee2883f8c
parent e0917e1a5e
1 changed files with 3 additions and 0 deletions
--- a/collects/handin-server/checker.ss
+++ b/collects/handin-server/checker.ss
@ -651,6 +651,9 @@
 (define (procedure/arity? proc arity)
  (and (procedure? proc) (procedure-arity-includes? proc arity)))

+(define (get-namespace evaluator)
+  (call-in-sandbox-context evaluator (lambda () (current-namespace))))
+
 (provide !defined)
 (define-syntax-rule (!defined id ...)
  ;; expected to be used only with identifiers