make the example-test private file's work be behind a thunk (so more drdr friendly)

collects/tests/drracket/example-tool.rkt

@@ -29,4 +29,6 @@
                 (cons
                  new-collection-root
                  (current-library-collection-paths))])
-  (namespace-require 'tests/drracket/private/run-example-tool))
+  (namespace-require 'tests/drracket/private/run-example-tool)
+  (eval '(go)))
+

collects/tests/drracket/private/run-example-tool.rkt

@@ -20,7 +20,11 @@
          framework/test
          mrlib/switchable-button)
 
-(define init-options@
+(provide go)
+
+(define (go)
+  
+  (define init-options@
     (unit (import setup-option^)
           (export)
           (make-zo #f)
@@ -31,7 +35,7 @@
           (setup-program-name "raco setup")
           (specific-collections '(("coll")))))
   
-(let ([c (make-custodian)])
+  (let ([c (make-custodian)])
     (parameterize ([current-custodian c]
                    [exit-handler 
                     (λ (x)
@@ -51,7 +55,7 @@
           [((COMPILER : compiler^)) compiler@ COMPILER-OPTION DYNEXT-FILE DYNEXT-COMPILE DYNEXT-LINK]
           [() setup@ LAUNCHER OPTIONS COMPILER-OPTION COMPILER DYNEXT-FILE])))))
   
-(fire-up-drscheme-and-run-tests
+  (fire-up-drscheme-and-run-tests
    (λ () 
      (define drs (wait-for-drscheme-frame))
      (queue-callback/res (λ () (send (send drs get-definitions-canvas) focus)))
@@ -76,5 +80,4 @@
        (fprintf (current-error-port) 
                 "example-tool.rkt: test failed;\nexpected ~s\n but got ~s"
                 expected
-              content))))
-
+                content)))))