suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

..

Browse Source 
original commit: 00e6c9cbc436109642fbe92a4974df094f735ae6
This commit is contained in:
Robby Findler 2002-11-15 20:43:01 +00:00
parent 351384bf09
commit 350f54131a
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/framework/private/frame.ss
View File

@ -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?