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

.

Browse Source 
original commit: fa9a6acd2ed1afe447d4480d337ffb0a3b161db4
This commit is contained in:
Matthew Flatt 2004-11-10 18:08:23 +00:00
parent e5c7295146
commit 6acee2d830
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/mred.ss
View File

@ -624,9 +624,9 @@
(case-lambda (case-lambda
[() (not perform-updates?)] [() (not perform-updates?)]
[(f) (set! perform-updates? (not f)) [(f) (set! perform-updates? (not f))
(when pending-redraws? (when (and perform-updates? pending-redraws?)
(force-redraw)) (force-redraw))
(when (positive? (hash-table-count show-ht)) (when (and perform-updates? (positive? (hash-table-count show-ht)))
(let ([t show-ht]) (let ([t show-ht])
(set! show-ht (make-hash-table)) (set! show-ht (make-hash-table))
(hash-table-for-each (hash-table-for-each