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

rackunit/tool: avoid attaching module to user namespace

Browse Source 
original commit: 766e6c2f00a788d6195208449c380bd7f547448a
This commit is contained in:
Ryan Culpepper 2011-09-01 19:37:24 -06:00
parent 2363e237b6
commit 3d6488e24e
1 changed files with 6 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
collects/rackunit/tool.rkt
View File

@ -3,8 +3,7 @@
racket/gui/base racket/gui/base
framework framework
drscheme/tool drscheme/tool
racket/unit racket/unit)
(prefix-in drlink: "private/gui/drracket-link.rkt"))
(provide tool@) (provide tool@)
@ -13,8 +12,6 @@
(define BACKTRACE-NO-MESSAGE "No message.") (define BACKTRACE-NO-MESSAGE "No message.")
(define LINK-MODULE-SPEC 'rackunit/private/gui/drracket-link) (define LINK-MODULE-SPEC 'rackunit/private/gui/drracket-link)
(define-namespace-anchor drracket-ns-anchor)
;; ---- ;; ----
;; close/eventspace : (a* -> b) -> (a* -> b) ;; close/eventspace : (a* -> b) -> (a* -> b)
@ -63,25 +60,17 @@
(drscheme:debug:open-and-highlight-in-file (drscheme:debug:open-and-highlight-in-file
(list (make-srcloc src #f #f pos span)))))) (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 (define interactions-text-mixin
(mixin ((class->interface drscheme:rep:text%)) () (mixin ((class->interface drscheme:rep:text%)) ()
(inherit get-user-namespace) (inherit get-user-namespace)
(super-new) (super-new)
(define/private (setup-helper-module) (define/private (setup-helper-module)
(namespace-attach-module drracket-ns (let ([link (parameterize ((current-namespace (get-user-namespace)))
LINK-MODULE-SPEC (dynamic-require LINK-MODULE-SPEC 'link))])
(get-user-namespace))) (set-box! link (vector get-errortrace-backtrace
show-backtrace
show-source))))
(define/override (reset-console) (define/override (reset-console)
(super reset-console) (super reset-console)