diff options
Diffstat (limited to 'src/interp/format.boot')
| -rw-r--r-- | src/interp/format.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/format.boot b/src/interp/format.boot index 57b35ad0..b5cefe7d 100644 --- a/src/interp/format.boot +++ b/src/interp/format.boot @@ -107,7 +107,7 @@ findSubstitutionOrder? alist == fn(alist,nil) where fn(alist,res) == null alist => reverse! res choice := or/[x for (x:=[a,:b]) in alist | null containedRight(a,alist)] => - fn(delete(choice,alist),[choice,:res]) + fn(remove(alist,choice),[choice,:res]) nil containedRight(x,alist)== or/[CONTAINED(x,y) for [.,:y] in alist] @@ -120,7 +120,7 @@ removeIsDomainD pred == for p in preds while not D repeat p is ['isDomain,'D,D1] => D := D1 - npreds := delete(['isDomain,'D,D1],preds) + npreds := remove(preds,['isDomain,'D,D1]) D => 1 = #npreds => [D,first npreds] [D,['AND,:npreds]] |