bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 3cbb1e4e0e6790772254e03d44fa9644d002ceda
parent 4c5c4342ef5b66cc504dff2c68d0ffb370b9d22b
Author: Eli Barzilay <eli@barzilay.org>
Date:   Thu, 14 Mar 2013 07:15:43 -0400

Fix lots of indentation mistakes.

(Found by my ayatollah script...)

original commit: af6be85ff576e475753a46bd3f1690eb8bf88a28

Diffstat:
M
collects/scribble/core.rkt
 | 
2
+-
M
collects/scribble/private/manual-vars.rkt
 | 
6
+++---
M
collects/scriblib/autobib.rkt
 | 
2
+-

3 files changed, 5 insertions(+), 5 deletions(-)
diff --git 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
@@ -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
@@ -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)