..

original commit: 558638e07ff61e3783cf4ab92916b6680836bb3b
2002-09-23 20:35:55 +00:00 · 2002-09-23 20:35:55 +00:00 · 4cf4f08130
commit 4cf4f08130
parent 0fbbf7d01f
1 changed files with 10 additions and 3 deletions
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@ -411,9 +411,16 @@
              (cond
                [(<= n 1000) (number->string n)]
                [else
-                 (format "~a,~a"
-                         (loop (quotient n 1000))
-                         (modulo n 1000))])))
+                 (string-append 
+                  (loop (quotient n 1000))
+                  ","
+                  (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)]))
          
            ; only for CVSers
          (when show-memory-text?