Always put binding clauses in separate lines

Closes #58

conventions.rkt

@@ -255,10 +255,7 @@
       (try-indent
        #:n 0
        #:because-of xs
-       ;; general case
-       (alt ((format-vertical/helper #:body-formatter (format-clause-2/indirect #:flat? #f)) xs)
-            ;; try to fit in one line
-            ((format-horizontal/helper #:body-formatter (format-clause-2/indirect #:flat? #f)) xs))))]
+       ((format-vertical/helper #:body-formatter (format-clause-2/indirect #:flat? #f)) xs)))]
     [_ (pretty doc)]))
 
 (define-pretty format-define-args/indirect

tests/benchmarks/hash.rkt.out

@@ -29,7 +29,8 @@
                       (if combine (lambda (_ x y) (combine x y)) (hash-duplicate-error 'hash-union!))]
                      one
                      . rest)
-  (for* ([two (in-list rest)] [(k v) (in-hash two)])
+  (for* ([two (in-list rest)]
+         [(k v) (in-hash two)])
     (hash-set! one k (if (hash-has-key? one k) (combine/key k (hash-ref one k) v) v))))
 
 (define (hash-intersect
@@ -41,7 +42,10 @@
   (define hashes (cons one rest))
   (define empty-h (hash-clear one)) ;; empty hash of same type as one
   (define (argmin f lst) ;; avoid racket/list to improve loading time
-    (for/fold ([best (car lst)] [fbest (f (car lst))] #:result best) ([x (in-list lst)])
+    (for/fold ([best (car lst)]
+               [fbest (f (car lst))]
+               #:result best)
+              ([x (in-list lst)])
       (define fx (f x))
       (if (< fx fbest) (values x fx) (values best fbest))))
   (for/fold ([res empty-h]) ([k (in-hash-keys (argmin hash-count hashes))])