aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/rule.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/rule.spad.pamphlet')
-rw-r--r--src/algebra/rule.spad.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/rule.spad.pamphlet b/src/algebra/rule.spad.pamphlet
index ce3011bc..98e0ee8d 100644
--- a/src/algebra/rule.spad.pamphlet
+++ b/src/algebra/rule.spad.pamphlet
@@ -113,7 +113,7 @@ RewriteRule(Base, R, F): Exports == Implementation where
-- appear?(x, [p1,...,pn]) is true if x appears as a variable in
-- a composite pattern pi.
appear?(x, l) ==
- for p in l | p ^= x repeat
+ for p in l | p ~= x repeat
member?(x, variables p) => return true
false