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

...

Browse Source 
original commit: 0ad57397f1c431c64d97527cd199748a11b74d6b
This commit is contained in:
Robby Findler 1999-10-26 18:47:12 +00:00
parent 00bc664bcd
commit 3ec93ab8ec
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/framework/mem.ss
View File

@ -31,7 +31,7 @@
(lambda (boxl)
(let* ([tag (first boxl)]
[boxes (second boxl)]
[calc-results
[res
(lambda ()
(foldl (lambda (b n) (if (weak-box-value b) (+ n 1) n))
0
@ -44,8 +44,8 @@
(make-object message% (format "~a: ~a of ~a~n" tag res ,mem-count) f)))))
mem-boxes)
(cond
[anything? (make-object button% "Close" (lambda x (send f show #f)) f)]
[else (make-object button% "NOTHING!" (lambda x (send f show #f)) f)])
[anything? (make-object button% "Close" f (lambda x (send f show #f)))]
[else (make-object button% "NOTHING!" f (lambda x (send f show #f)))])
(send f show #t)))))
(define (test-frame-allocate name %)