fix indentation

collects/setup/parallel-build.rkt

@@ -23,7 +23,8 @@
 ;  (begin a ...)
 )
 
-(define lock-manager% (class object%
+(define lock-manager% 
+  (class object%
     (field (locks (make-hash)))
     (define/public (lock fn wrkr)
       (let ([v (hash-ref locks fn #f)])
@@ -50,7 +51,8 @@
   (cond [(path? x) (path->bytes x)]
         [(string? x) (string->bytes/locale x)]))
 
-(define collects-queue% (class* object% (work-queue<%>) 
+(define collects-queue% 
+  (class* object% (work-queue<%>) 
     (init-field cclst printer append-error)
     (field (lock-mgr (new lock-manager%)))
     (field (hash (make-hash)))
@@ -164,7 +166,8 @@
       (define/public (get-results) (void))
       (super-new)))
 
-(define file-list-queue% (class* object% (work-queue<%>) 
+(define file-list-queue% 
+  (class* object% (work-queue<%>) 
     (init-field filelist handler)
     (field (lock-mgr (new lock-manager%)))
     (inspect #f)

collects/setup/parallel-do.rkt

@@ -58,7 +58,8 @@
   get-id
   get-out))
 
-(define worker% (class* object% (worker<%>)
+(define worker% 
+  (class* object% (worker<%>)
     (field [id 0]
            [process-handle null]
            [out null]
@@ -110,7 +111,8 @@
     (define/public (wait) (subprocess-wait process-handle))
     (super-new)))
 
-(define place-worker% (class* object% (worker<%>)
+(define place-worker% 
+  (class* object% (worker<%>)
     (init-field [id 0]              
                 [pl null])
                
@@ -134,7 +136,7 @@
     (super-new))) 
 
 
-(define work-queue<%> (interface ()
+  (define work-queue<%> (interface ()
     get-job
     work-done
     has-jobs?
@@ -260,7 +262,8 @@
             ;(printf " ~a" (add1 i)) (flush-output))(printf "\n")
             )]))))
 
-(define list-queue% (class* object% (work-queue<%>)
+(define list-queue% 
+  (class* object% (work-queue<%>)
     (init-field queue create-job-thunk success-thunk failure-thunk)
     (field [results null])