diff options
Diffstat (limited to 'src/interp/i-coerfn.boot')
| -rw-r--r-- | src/interp/i-coerfn.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-coerfn.boot b/src/interp/i-coerfn.boot index ec19d8fd..9631505f 100644 --- a/src/interp/i-coerfn.boot +++ b/src/interp/i-coerfn.boot @@ -546,11 +546,11 @@ Complex2Expr(u, source is [.,S], target is [., T]) == I2EI(n,source,target) == n = '_$fromCoerceable_$ => nil - if not ODDP(n) then n else coercionFailure() + if not odd? n then n else coercionFailure() I2OI(n,source,target) == n = '_$fromCoerceable_$ => nil - if ODDP(n) then n else coercionFailure() + if odd? n then n else coercionFailure() I2PI(n,source,target) == n = '_$fromCoerceable_$ => nil |