diff options
Diffstat (limited to 'src/interp/i-coerfn.boot')
| -rw-r--r-- | src/interp/i-coerfn.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/i-coerfn.boot b/src/interp/i-coerfn.boot index 7397569d..21473c86 100644 --- a/src/interp/i-coerfn.boot +++ b/src/interp/i-coerfn.boot @@ -1514,12 +1514,12 @@ Up2Up(u,source is [.,v1,S], target is [.,v2,T]) == insertAlist(a,b,l) == null l => [[a,:b]] - a = l.0.0 => (RPLAC(CDAR l,b);l) + a = l.0.0 => (first(l).rest := b;l) _?ORDER(l.0.0,a) => [[a,:b],:l] (fn(a,b,l);l) where fn(a,b,l) == - null rest l => RPLAC(rest l,[[a,:b]]) - a = l.1.0 => RPLAC(rest l.1,b) - _?ORDER(l.1.0,a) => RPLAC(rest l,[[a,:b],:rest l]) + null rest l => l.rest := [[a,:b]] + a = l.1.0 => l.1.rest := b + _?ORDER(l.1.0,a) => l.rest := [[a,:b],:rest l] fn(a,b,rest l) --% Union |