From 9d04d4dcfc8fdec5e961442c7bfbcefd4e96dc42 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Mon, 13 Nov 2006 18:50:36 +0000
Subject: [PATCH] indentation

svn: r4837
---
 collects/mzlib/file.ss | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/collects/mzlib/file.ss b/collects/mzlib/file.ss
index d8583d0bc4..03e93b6da4 100644
--- a/collects/mzlib/file.ss
+++ b/collects/mzlib/file.ss
@@ -313,12 +313,12 @@
                        (lambda ()
                          (with-input-from-file pref-file read)))])
           ;; Make sure file content had the right shape:
-        (if (and (list? prefs)
-                 (andmap (lambda (x)
-                           (and (pair? x) (pair? (cdr x)) (null? (cddr x))))
-                         prefs))
-          prefs
-          null))))
+          (if (and (list? prefs)
+                   (andmap (lambda (x)
+                             (and (pair? x) (pair? (cdr x)) (null? (cddr x))))
+                           prefs))
+            prefs
+            null))))
     (let ([f (and (not flush?) (not filename) (weak-box-value pref-box))])
       (or f (let ([f (read-prefs)])
               (unless filename (set! pref-box (make-weak-box f)))