From 3d6488e24eb051941fd03a8462e19f43a2700137 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Thu, 1 Sep 2011 19:37:24 -0600 Subject: [PATCH] rackunit/tool: avoid attaching module to user namespace original commit: 766e6c2f00a788d6195208449c380bd7f547448a --- collects/rackunit/tool.rkt | 23 ++++++----------------- 1 file changed, 6 insertions(+), 17 deletions(-) diff --git a/collects/rackunit/tool.rkt b/collects/rackunit/tool.rkt index ba75e1a..230df69 100644 --- a/collects/rackunit/tool.rkt +++ b/collects/rackunit/tool.rkt @@ -3,8 +3,7 @@ racket/gui/base framework drscheme/tool - racket/unit - (prefix-in drlink: "private/gui/drracket-link.rkt")) + racket/unit) (provide tool@) @@ -13,8 +12,6 @@ (define BACKTRACE-NO-MESSAGE "No message.") (define LINK-MODULE-SPEC 'rackunit/private/gui/drracket-link) -(define-namespace-anchor drracket-ns-anchor) - ;; ---- ;; close/eventspace : (a* -> b) -> (a* -> b) @@ -63,25 +60,17 @@ (drscheme:debug:open-and-highlight-in-file (list (make-srcloc src #f #f pos span)))))) - ;; Send them off to the drscheme-ui module. - ;; We'll still have to attach our instantiation of drscheme-link - ;; to the user namespace. - (set-box! drlink:link - (vector get-errortrace-backtrace - show-backtrace - show-source)) - - (define drracket-ns (namespace-anchor->namespace drracket-ns-anchor)) - (define interactions-text-mixin (mixin ((class->interface drscheme:rep:text%)) () (inherit get-user-namespace) (super-new) (define/private (setup-helper-module) - (namespace-attach-module drracket-ns - LINK-MODULE-SPEC - (get-user-namespace))) + (let ([link (parameterize ((current-namespace (get-user-namespace))) + (dynamic-require LINK-MODULE-SPEC 'link))]) + (set-box! link (vector get-errortrace-backtrace + show-backtrace + show-source)))) (define/override (reset-console) (super reset-console)