aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/buildom.boot3
-rw-r--r--src/interp/clam.boot2
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]]