From 350f54131a2d9543f85a958a7f5cc3257a01be96 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 15 Nov 2002 20:43:01 +0000
Subject: [PATCH] ..

original commit: 00e6c9cbc436109642fbe92a4974df094f735ae6
---
 collects/framework/private/frame.ss | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index 608231c3..bd765034 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -408,8 +408,8 @@
                 (send memory-text insert (format-number (current-memory-use)))
                 (send memory-text lock #t)
                 (send memory-text end-edit-sequence)))]
-
-          (define/private (format-number n)
+          
+          (define (format-number n)
             (let loop ([n n])
               (cond
                 [(<= n 1000) (number->string n)]
@@ -419,11 +419,11 @@
                   ","
                   (pad-to-3 (modulo n 1000)))])))
 
-         (define (pad-to-3 n)
-           (cond
-             [(<= n 9) (format "00~a" n)]
-             [(<= n 99) (format "0~a" n)]
-             [else (number->string n)]))
+          (define (pad-to-3 n)
+            (cond
+              [(<= n 9) (format "00~a" n)]
+              [(<= n 99) (format "0~a" n)]
+              [else (number->string n)]))
           
             ; only for CVSers
           (when show-memory-text?