diff options
Diffstat (limited to 'src/interp')
-rw-r--r-- | src/interp/buildom.boot | 3 | ||||
-rw-r--r-- | src/interp/clam.boot | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/buildom.boot b/src/interp/buildom.boot index 449ae06f..d6437cd5 100644 --- a/src/interp/buildom.boot +++ b/src/interp/buildom.boot @@ -71,7 +71,8 @@ lookupDisplay(op,sig,vectorOrForm,suffix) == '" from ", prefix2String devaluateDeeply vectorOrForm,suffix) isInstantiated [op,:argl] == - u:= lassocShiftWithFunction(argl,tableValue($ConstructorCache,op),'domainEqualList) + u:= lassocShiftWithFunction(argl,tableValue($ConstructorCache,op), + function domainEqualList) => CDRwithIncrement u nil diff --git a/src/interp/clam.boot b/src/interp/clam.boot index 4f7e6b25..b210c6c6 100644 --- a/src/interp/clam.boot +++ b/src/interp/clam.boot @@ -219,7 +219,7 @@ compHash(op,argl,body,cacheNameOrNil,eqEtc,countFl) == cacheNameOrNil => eqEtc ~= 'EQUAL => ['lassocShiftWithFunction,cacheArgKey, - ['tableValue,cacheNameOrNil,MKQ op],MKQ eqEtc] + ['tableValue,cacheNameOrNil,MKQ op],['%function,eqEtc]] ['lassocShift,cacheArgKey,['tableValue,cacheNameOrNil,MKQ op]] ['tableValue,cacheName,g1] secondPredPair:= [g2,mkSeq [:hitCountCode,returnFoundValue]] |