From 3cbb1e4e0e6790772254e03d44fa9644d002ceda Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Thu, 14 Mar 2013 07:15:43 -0400
Subject: [PATCH] Fix lots of indentation mistakes.

(Found by my ayatollah script...)

original commit: af6be85ff576e475753a46bd3f1690eb8bf88a28
---
 collects/scribble/core.rkt                | 2 +-
 collects/scribble/private/manual-vars.rkt | 6 +++---
 collects/scriblib/autobib.rkt             | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/collects/scribble/core.rkt b/collects/scribble/core.rkt
index 5fefcc0d..3a6acfd1 100644
--- a/collects/scribble/core.rkt
+++ b/collects/scribble/core.rkt
@@ -19,7 +19,7 @@
       (when old-val
         (eprintf "WARNING: collected information for key multiple times: ~e; values: ~e ~e\n"
                  key old-val val))
-    (hash-set! ht key val))))
+      (hash-set! ht key val))))
 
 (define (resolve-get/where part ri key)
   (let ([key (tag-key key ri)])
diff --git a/collects/scribble/private/manual-vars.rkt b/collects/scribble/private/manual-vars.rkt
index 4707f44c..dd2158d4 100644
--- a/collects/scribble/private/manual-vars.rkt
+++ b/collects/scribble/private/manual-vars.rkt
@@ -112,9 +112,9 @@
                                               (bound-identifier-mapping-put! ht #'arg #t)]
                                              [else (void)])))
                                      (cdr s-exp))
-                                  (unless (identifier? (car s-exp))
-                                    ;; Curried:
-                                    (do-proc (car s-exp)))))])
+                                    (unless (identifier? (car s-exp))
+                                      ;; Curried:
+                                      (do-proc (car s-exp)))))])
                         (do-proc s-exp))]
                      [(form form/none form/maybe non-term)
                       (define skip-id (case (syntax-e kind)
diff --git a/collects/scriblib/autobib.rkt b/collects/scriblib/autobib.rkt
index a6baa611..19ac8d76 100644
--- a/collects/scriblib/autobib.rkt
+++ b/collects/scriblib/autobib.rkt
@@ -157,7 +157,7 @@
                 (add-cite group (car v) 'autobib-author #f #f style)
                 (add-date-cites group v (send style get-item-sep) style sort? bib-date<? bib-date=?)))))
      (send style get-group-sep))
-   (list (send style get-cite-close)))))
+    (list (send style get-cite-close)))))
 
 (define (extract-bib-author b)
   (or (auto-bib-author b)