aboutsummaryrefslogtreecommitdiff
path: root/src/interp/c-util.boot.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/c-util.boot.pamphlet')
-rw-r--r--src/interp/c-util.boot.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/c-util.boot.pamphlet b/src/interp/c-util.boot.pamphlet
index 63808037..6bc3f726 100644
--- a/src/interp/c-util.boot.pamphlet
+++ b/src/interp/c-util.boot.pamphlet
@@ -196,7 +196,7 @@ intersectionContour(c,c') ==
[[x,:mp] for x in varlist | (mp:= modeCompare(LASSOC(x,c),LASSOC(x,c')))]
compare(pair is [prop,:val],p') ==
--1. if the property-value pair are identical, accept it immediately
- pair=(pair':= ASSOC(prop,p')) => pair
+ pair=(pair':= assoc(prop,p')) => pair
--2. if property="value" and modes are unifiable, give intersection
-- property="value" but value=genSomeVariable)()
(val':= KDR pair') and prop="value" and