diff options
Diffstat (limited to 'src/interp/clam.boot')
-rw-r--r-- | src/interp/clam.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/clam.boot b/src/interp/clam.boot index fbce1a6a..5472a22a 100644 --- a/src/interp/clam.boot +++ b/src/interp/clam.boot @@ -318,12 +318,12 @@ consForHashLookup(a,b) == $hashNode CDRwithIncrement x == - x.first := QSADD1 first x + x.first := first x + 1 rest x HGETandCount(hashTable,prop) == u:= HGET(hashTable,prop) or return nil - u.first := QSADD1 first u + u.first := first u + 1 u clearClams() == @@ -472,7 +472,7 @@ assocCacheShiftCount(x,al,fn) == until EQ(forwardPointer,al) repeat FUNCALL(fn, first (y:=first forwardPointer),x) => newFrontPointer := forwardPointer - y.rest.first := QSADD1 second y --increment use count + 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 minCount := c |