summaryrefslogtreecommitdiffstats
path: root/mwsynrul.scm
diff options
context:
space:
mode:
Diffstat (limited to 'mwsynrul.scm')
-rw-r--r--mwsynrul.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/mwsynrul.scm b/mwsynrul.scm
index bc5d7de..0ced293 100644
--- a/mwsynrul.scm
+++ b/mwsynrul.scm
@@ -72,7 +72,7 @@
(let ((literals (cadr spec))
(rules (cddr spec)))
(if (or (not (list? literals))
- (not (comlist:every (lambda (rule)
+ (not (mw:every (lambda (rule)
(and (= (mw:safe-length rule) 2)
(pair? (car rule))))
rules)))
@@ -115,7 +115,7 @@
(+ rank 1)
(lambda (P vars1)
(k (mw:make-ellipsis-pattern P vars1)
- (comlist:union vars1 vars))))
+ (mw:union vars1 vars))))
(mw:error "Malformed pattern" P))
(loop (car P)
vars
@@ -201,7 +201,7 @@
(lambda (T2 inserted referenced)
(k (cons (mw:make-ellipsis-template
T1
- (comlist:remove-if-not
+ (mw:remove-if-not
(lambda (var) (> (mw:patternvar-rank var)
rank))
referenced1))
@@ -259,7 +259,7 @@
(let* ((P1 (mw:ellipsis-pattern P))
(answers (map (lambda (F) (match F P1 answer rank))
F)))
- (if (comlist:every identity answers)
+ (if (mw:every identity answers)
(append (map (lambda (var)
(cons var
(map (lambda (answer)