From dc326c9501de192215a4c81f538a8614a024e632 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 10 Aug 2011 12:02:20 -0500
Subject: [PATCH] change some prints to fprintfs to make it easier to remove
 debugging printfs from this file when checking in

---
 collects/framework/private/frame.rkt | 43 ++++++++++++++--------------
 1 file changed, 22 insertions(+), 21 deletions(-)

diff --git a/collects/framework/private/frame.rkt b/collects/framework/private/frame.rkt
index 91649ed38b..b051dea8a8 100644
--- a/collects/framework/private/frame.rkt
+++ b/collects/framework/private/frame.rkt
@@ -2645,27 +2645,28 @@
       (define ec (new editor-canvas% [parent f] [editor t]))
       (send f reflow-container)
       (send t begin-edit-sequence)
-      (parameterize ([current-output-port (open-output-text-editor t)])
-        (define prefs-file (find-system-path 'pref-file))
-        (printf "prefs file:\n  ~a\n\n" (path->string prefs-file))
-        (printf "setting a preference:\n  ")
-        (preferences:set 'drracket:prefs-debug #f)
-        (time (preferences:set 'drracket:prefs-debug #t))
-        (define file-contents (call-with-input-file prefs-file read))
-        (printf "\n~s preference keys\n\n" (length file-contents))
-        
-        (printf "preferences taking the most space:\n")
-        (define sizes (map 
-                       (λ (x) 
-                         (list 
-                          (car x)
-                          (bytes-length (string->bytes/utf-8 (format "~s" x)))))
-                       file-contents))
-        (for ([frame (in-list (sort sizes > #:key cadr))]
-              [x (in-range 0 10)])
-          (define key (list-ref frame 0))
-          (define size (list-ref frame 1))
-          (printf "  ~s (~s bytes)\n" key size)))
+      (define tp (open-output-text-editor t))
+      (define prefs-file (find-system-path 'pref-file))
+      (fprintf tp "prefs file:\n  ~a\n\n" (path->string prefs-file))
+      (fprintf tp "setting a preference:\n  ")
+      (preferences:set 'drracket:prefs-debug #f)
+      (parameterize ([current-output-port tp])
+        (time (preferences:set 'drracket:prefs-debug #t)))
+      (define file-contents (call-with-input-file prefs-file read))
+      (fprintf tp "\n~s preference keys\n\n" (length file-contents))
+      
+      (fprintf tp "preferences taking the most space:\n")
+      (define sizes (map 
+                     (λ (x) 
+                       (list 
+                        (car x)
+                        (bytes-length (string->bytes/utf-8 (format "~s" x)))))
+                     file-contents))
+      (for ([frame (in-list (sort sizes > #:key cadr))]
+            [x (in-range 0 10)])
+        (define key (list-ref frame 0))
+        (define size (list-ref frame 1))
+        (fprintf tp "  ~s (~s bytes)\n" key size))
       (send t auto-wrap #t)
       (send t set-position 0 0)
       (send t lock #t)