svn: r11682

collects/handin-server/utils.ss

@@ -1,11 +1,7 @@
 #lang scheme/base
 
-(require scheme/list
-         scheme/class
-         mred
-         lang/posn
+(require scheme/class mred lang/posn scheme/pretty
          (prefix-in pc: mzlib/pconvert)
-         scheme/pretty
          (only-in "main.ss" timeout-control)
          "private/run-status.ss"
          "private/config.ss"
@@ -125,9 +121,7 @@
       (unless ok?
         (error
          (format "instructor-supplied test ~a should have produced ~e, instead produced ~e"
-                 (format-history test)
-                 result
-                 val)))
+                 (format-history test) result val)))
       val)))
 
 (define (user-construct e func . args)
@@ -145,11 +139,7 @@
                            name
                            count
                            (if (= count 1) "" "s"))))
-            (loop (+ found
-                     (if (and (pair? e)
-                              (eq? (car e) name))
-                         1
-                         0))))))))
+          (loop (+ found (if (and (pair? e) (eq? (car e) name)) 1 0))))))))
 
 (define list-abbreviation-enabled (make-parameter #f))