Fix lots of indentation mistakes.

(Found by my ayatollah script...)

original commit: af6be85ff576e475753a46bd3f1690eb8bf88a28

collects/parser-tools/private-yacc/input-file-parser.rkt

@@ -46,11 +46,11 @@
                               (datum->syntax-object b (string->symbol (format "$~a-start-pos" i)) b stx-for-original-property)]
                              [end-pos-id
                               (datum->syntax-object b (string->symbol (format "$~a-end-pos" i)) b stx-for-original-property)])
-                       (set! biggest-pos (cons start-pos-id end-pos-id))
+                         (set! biggest-pos (cons start-pos-id end-pos-id))
-                       `(,(datum->syntax-object b name b stx-for-original-property)
+                         `(,(datum->syntax-object b name b stx-for-original-property)
-                         ,start-pos-id
+                           ,start-pos-id
-                         ,end-pos-id
+                           ,end-pos-id
-                         ,@(get-args (add1 i) (cdr rhs)))))
+                           ,@(get-args (add1 i) (cdr rhs)))))
                       (else
                        `(,(datum->syntax-object b name b stx-for-original-property)
                          ,@(get-args (add1 i) (cdr rhs)))))))))])

collects/parser-tools/private-yacc/lr0.rkt

@@ -22,10 +22,10 @@
   (define (trans-key<? a b)
     (let ((kia (kernel-index (trans-key-st a)))
           (kib (kernel-index (trans-key-st b))))
-    (or (< kia kib)
+      (or (< kia kib)
-        (and (= kia kib)
+          (and (= kia kib)
-             (< (non-term-index (trans-key-gs a))
+               (< (non-term-index (trans-key-gs a))
-                (non-term-index (trans-key-gs b)))))))
+                  (non-term-index (trans-key-gs b)))))))
   
   (define (trans-key-list-remove-dups tkl)
     (let loop ((sorted (sort tkl trans-key<?)))

collects/parser-tools/private-yacc/parser-builder.rkt

@@ -9,8 +9,9 @@
   
   (provide/contract
    (build-parser ((string? any/c any/c (listof identifier?) (listof identifier?)
-                  (listof identifier?) (union syntax? false/c) syntax?) . ->* .
+                   (listof identifier?) (union syntax? false/c) syntax?)
-                 (any/c any/c any/c any/c))))
+                  . ->* .
+                  (any/c any/c any/c any/c))))
   
   ;; fix-check-syntax : (listof identifier?) (listof identifier?) (listof identifier?)
   ;;                    (union syntax? false/c) syntax?) -> syntax?