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

2
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)]