From 8009a73622206064aa46edbc58512926f1bfcab5 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 9 Nov 2008 07:35:49 +0000 Subject: [PATCH] added get-namespace svn: r12364 --- collects/scheme/sandbox.ss | 4 ++++ collects/scribblings/reference/sandbox.scrbl | 5 +++++ 2 files changed, 9 insertions(+) diff --git a/collects/scheme/sandbox.ss b/collects/scheme/sandbox.ss index 0684efbffa..330e1aa6f3 100644 --- a/collects/scheme/sandbox.ss +++ b/collects/scheme/sandbox.ss @@ -27,6 +27,7 @@ get-output get-error-output get-uncovered-expressions + get-namespace make-evaluator make-module-evaluator call-with-limits @@ -429,6 +430,7 @@ (define-evaluator-messenger get-output 'output) (define-evaluator-messenger get-error-output 'error-output) (define-evaluator-messenger (get-uncovered-expressions . xs) 'uncovered) +(define-evaluator-messenger get-namespace 'namespace) (define (make-evaluator* init-hook require-perms program-maker) (define cust (make-custodian)) @@ -532,6 +534,8 @@ [(output) (output-getter output)] [(error-output) (output-getter error-output)] [(uncovered) (apply get-uncovered (evaluator-message-args expr))] + [(namespace) (user-eval (make-evaluator-message + current-namespace '()))] [else (error 'evaluator "internal error, bad message: ~e" msg)])) (user-eval expr))) (define linked-outputs? #f) diff --git a/collects/scribblings/reference/sandbox.scrbl b/collects/scribblings/reference/sandbox.scrbl index 85a334c814..d208e6c895 100644 --- a/collects/scribblings/reference/sandbox.scrbl +++ b/collects/scribblings/reference/sandbox.scrbl @@ -616,6 +616,11 @@ the @scheme[src] argument. Using a sequence of S-expressions (not coverage results, since each expression may be assigned a single source location.} +@defproc[(get-namespace [evaluator (any/c . -> . any)]) + namespace?]{ + +Retrieves the namespace that is used in an evaluator.} + @; ---------------------------------------------------------------------- @section{Miscellaneous}