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 c8ade7a3..9d95a741 100644
--- a/src/interp/i-coerfn.boot
+++ b/src/interp/i-coerfn.boot
@@ -706,7 +706,7 @@ M2Rm(x,source is [.,R],[.,p,q,S]) ==
M2Sm(x,source is [.,R],[.,p,S]) ==
x = '_$fromCoerceable_$ => nil
n:= #x
- m:= #x.(0)
+ m:= #x.0
n=m and m=p => M2M(x,source,[nil,S])
coercionFailure()