diff options
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/display/image.folk | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/virtual-programs/display/image.folk b/virtual-programs/display/image.folk index 28c66a3b..23246d45 100644 --- a/virtual-programs/display/image.folk +++ b/virtual-programs/display/image.folk @@ -62,7 +62,7 @@ On process "display" { proc evict {} { variable cache variable CACHE_MAX_SIZE - set numToEvict [expr {$CACHE_MAX_SIZE - [dict size $cache]}] + set numToEvict [expr {([dict size $cache] + 1) - $CACHE_MAX_SIZE}] set numEvicted [list] # Evict stale. dict for {im v} $cache { @@ -76,7 +76,7 @@ On process "display" { foreach im $numEvicted { dict unset cache $im } # Evict old. dict for {im v} $cache { - if {$numToEvict - [llength $numEvicted] == 0} { + if {$numToEvict - [llength $numEvicted] <= 0} { break } lassign $v gim |