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

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

@ -409,7 +409,7 @@
(send memory-text lock #t) (send memory-text lock #t)
(send memory-text end-edit-sequence)))] (send memory-text end-edit-sequence)))]
(define/private (format-number n) (define (format-number n)
(let loop ([n n]) (let loop ([n n])
(cond (cond
[(<= n 1000) (number->string n)] [(<= n 1000) (number->string n)]
@ -419,11 +419,11 @@
"," ","
(pad-to-3 (modulo n 1000)))]))) (pad-to-3 (modulo n 1000)))])))
(define (pad-to-3 n) (define (pad-to-3 n)
(cond (cond
[(<= n 9) (format "00~a" n)] [(<= n 9) (format "00~a" n)]
[(<= n 99) (format "0~a" n)] [(<= n 99) (format "0~a" n)]
[else (number->string n)])) [else (number->string n)]))
; only for CVSers ; only for CVSers
(when show-memory-text? (when show-memory-text?