diff options
Diffstat (limited to 'src/interp/clam.boot')
| -rw-r--r-- | src/interp/clam.boot | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/clam.boot b/src/interp/clam.boot index c5774c8e..4e75d57a 100644 --- a/src/interp/clam.boot +++ b/src/interp/clam.boot @@ -476,7 +476,8 @@ assocCacheShiftCount(x,al,fn) == newFrontPointer := forwardPointer y.rest.first := second y + 1 --increment use count return (val:= y) - if QSLESSP(c := second y,minCount) then --initial c is 1 so is true 1st time + c := second y + if c < minCount then --initial c is 1 so is true 1st time minCount := c newFrontPointer := forwardPointer --CAR is slot replaced on failure forwardPointer:= rest forwardPointer |