diff options
Diffstat (limited to 'src/interp/i-coerfn.boot.pamphlet')
| -rw-r--r-- | src/interp/i-coerfn.boot.pamphlet | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/interp/i-coerfn.boot.pamphlet b/src/interp/i-coerfn.boot.pamphlet index 16eb1850..24f14bf5 100644 --- a/src/interp/i-coerfn.boot.pamphlet +++ b/src/interp/i-coerfn.boot.pamphlet @@ -112,7 +112,10 @@ all these coercion functions have the following result: <<*>>= <<license>> -SETANDFILEQ($coerceFailure,GENSYM()) +import '"i-coerce" +)package "BOOT" + +$coerceFailure := GENSYM() position1(x,y) == -- this is used where we want to assume a 1-based index @@ -684,7 +687,7 @@ L2M(u,[.,D],[.,R]) == L2Record(l,[.,D],[.,:al]) == l = '_$fromCoerceable_$ => nil #l = #al => - v:= [u for x in l for [":",.,D'] in al] where u == + v:= [u for x in l for [":",.,D'] in al] where u() == T:= coerceInt(objNewWrap(x,D),D') or return 'failed objValUnwrap(T) v = 'failed => coercionFailure() |