diff options
Diffstat (limited to 'src/interp/slam.boot')
-rw-r--r-- | src/interp/slam.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/slam.boot b/src/interp/slam.boot index fc54d770..1f1f7d9e 100644 --- a/src/interp/slam.boot +++ b/src/interp/slam.boot @@ -204,7 +204,7 @@ reportFunctionCompilation(op,nam,argl,body,isRecursive) == nam getCacheCount fn == - n:= LASSOC(fn,$cacheAlist) => n + n:= symbolTarget(fn,$cacheAlist) => n $cacheCount reportFunctionCacheAll(op,nam,argl,body) == @@ -446,7 +446,7 @@ clearAllSlams x == symbolValue(slamListName) := nil thoseCleared:= ADJOIN(x,thoseCleared) someMoreToClear:= - setDifference(LASSOC(x,$functorDependencyAlist),[:thoseToClear,: + setDifference(symbolTarget(x,$functorDependencyAlist),[:thoseToClear,: thoseCleared]) append!(thoseToClear,someMoreToClear) |