From a6dbd46b1eabb1a44bfeb943d39f1ee7e4f9a19b Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 29 Apr 1997 19:36:44 +0000
Subject: [PATCH] cleaned up

original commit: ebfab9ee0bc3d2313345d264d9f1a63f95966dbb
---
 collects/mred/prefs.ss | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/collects/mred/prefs.ss b/collects/mred/prefs.ss
index 3cabe81a..8e63328e 100644
--- a/collects/mred/prefs.ss
+++ b/collects/mred/prefs.ss
@@ -213,12 +213,12 @@
 	(lambda ()
 	  (mred:debug:printf 'prefs "reading user preferences")
 	  (when (file-exists? preferences-filename)
-	    (let ([input (call-with-input-file preferences-filename read)]
-		  [err
+	    (let ([err
 		   (lambda (input)
 		     (wx:message-box (format "found bad pref: ~n~a" input)
 				     "Preferences"))])
-	      (let loop ([input input])
+	      (let loop ([input (call-with-input-file preferences-filename
+				  read)])
 		(cond
 		 [(pair? input)
 		  (let/ec k