Removal of define-go.

original commit: 2b44814e95acaf600d3ebe66f44ea381642207de

pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/main.rkt

@@ -143,6 +143,11 @@
         (dr p))))))
 
 
+(define (test/gui suite)
+  (((dynamic-require 'rackunit/private/gui/gui 'make-gui-runner))
+   suite))
+
+
 (define (go tests) (test/gui tests))
 (define (go/text tests)
   (force (delay/thread (run-tests tests 'verbose))))

pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/run.rkt

@@ -28,7 +28,7 @@
          (places (and (integer? n) (> n 1) n)))]
  ["--gui" "run using the gui"
           (if (gui-available?)
-              (begin (exec go))
+              (exec go)
               (error "GUI not available"))])
 
 (start-workers)

pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/all-tests.rkt

@@ -46,6 +46,6 @@
 
 
 
-(define-go (lambda () unit-tests))
+(define go (lambda () unit-tests))
 
 

pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/test-utils.rkt

@@ -3,41 +3,14 @@
 (require scheme/require-syntax
          scheme/match
          scheme/gui/dynamic
-	 typed-racket/utils/utils
+         typed-racket/utils/utils
          (for-syntax scheme/base)
          (types utils)
          (rep type-rep)
          rackunit rackunit/text-ui)
 
-(provide private typecheck (rename-out [infer r:infer]) utils env rep types base-env (all-defined-out))
-
-(define (mk-suite ts)
-  (match (map (lambda (f) (f)) ts)
-	 [(list t) t]
-	 [ts (make-test-suite "Combined Test Suite" ts)]))
-
-(define (run . ts)
-  (run-tests (mk-suite ts)))
-
-(define (test/gui suite)
-  (((dynamic-require 'rackunit/private/gui/gui 'make-gui-runner))
-   suite))
-
-(define (run/gui . ts)
-  (test/gui (mk-suite ts)))
-
-
-(define-syntax (define-go stx)
-  (syntax-case stx ()
-    [(_ args ...)
-     (with-syntax
-      ([go (datum->syntax stx 'go)]
-       [go/gui (datum->syntax stx 'go/gui)]
-       [(tmps ...) (generate-temporaries #'(args ...))])
-      #'(define-values (go go/gui)
-	  (let ([tmps args] ...)
-	    (values (lambda () (run tmps ...))
-		    (lambda () (run/gui tmps ...))))))]))
+(provide private typecheck (rename-out [infer r:infer]) utils env rep types base-env
+         (all-defined-out))
 
 ;; FIXME - do something more intelligent
 (define (tc-result-equal/test? a b)
@@ -52,4 +25,3 @@
   (syntax-case stx ()
     [(_ nm a b)
      (syntax/loc stx (test-case nm (check-tc-result-equal?* a b)))]))
-