changed top-level checks so they return (void), so nothing is printed at the top-level of a module

svn: r16339

collects/schemeunit/check.ss

@@ -63,10 +63,16 @@
         ([exn? (current-check-handler)])
       (thunk))))
 
+;; top-level-check-around : ( -> a) -> a
+(define top-level-check-around
+  (lambda (thunk)
+    (check-around thunk)
+    (void)))
+
 ;; parameter current-check-around : (( -> a) -> a)
 (define current-check-around
   (make-parameter
-   check-around
+   top-level-check-around
    (lambda (v)
      (if (procedure? v)
          v

collects/schemeunit/scribblings/check.scrbl

@@ -339,4 +339,7 @@ trace.  }
 Parameter containing the function that handles the execution
 of checks.  The default value wraps the evaluation of
 @scheme[thunk] in a @scheme[with-handlers] call that calls
-@scheme[current-check-handler] if an exception is raised.  }
+@scheme[current-check-handler] if an exception is raised and then
+(when an exception is not raised) discards the result, returning
+@scheme[(void)]. 
+}