indentation

svn: r4837 original commit: 9d04d4dcfc8fdec5e961442c7bfbcefd4e96dc42
2006-11-13 18:50:36 +00:00 · 2006-11-13 18:50:36 +00:00 · 3f4ba56e02
commit 3f4ba56e02
parent db5974cdcc
1 changed files with 6 additions and 6 deletions
--- 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)))