aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-coerfn.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-coerfn.boot')
-rw-r--r--src/interp/i-coerfn.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-coerfn.boot b/src/interp/i-coerfn.boot
index d3244a37..d65e8897 100644
--- a/src/interp/i-coerfn.boot
+++ b/src/interp/i-coerfn.boot
@@ -925,7 +925,7 @@ Mp2Up(u,source is [mp,vl,S],target is [up,x,T]) ==
u = '_$fromCoerceable_$ =>
member(x,vl) =>
vl = [x] => canCoerce(S,T)
- canCoerce([mp,delete(x,vl),S],T)
+ canCoerce([mp,remove(vl,x),S],T)
canCoerce(source,T)
u is [ =0,:c] => -- constant polynomial?