Multiple type errors.

svn: r9405

original commit: bd9d8b5ff33b6cc90d428642c5697f56da866bd9

collects/typed-scheme/private/type-effect-convenience.ss

@@ -6,7 +6,8 @@
          "type-effect-printer.ss"
          "union.ss"
          "subtype.ss"
-         "type-utils.ss"         
+         "type-utils.ss" 
+         "tc-utils.ss"
          scheme/promise
          (for-syntax scheme/base))
 
@@ -224,4 +225,8 @@
                (exit t)))]
         [_ (exit t)]))))
 
+(define (tc-error/expr msg #:return [return (Un)] #:stx [stx (current-orig-stx)] . rest)
+  (tc-error/delayed #:stx stx (apply format msg rest))
+  return)
+