diff options
Diffstat (limited to 'src/interp/i-coerce.boot')
| -rw-r--r-- | src/interp/i-coerce.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-coerce.boot b/src/interp/i-coerce.boot index 4c21e80c..74e9e0ac 100644 --- a/src/interp/i-coerce.boot +++ b/src/interp/i-coerce.boot @@ -314,7 +314,7 @@ retractByFunction(object,u) == null fun => nil first(fun) = function Undef => nil --+ - $: fluid := dcVector + $: local := dcVector object' := coerceUnion2Branch objNewWrap(SPADCALL(val,fun),target) u' := objMode object' u = u' => object' @@ -1338,7 +1338,7 @@ coerceByFunction(T,m2) == fn = function Undef => nil isWrapped x => --+ - $: fluid := dcVector + $: local := dcVector val := CATCH('coerceFailure, SPADCALL(unwrap x,fun)) (val = $coerceFailure) => nil objNewWrap(val,m2) |