aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-coerfn.boot.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-10-22 10:10:20 +0000
committerdos-reis <gdr@axiomatics.org>2007-10-22 10:10:20 +0000
commit2ff38e852893972f6d8000a70bb4a359fb7e44df (patch)
treee3ba5f956a00f53ca27791553819b3fbdaac7ed1 /src/interp/i-coerfn.boot.pamphlet
parente58a0d3a0088390bd5dcf7333ef01cbe5c9be8eb (diff)
downloadopen-axiom-2ff38e852893972f6d8000a70bb4a359fb7e44df.tar.gz
Various cleanup
Diffstat (limited to 'src/interp/i-coerfn.boot.pamphlet')
-rw-r--r--src/interp/i-coerfn.boot.pamphlet2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-coerfn.boot.pamphlet b/src/interp/i-coerfn.boot.pamphlet
index 034067d3..16eb1850 100644
--- a/src/interp/i-coerfn.boot.pamphlet
+++ b/src/interp/i-coerfn.boot.pamphlet
@@ -635,7 +635,7 @@ I2NNI(n,source,target) ==
L2Tuple(val, source is [.,S], target is [.,T]) ==
val = '_$fromCoerceable_$ => canCoerce(S,T)
- null (object := coerceInt1(mkObjWrap(val,source), ['List, T])) =>
+ null (object := coerceInt1(objNewWrap(val,source), ['List, T])) =>
coercionFailure()
asTupleNew0 objValUnwrap object