From 8f6993d23314d6ac0060585291aedacc50337eba Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 4 May 2012 03:33:27 +0000
Subject: 	* interp/buildom.boot (lookupDisplay): Tidy. 	*
 interp/clam.boot (compHash): Likewise.

---
 src/interp/buildom.boot | 3 ++-
 src/interp/clam.boot    | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/interp')

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]]
-- 
cgit v1.2.3