From 4cf4f0813056364e3d83ccbffdd0977ead1756f7 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 23 Sep 2002 20:35:55 +0000 Subject: [PATCH] .. original commit: 558638e07ff61e3783cf4ab92916b6680836bb3b --- collects/framework/private/frame.ss | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss index 5402b5ab..778fc09e 100644 --- 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?